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1.0 INTRODUCTION 


This document contains Volume IV of a set of four volumes which describe 
the SRB-II program. Volume I contains the engineering description, 
Volume II contains the User's Manual, Volume III contains the sample 
case preaiction, and Volume IV contains the program listing. 


The SRB-'I program listing presented in this Volume is divided into 

two parts due to the size of the program. Part One is an INDEX listing 

of the subprograms or routines associated with al] program modules except 
the Internal Ballistics Module (IBM) and the Nozzle Submergence and Contour 
Effects Module (NSCES Part Two is an INDEX listing of all the routines 
associated with the IBit and NSCE Modules. 


The INDEX listing is a valuable tool in program analysis. The INDEX 
program analyzes FORTRAN source programs and produces a directory (or 
index) of variable names and statement numbers used in the routines. 
For each routine, the INDEX listing outout consists of: 


(1) A complete listing of the source routine. 


(2) A directory of statement numbers in ascending order. 
Each statement number is identified as to its location 
in the routine listing. Also, each reference to a state- 
ment number is identified. 

(2) A directory of variable names in alphanumeric order. 
Each variable name present in the routine is listed 
along with an identification of its function and 
location. 


When more than one routine is oresent in a FORTRAN source program (as 

is the case with SRB-I1), a SUPER INDEX is printed following the output 
for the last routine. The SUPER INDEX presents a list of every variable 
and routine name used in the entire source program. When a name is 
present in more than one routine, the routines are identified in alpha- 
“numeric order. 


The final part of an INDEX listing is the Table of Contents. It consists 
of an alphanumeric list of each routine present in the INDEX and the page 
on which each routine begins. The INDEX vrogram assigns page numbers to 
the print that it produces and uses these page numbers in the Table of 
Contents. These page numbers are located in the upper right corner of 
the print. 
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2.0 PROGRAM LISTING, PART ONE 


This Tirst part of the SRB-II program listing contains an INDEX listing 
of the routines associated with the following modules: 


Executive Module (MAIN) 
Centralized Input Module (INPUT, GETDAT) 
BATES Isp Module (BATES) 

Isp Scaling Module (SISCAL) 

Contractor Data Isp Module (CDSI) 
Reconstruction Module (RECQN) 

Dispersion Module {DISP) 

Thrust Scaling Module (FSCAL) 

Inert Mass Module (INERT) 

Outpu. Module (@UTPUT) 
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The program listing for the remaining two modules, the Internal Ballistics 
Module and the Nozzle Submergence and Contour Effects Module, is presented 
in Part Two. 


The INDEX listing begins on the following page. The SUPER INDEX begins 
on page 2-354 and the Table of Contents begins on page 2-377. 
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130 FORMATINN 2807) sT45e9A LL DATA CASES COMPLETES 


SPACE SHUTTLE SOLIN ROCKET BOOSTER PERFORMANCE EVALUATION MONEL 


EXECUFIVE MODULE {ROBERTS) 


IMPLICET REAL (A=Hef~ZeM) 
LOGICAL ERR 
COMHON/BLKOOI/IRKTOLsAIRKTO2ZeERReIN 
COMMON/BLKOGS/ NLEWISeNSI ¢NF eNRECONeNCASES »NDISPsNCASE 
COMMON/BELKO12/ NPRINT 
COMMON/BLKO2ZS/ NTAPE yNPLOT eNCARD 
NCASE=0 

CALL PRESET 

CALL INPUT : 

CALL INITL 

NPRINT=1 

CALL OulPuT 

IF (NRECONSGT.0} GO TO 100 

GO TO (30940050160) «NST 
NPRINTs2 

CaLt SISCAL 

GO TO 60 

NPRINT=3 

CALL CDS 

GO TO 60 

NPRINT=4 

CALL BaTES 

IF(ERR) GO TO 110 

IF (NOISP,E9.6) GO TO 80 ie 
NPRINT=S ‘ 

CALL bDISP 

IF (NF eGT.0} GO TO 90 
IF(NFeLT.20) GO TO 110 
NPRINT=6 

Catt FSCAL 

GO FM 310 

NPRINT=7 

CALL IBM 

GO TO 110 

NPRINT=38 

CALL RECON . * 

NCASE = NCASE ¢ 1 
TF{NPLOT.GTeD) ENN FILE 13 

IF (NTAPE.GTs0) CALL OUTTAP 

IF (NCASESsEQeNCASE) GO TO 120 
GO fQ 1% 

WRITF (60130) 
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END 
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136 
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BLKNOS: 


ULKOL2 
SLKA25 
cDS1 
DISP 


“ERR 


FSCAL 
IAM 

IN 
INEF1 
INPUT 
IRKTO1 
ERKTO2 
NCARD 
NCASE 
NCASES 
NDESP 
NF 
NLEWIS 
NPLOT 
NPRINT 
NRECON 
NSI 
NTAPE 
OUTPUT 
OUTTAP 
PRESET 
RECON 
STSCAL 
STaPp 
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14% 
44 1S# 
14 184 1 
14 14 
14 17 20° 240 - 
24 aTe 
PT 320 
“13 - 350 _ 2 =F . 
23 28 31 4 Ve 
40 42 
42WR 43" y - 
224 
qn 
ae 
se 
6% 
19% 
Pés ' 
2L6 3c0 23 
704 ree 
334 
3co : 
10+# 3 se 
on 
3c0 
3C0-> 
6cO 
4Co T= a7 40 
4CO 40 
400 24 
4cO 27 28 
4C0 
6CO 3B 
5CO lis {S= 18= 2l= 25= 29s 32s 35= 
4co 13 
4Co 14 
&CO 39 
124 
398 
Be 
364 
164 
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SUBROUTINE LAS 


SUBROUTINE BIAS 

THES ROUTINE WIL( ATAS DATA FOR RECONSTRUCTION 
RETURN 

END 
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BLOCK DATA PAGE 


HLOCK NATA ; 

TMPLICTI REAL (A=Hs0=ZeM) 

LOGICAL LEST1sSTaTICc 

COMMON/ALKO06/ PTB eOTE gs MC (30) eAL oAK (15) oCK (20) sPCATSARETACARETEs ATES 
i STGNL » SIBTsETABT ¢O8T »WPAT cDPR DPE y AHALFE +CLAMF GATE #WINE # WPF 9 GATES 
2 OK (10) ePAMBT ePFAAT sPEXIT 


COMNON/BLKOOS/ NLEW[SeNSI «NF »NRECON)NCASES sNDISP yNCASF ALL 
COHMON/ALKOO7/ SECONSPCT sARET sPAMT »AHALF I» WD29PCAVE cos! 
COMMON/YLKOOA/ ATB(S0) sAFSRM (SO) » MPNOM, TBeNMP NTA FSCAL 


COMMON/BLKO09/ MITOT pMPTOTsSTTeAMIRR (10) eAMPRR(10) eDELTsHPReMIZ [INERT 
COMMONZALKO10/ NP (30) 


CONMONSBLKOLI/ ETACSeTSOL SISCAL 
COMMON/PLKO13/ CSTAR STAR s SIDE eHDE sETANZ 9 CSTAR2 ¢STACONSETANZ1 ¢ OUTPUT 

$ CLAMLs SIBATASILOVB»SILQHsSIL2PAsSIASsSILOVE pSILQE rSIL 2PE OUTPUT 
COHMON/BLKQ1S/ ATsATBARMFIN»MFINRT sMFENTZ MF OUTZeMINST pHMOTI RECON 
COMMON/ELKOL7/ PRARYPFL AG sPHEADZ ePHEPT pTIMNEZ 9 TO + TOLAsMVEHT > RECON 
$ NOZPOS RECON 
COMMON/BLKOJA/ PANIC(2) : Pans 


COMMON/BLKO21/ TSRECs FEREC+CSHAR sPNSBARs THEA BP] FWeCSCOFF (33) sLIST1a 
& STATIC 

COMMON/ELKO2Z3/ DATA(10) seNWROSeNUNIT 

COMMON/BLKO25/ NTAPE sNPLOT+NCARD 

COMMGN/BLKN26/ NIAFLS 

COMMON/BLKO27/ DISLIM(20) sMITSAVsSETFLG 

COMMON/HLK A 2AZALPHA 6 QEXsXLAMAD ep SILSBsCSTAR] 

DATA AHALFI/.2617994/ 

DATA AHALFF/, 39543277 

DATA AK/246,.62452406 27041445] 649399 05524035-0-0030535 ond ZTAE Mb, 
& 8.61966-6 54.634 ~810,854 100. 0244 4-0.00125 6246.62 050406090 14G/ 

DATA AL/00943/ 

DATA ALPHA/O,0/ 

DATA AMIRR/3*0 Ore lSre2 see d25 ecb TO vel 7OreSl ok als 

DATA AMPRR/320 0090095016 40255 90740 0859092591507 

DATA ARET/9.8/7 

MATA ARETH/8,a2/ 

DATA ARETE /6,0/ 

DNATA ATBAR/39594/ 

DATA ATB/0 001 a00GesBnel Zot Lba ele t2taeZ8 ep 32ee3be 2400 94Gen4Bes 
A S20 vShe 260+ 1640 268s oe Ton 076s 2800 sO es pBBes Pose Wer lODeel ide rlOGes 
BH LOGseLlZss lhe Gegh20e gh Pas leAeslace rk IGeel4DeghSOer200ee 1080004 = 

DATA AFSRN/0, 0929691896 930591 B40s3199184 99 I2991A4s eASATI SG oe 
1 345918409 9549184. 536491 A4, 3839184, 93849184. 93929184, 3859184, 5 


& 3199184. 62569184. +L149184. 0679184. SS9184, 05291R4.,0679 14s 
S 4591860012°0.0/ 

DATA CK/32017%014 6960778009 30141597 

DATA CLAME/0,0/ 

DATA CSBAR/4B000/ 

DATA CSCOEF/4735.62390 209546955 5-0 .359902E=04/ 
DATA CSTAR/4794.717 

DATA CSTAR1/5144.0/ 

DATA DYSLIMs20¢0.07 

MATA DPH/O.07 

DATA DPE/0.0/ 
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43 DATA DIB/1.926/ . 

44 DATA DYIE/71,0/ ; 

4S DATA ETABT/0,0/ 

46 PATA ETACS/0,994/ 

47 DATA LISTL/ FALSE. . 

43 DATA MOZ0 6 D001 7184 SL A4 oO He F2 9h 000 00 OeOl 51 44,0544 aerledy 
B 2595870269583 +440 Ve bBele 70 eG e4OhGeGe20Ues — 

49 DATA MINST/5.0F44/ 

So DATA MITOT/15081.0/ 

$1~ DATA MMOTI/2.0F4+6/ ech ne . 

52 f DATA MPNOM71676366.0/ 

$3 DATA MPTOT/1676366.0/ 

54 DATA MVEHT/S.0E+6/ 

5s OATA NCARD/O/° 

S6 : DATA NIBFLG/O/ 

ST DATA NOZPOS/0/ —_ 

ba DATA NP/4044e740s 10/7 

59 DATA NPLOT/0/ 

60 MATA NTAPEsSO/ 

61 DATA NUNIT/11/ 

62 DATA NWRDS/10/ 

63 DATA OK/3#1,00100.560/ : 

64 DNATA PADIC/0.0.0.07 © . 

bh DATA PAMBT/14.696/ 

16 DATA PAMT/14,.7/ — 

67 DATA PBARS10000/ 

68 DATA PCAVE/494.0/ 

69 DATA PCHT/1000,0/ 

70 DATA PCT/494,7 

ral DATA PFLAG/O.0/ 

12 DATA PHEPI/£00./ 

73 ; DATA PITW/1,0E+6/ 

14 DATA QATE/1450.0/ 

7S DATA QBI/420000/ 

76 DATA QEX/0,0/ 

77 DATA SIbT/0.0/ 

78 DATA SICUN/241,0/ 

1g DATA S11/190,0/ 

80 DATA SILSB/1.0/ 

61 DATA STATIC/eTRUE./ 

82 DATA TEREC/10006/ 

83 DATA TSOL/9,950/ 

84 DATA TSRECSO.O/ 

8S OSTA TWEB/1000./ 

86 OATA WO2/10.0/ 

a7 DATA WINE/15081.0/ 

88 DATA WPBAT/49,83/ 

Ho DATA WPE/3676366.0/ 

90 DATA XLAMED/1.9/ 


91 END 
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AFSHM 
AHAL FE 
AHAL FY 
AK 

AL 
ALPHA 
AMI RE 
AMPRH 
ARET 
ARET6 
ARETE 
AT 

ATH 
ATBAR 
BLUATA 
dLKOO4 
BLKODS 
BLKNOT 
dLKN08 
BLKOO9 
BLADLD 
BLKOLY 
BLKO13 
KLKOIS 
OLEH? 
BLKOIB 
BLKD2] 
BLKO23 
HEKO25 
BLKO26 
BLKO27 
BLKOZR 
CK 
CLAME 
CLAM) 
CSHAR 
CSCOLF 
CSTar 
CSTARI 
CSTAR2 
Dats 
DELT 
DISL IM 
DPPH 
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OTs 
OTE 
ETAKT 
EFACS 
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ETAN2) 
LIST} 
aC 
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12% 
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14# 
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178 
18* 
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aot 
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4CQ 
11¢0 
15CO 
15co 
11¢€0 
7oco 
1ico 
16co0 
6C0 
19C0 
4c0 
4co 
‘4CO 
400 
4c0 
10c0 
11¢c0 
11¢0 
3L6 
4C0 


33NA 
220A 
21DA 
2A 
24DA 
25na 
260A 
27DA 
2nd 
290a 
30DA 


320A 
31Na 


34na 
3S5DA 


34DA 
37DA 
338DA 
3904 


40DA 
4EDA 
42DA 
430A 
4S4DA 
45DA 
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15c0 
480A 
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INDEX BLOCK DATA 
WEE MOON 4. Sei a oh et Ge Tete ead 
MFINRT = 12C0 
MFINTZ = 12C0 
PONE Se PO cers ra A le El St ee et aed ic 
HINST - 12CO 49DA 
MITOT - aco SODA 
METSAN 20 OCD: os i ht tye ot 8 i Te el ent Ee Re hy kes ne ty 
Miz = 6cO 
MMOTI - 12C0 SIDA 
MPNOM be 7co _52DA Est a, ss 
MPR BCG . 
MPTOT = aco S3DA 
MVEHI ” 13c0 S4DA Stas dete de Tay 3 asia Rhone tice 
NCARD “=~ y?CO™ “S5pAT CT Ta 
NCASE = 5C2 
NCASES = Sco . ae \, 3 ; 7 
NOISP = sco CC" ales cold ate 
NF - Sco 
NIBFLG = 1aCcO 56Da me, se states chee 
NLEWIS = °7"" SCO 
NMP ~ 7cO 
NOZPOS = 13C0 SIDA! et kl ey hg a Beata e - 2k 08 Tae 
NP - 9co 58DA 
NPLOT - 17C0 590A 
WRECON = 5co0 ° . 
NsI 7 5¢c0 
NTAPE = 17C0 60DA 
NTB - 7c0 7 : Daae 
NUNIT - 3400 610A 
NWRNS = 16C0 62DA 
OK - 4C0 63DA 
PadyC = 1460 640A : 
PAMHT = 4060 65DA 
PAMT - 6co &6DA 
PBAR - 13C0 67DA 
PCAVE - 6CO 6BDA 
PCHT - 4co 690A 
Pct - 6co 700A 
PEXHT = 4c0 
PEXIT “ 4co 
PFLAG) = 130 TDA 
PHEAOZ = 13c0 
PHERI fad 13¢0 72pa 
PITwW ~ 15¢c0 7304 
PNSBAR ~ 15C0 
Qale - 4C0 T4DA 
QAaT - 4Cc0 750A 
EX - ?0co T4604 
SETFLG = 19c0 
STACON = 13¢0 
STAF - y1c0 
STAS - 11¢c0 
SIRAT = 11c0 
SISNL - 4ca 
SIXT : 4c0 TINA 
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SJCON 
SIDE 
st! 
SITLDVA 
STLAVF 
sTLQK 
STLOE 
SILSH 
STL2PR 
STLAPF 
STATIC 
TH 
FERFC 
TIME Z 
Toll 
TOL4 
150, 
TSREC 
TweH 
whe 
wo2 
WINE 
WPHT 
WwPE 
ALAMBD 
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BLOCK DATA 

6co0 TBDA 

11¢0 

&CO TODA 

1100 

11¢0 

1ico 

11¢0 
20co HODA 

11¢0 

11c0 

3LG 1sco BINA 
7¢0 

15c0 BPA 

13c0 

13¢0 

13¢0 

10c9 QA 

15CD Bas 

19cb &45DA 

1ico G 

6cn BADA 

4C0 a7DAa 

400 BALIA 

4co B9DA 
e0co 90DA 
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SUBROUTINE BATES - 


_ SUBROUTINE BATES 
“REALS4 MC 
LOGICAL ERR 
LOGICAL LISTLeSTATIC | EEE NESS le Aen ey GES cel RSE ee MO SANE PE AIRE 
REALSS RTOTOF sRIOIVF»sRTOIVT | 
REALYS TSTAGK se TEXT TK CHEN+ E XEN e PROP» WTMOLG » CUGO sPARWT ¢RCHySLOPI » 

A SLOP2,RARCL »RARC2, ARF 
“povacE PRECISION ASUMSSSUM, CPR OL VTP eOLVPTsGalmas 
COMMON/POINTS/HSUM113) eSSUM(13) eCPR(13) sOLVTP (13) sDLVPT (13) » 

1 GAMMAS (13) »P (26) 9 1.¢26) 9V¥( 13) sPPP (13) oWM (13) SSONVEL (13) oTTT(13)__ 


COMMON/PERF /PCP (22) »VMOC (13) sSPIM(13) eVAC] (13) eSUBAR (13) sSUPAR C33} 

i +APP (13) + AEAT (13) sCSTRoF QL +FROZ¥SSO+AREAVAWT 

COMMON/BLKOOT/IRKTOLs IRKTOZ,ERRSIN- 

COMMON/ELKO02/ SILOPTILA} +STLVAC (18) pACSTRT (18) eAPEXT(1A) 
COMMON/ELKO0G/ CTR» DTE SMC (30) eAt oAK (15) sCK (10) ePCBTSARFIBOARETEs BATES 
1 SIBNLeSISTsSETABT .QBTeWPAT sDPBsOPE sAHALFE +CLAME sQAIE WINES WPF. °° 
2 OK(1LD) ePAMBTePEXAT+PEXIT 

COMMON/BLKO0S5/ NLEWIS»NST NF sNRECON» NCASES #NDISP eNCASE ALL 
COMMONZELKOOG6/RTOLOF pRIOIVF sRTOIVT a 
COMMON/ELKO13/ CSTAR,STAE +SIDE es WD) sETANZsCSTARD 9S LACONSETANZ2¢ OUTPUT 
S CLAMESe¢SIRATsSILOVAsSILOB+SIL2PBsSIASsSILUVE sSTL OE sSTL2PE OUTPUT 
COMMON/BLKGZL/ “TSREC, TEREC « CSBAR sPNSBARs THES sPITHeCSCOFF (3) +L ISTI« 
$ STATIC 

COMMON/BLK028/AL PHA ¢ QEX eXLAMRD eSELSAeCSTAR} 

COMMON/COMO} /TSTAGK » TEXT TK es CHENsEXEN» PROP sUTMOLG eCUGO, 

1 PARWT sRCHs SLOP} ¢SLOP2ZeRARCI »RARC2+ARF sNOZTYP » IDBUG + IONPRT 

DIMENSTON ACSSAV(I8} 

CALL ITIONZ 

IF (ERR) RETURN 

IF (SIBNL.GT.0.0) GO TO 70 

TF (NLEWIS.GT.0) GO TO 20 

SIRAT = AK CL) eAK (2) SARE THe AK (3) #ARFTE#S2-ARETBOMC (2) @PAMAT 
$/ (PCBT#CK (13) 

STAS = AKC) FAK 62) 9MC (3) €AK C9) AMC 19) #92-MC 16) MCC 2) #CK (DDS 

& (mC64) #CK (1)) 

STAE = AK()}+AK (2) ARETESAK (3) HARETE HOD 


SI3=MC (24) 
GO To 30 

CALL LEWIT 
Pdl)= PCHT 
P(2}= MC(4) 
P{(3}= 500. 
Pi4)= 700. 


PCP(1)s MC(1S) 
SUPAR(1)= ARETH 
SUPAR(2)= ARETF 
SUPAR(3)=1,0 
CALL LEWIS 

IF (ERR} RETURN 
SIBAT = SILOPT(2) 
SIAS = SILOPT(S) 
SIME = SILVAC(7) 
CSTARL= ACSTRT(5) 
SI3=SILVAC (8) 
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SUBROUTINE BATES PAGE 


IF (STBTeGT,0,9) GN TN 4f 

SIel = ETART4SIAS 

GO TO 50 

Stat = SIBT * SJAS/SIBAT 

SILDVB = STAS®MC(S) 

ST] =C(SIBTeSIt DVB) 4242. 08CK (3) SQRT/ ICKL) @wPBT) DH F065 
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109 SILQE = SIENL=SIL2PE“S12 
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113 SELOVEs SIAE® (0.5~0.5*COS tAHALFE) ) 
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SUBROUTINE COSI 

C™ CONTRACTOR DATA SPECIFIC IMPULSE SCALING [HARRIS 
LOGICAL ERR 
LOGICAL LISTIsSTATIC. 


awe seams temes eet ame came et tee ee i ey et ee ements + ee 


“REALSS NC 2 

COMMON/BLKOOL/IRKTOL sIRKTO2eERRIIN 

COMMON/BLKNOZ/ STLOPT(18) sSILVAC{19) eACSTRT (18) eAPEXT(18) — 
momrreme =" “"" COMMONZELKOO47 OTASDTE «MCt30) sAL sAK CISD pCRULD) gPCBTeARFIA ARETE. BATES 

1 SIBNL  SLBTsETABT sQHT eWPAT eDPAsHPE » AHALFE ¢CLAME sGAITE eWINE sWPEs 
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COMMON/BLKO13/ CSTARsSIAE sSIDE sWOE vETANZ2CSTARZ ¢SIACONSETANZ1® © GUTPUT 
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10 CALL LEWIT 
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SUPAR{2)= ARETE 
CaLl LEWIS 
STACON = SILVAC(}) -ARET@ME (23) #PAMT/(PCT#CK (113 
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ETANZ1= AKCIOVFAK (LL) PALH2¢ AK (12) #ALD2NG2 
c INPUT DIVERENCE LOSS CORRECTION END ITEM MOTOR 
IF (CLAME.GT.Ge0) GO TO 30 
CLAME = 065 © O5#COS(AHALFE) 
c APPROXIMATF CORRECTION ENN ITEM MOTOR 
IF CALPHA,GT,000 eAND. QEX2GT.0.0 AND, XLAMBD.EQ.1.0) 
$ CLAMES 045+0.58C0S ( (ALPHA40NEX} 42,0) 
c METHOD OF CHARACTERISTICS CORRECTION END ITEM MOTOR 
IF LALPHA.GT.0.0 «AND. QEX.GT,0,0 .AND. XLAMBD.NF S10 3 
B CLAMES (0.5¢0¢5#COS (ALPHA) } #XLAMAD 
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WRITE (6940) NAME 
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SUAROUTINE DISP 
IMPLICIT REAL (AmHy=2—M) 
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DIMENSION AINCIN(1&) ALA (1A) + ALB C18) pALE (18) sALS3(18) sALS2CI AD 
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IF (NF.EO.9) GO TO LO 
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2 AKRI1)=0,0 


PAGF 


et 


b-G200 E-9E¢G 


62-2 


INDE xX 





vi “ERBAR=0.0 


ae ne AS ne NUTT 


SUBROUTINE UISP 


AKSLOT (2 


men ARS LOT 32038 Semth aelh oiimast tee a cra teaaceaey entice Sicha nD 
1306 


AKSLOT(2 
CSTARZ000 


‘DO 5 Iely20 a sacntte: 
SSA 2060 = 


DT=0.0 
DE=0.0 


WFACT=000 


19 CALL OUTPUT 
IF (SETFLGeLE.0) GO TO 15 
MITOT=MITSAY 
SETFLG=0 : 
1S GD {0 (2064040450 460470 980 6906100911 00120¢ +130 414041504160 51705 
B 1A0¢+¢190s200, 2109230230) sNDISO 
+ «© PROPELLANT DENSITY (NDISP=1) 
20 CONTINUE 


ia capaieiateeaie | (5c (|) eenncranitts 
c 


ss 50 AKR (3) #AKR(3) © 1) e@AHS (DISLIM(2) )} 
Pr Sé ARR UST} BARR CST 81 ABS COIST IM C277) 
S7 AKSLOT (2) =AKSLOT (2) #11,.-ABS(DISLIM(2]}} 
Sa WRITE (6945) AKR(3) eAKRE37) ¢AKSLOT(2) is ten ds 
~ 55 °C GO FO 10007 
c eee ¢ PRESSURE COEFFICIFNT (NDISP=S) i 
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eee + CHARACTERISTIC VELOCITY {NDISP=7) 

CSCOEF (1) =CSCOEF (LY #(ABSIDTSLIM(4) V1 

CSTAR = CSTAR*(ABS(OTSLIMN (492 ¢] e} 

DO US [=]+20 

CSTRITP=SCSTR(1) S(ABS(DISL IM(4)1 +1.) 

WRITE ¢h988) CSCOEF (1) sCSTARs (1 CSIR) + T'=1 620) 


FORMAT C° O'S TSF CSCORF (I) S48 9E1SeR/T4s4CSTAR H8eF15.B// 


SCT4 et CSTR *al2et)= §6E645.8)) 

GO TO 10N0 

aHe = CHARACTERISTIC VELOCITY (NDISP=A) 
CSCOFF CL) =CSCUFF (1) #(1.-ABS(DISLIM(4)})1 
CSTAR = CSTAR#{}.—AKS(DESLIM(4} )} 

NO 95 J=1+70 
CSTRELIECSTRILTI GC] ABS CISL IM(4})) 
WRITF(heRB) CSCOFF (E1 sCSTARS(TeCSTRIT) + T2270) 
GO TO 1000 

fee ¢ PROPFLLANT GRAIN LENGTH (NNISP=9) 
CONT ENUE 

60 TO 1600 

tee = PROPFLLANT GRAIN LENGTR (NDESP=10) 
CONT ENUE 

GO TO JOn0 

sea + PKOPFLEANT GROIN WEA THICKNESS (NDISP=1)) 
CONTINGE 

GO TO 1000 

eo — PKOPFLLANT GRAIN WEA THICKNESS (NOISP=}2) 
CONTINUE 

GN TO 1000 

eRe & INITIAL THROAT DIAMETER (NDISP=13)} 
OT=0T + DISLIM(7) 

WRITE (691453 DT 

FORMAT C'U'eT4e9NT =teF15.A) 

6O TO 3000 

Hee @ INITIAL THROAT DIAMETFR (NDISR=14) 
OTahY - OISLIM(7) 

WRITE (60145) OF 

GO TO 1000 

eee oe INITIAL FXIT OTAMETER (NDISP=15) 
NE = DE + DISLIMtS8) 

WRITE {60165) OF 

FORMAT (TON. TGO*DE =teE15.8) 

GO To 1000 

##e = INITIAL EXIT OTAMETER (NNDISP=16) 
VE = DE - OISLIM(Aad 

WRITE (69165) DF 

GO TO 1000 

see + THROAT FROSTON RATE (NNISP=17) 
ERBAR = ERRAR + DISLIM(9) 

WRITE (69185) ERBAR 

FORMAT (TOs TGe*ERHAR =t0E15,A} 

GO TO 1u00 

#oe = THROAT EROSION RATE (NNISP=16) 
ERBAP = ERBAR - DISLIM(9} 

WRITE (4*185) ERAAR 

GO TN 1000 
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ae + PROPELLANT GRAIN TEMPERATURE {NDISP=19) 
CONT ENUE 

GO TO 1000 

+e# = PROPELLANT GRAIN TEMPERATURE (ND[SP=20) 
CONT ENUE 

GO TO 1000 

wee + INITIAL INERT MASS CONSUMABLE (NDISP=2}) 
SETFLGs1 i 

MITOT = MITOT + (ARS (OLSLIM(11) } #MPNOM} 

MI7=MT TOT 

WRITE (60225) MITOT 

FORMAT ('O'sT4e*MITOL 51621528) 

GO TO 1000 

##e = IMITIAL INERT MASS CONSUMABLE (NDISP=22) 
SETFLG=1 
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If (MITOT.GE.0.0) GOA TO 990 

WRITF (62900) 
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MUZ=MI TOT 

WRITE (49225) MITOT 
IF (NF.EQ.0) RETURN 
WRITE (C25eIN ITSP) 
RETURN 
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SURROUTINE FAM 


THE PURPOSE OF 
MASS FOR FLIGH 


IMPLICET REAL 
COMMON /BLKO00S/ 
“COMMON/BLKO15/ 
COMMON /BLKO16/ 
COMMON/BLKOLT/ 
$ NOZPOS 
COMMON/BLKN204 
COMMON/BLKO21/4 
% STATIC 
COMMON/BLKA23/ 
EQUIVALENCE (0 
$ {D 
$ {(D 
COHMON/INPUTFS 


] 
COMMONSPARMK /F 


SUBROUTINE FAMCAL (CFPROP>FINOP) PAGE 


CAL (CFPROP yFINDP) 


THIS SUBROUTINE IS TO DERIVE THE VEHICLE THRUST AND 
1 AND STATIC TEST FOR A RECONSTRUCTION. 


(A~H»O~7Z9M) 

NLEWIS NST »NF »NRECON+NCASES sNDISP ALL 

ATs ATBAR a MF INeMFINRT sMFINTZ¢MFOUTZ sMINST »MMOT I RECON 

MF INITeFIoMIF eMIFZeMIReOFIZHALTINSAITVIN 

PHAR »PFLAGePHEANZ «PHEPL eTIMEZe TOL Ls TOL3eMVEHI + RECON 


RECON 
AGMFOUT «PNS 
Deca eal Me aE Be 
e N 
DATA(10) sNWRDS NUNIT 
ATA (3) oFL DCL} 6 (DATA (4) sAVEHI) ¢ COATACS) pMMBEST) » 
214A (6) eMORH) 6 (DATACT) »HET) @ (DATA(B) sFSSME} 6 
ATA(9) eDRAG) e CDATA(10) sFM2EST) 
NPHs PHST (70) sTIMEPH (70) eNAKRST » TAUAKR (30) 5 
AKRTAU (30) eNTAUTOSPCT AB 
oFP} sPEPOSCFOL, VF WEN, WDs DEEU+CLOPSeCFOOWGTOTs 


] SWNOTN 


LOGICAL LISTle 
CALL INERT 


STATIC 


IF (NRECON.LT.2) RETURN 
TF (NPH.GT.O) GO TO 54 


MMOT = MMOTI - SHNOTN - MFINIT 


IF (»NOTSSTATIC) GO TO 40 
IF (NOZPOS.NE,(=1)) GO TO 10 
60 FO 30 


IF (NOZPOS.EQ,0)} GO TO 20 
FIND = FLDCL + MMOT 

GO TO 25 

FIND = FLOCL = MMOT 
CONTINUE 

CALL CONT 


FINDP= FIND=FI 

CFPROP=F INDOP/{PNS#ATI 

RETURN 

FIND = FEOCL 

GO TO 25 

MSRB = MINST ¢ MMOT + MM2E5T 


MVEHT = MORB * MET + MSRA 
FVFHI = MVFHERAVEH! 

FSRB = FYFHE = FSSME + DRAG 
FIND = FSRR ~ FM2EST 

CALL CONT 


FINOP = FIND ~ FI 
CFPROP = FINDP/{(PNS#AT) 
RETURN 

FINUP=0.8 

CFPROP=0,0 

RETURN 

END 
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CFPROP 
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FAMCAL 
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FIND 
FINDP 
F1Z 
FLOCL 
FMef ST 
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JNPUTF 
LIST] 
MET 
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MF INIT 
MF ILNRT 
MFINTZ 
MF OUT 
MFOUTZ. 
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MIFZ 
MINST 
MIR 
MMOT 
MMOT } 
MM2E ST 
MORR 
MSRB 
MVEHI 
NAKRST 
NCASES 
NISP 
NF 
NLEWIS 
NOZPOS 
NPH 
NRECON 
NSI 
NTAUTO 
NUNIT 


UNWROS 


PAKMK 
PAR 
PCTAL 
PEPG 
PFLAG 
PHEADZ 
PHEPI 
PHST 
PITw 
PNS 
PNSAAR 
RETURN 
STATIC 
SWOOTN 
TAUAKR 
TEREC 
TIMFPH 
TIMFZ 
TOL1 
TOL} 
TSREC 
TwER 
VF WEB 
WD 
WOTOT 


N 


cS 
in 
“ 


Ce ee 


Sco 
4C0 
sco 
175 
4c0 
10FQ 
10E0 
32= 
6co 
i1lco 
3co 
3co 
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aco 
11¢0 
3C0 
3co 
11c0 
9c0 
9c0 
lee 
6CO 
11¢0 
]2co 
6CO 
6co 
6C0 
11co 
aco 
Tco 
8CO 
15¢ 
aco 
12C0 
11¢0 
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11c0 
4@co 
6co 
6C0 
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aco 
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SUBROUTINE FSCAL 


SUBROUTINE FSCAL 

THRUST TRACE SCALING MONULF (ROBERTS) 

IMPLICIY REAL (AHHsO~Z0M) 

COMMON/ELKH04/ DTAsNDTE oMC (30) AL sAK (15) sCK( 10} ¢ePCBTsARETReARFITEs 
1 STBNL sSIGT SE TART sQ8T sWPBTsOPR POPE » AHALFE sCLAME sQATE pWINF oWPE 9 
2 OK(10) sPAMBT »PEXATePEXIT ; 

COMMON/BLKOOA/ ATB (50) 4AFSRM (50) + MPNOMsTA«NMP.NTA 

COMMON/HLKO09/ MEFOTeMPTOT s SITs AMIRR(10) sAMPRK (10) sDELT eMPRRoMEZ 

COMMON/ELKO10/ NP (30) 

COMMON/ELKOL34 CSTARSSIAR sSIDE WDE pPETANZ eCSTAR2 SIACONSETANZ1» 
& CLAM» SIRAT+SILOVAsSILOBs SIL2PHsSTASsSILDVE sSILQE s+ SIL 2PF 

COMMON/ELKO14/ PTPNePFSRMePMF SRM sPPC 

DIMENSION TPN(50) oF SRM{S0) eMFSRM (50) eMPR (90) 9PC (SO) 

NPMAX = NP(O1} 

IF (NTHLGT.O)} 60 TO 20 

TH = ATBINPMAX=1} 

THNOM = ATRINPMAX<}) 

IF (NMP.GT.0} GO TO 30 

MPTOT= MPNOM 

TPN{1)=0,.0 

FSRM(LI=Oe0 

MFSGRM{(1)=0.0 

MPR OLISMPTOT 

PC{1L}=uUe0 

NO SO T=2+NPMAX 

TPN(I) = TR/TBNOH % ATH(T} 

IF (TPN(E).GT,.1TH) RETURN 

PTPN=FPNE1) 

FSRM(T) = TBNOM/TB * MPTOT/MPNOM * AFSRM(L) 

PFSRM=FSRM (TS 

MFSRM(T)= FSRMOL} /SIDE 

PMF SRM=MFSRM(T) 

OELTS{TPN(T1=-TPN(T=<1)) 

MPRETPSMPR(T<-1) - ¢MFSRM¢I<1)4+ MFSRH(T)) 7200 # NELT 

MPRR=MPR ( J} 

PCC) = MC{(1)4FSRM(T} 

PPCSPC (FE) 

CALL INERT 

CALL OUTPUT 

CONTINUE 

RETURN 
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INERT 
STSCaL 
OUTPUT 
OUTPUT 
QUTPUT 
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TNOE xX 
SYMBOL 
io - ale 
fa) = i 
30 7 14 
40 - ale 
50 - 2100 
AFSRM - 4co 
AHALFE ~ 3co 
AK © 3c0 
AL bas 3c0 
AMIRR = sco 
AMPRR = 5¢cO 
ARF TS =. 3C0 
ARETE - 3c0 
ATB - 4c0 
HLKOO4 « 34 
BLKOOA = ae 
HLKOO9 = 54 
BLKO1O = 68 
BLKOLZ =~ 7H 
BLKOILS) = e4 
CK = 3c0 
CLAME - 3co 
CLAM} - 7CO 
CSTAR - 7co 
CSTAK? = 7co 
DELT “ 5co 
DPH - 3c0 
OPE = 3co 
OTs = 3c0 
OTE = 3c0 
ETABT ~ 3co 
ETANZ 7 7€0 
ETANZ1 «© 7cQ 
FSCAL - 1# 
FSRM - ob! 
1 - — plne 
INERT = 34H 
MC - 3co 
MF SRM - ont 
MITOT - 5cO 
MIZ = sco 
MPNOM - 4CO0 
MPR - gh 
MPRR Sad 5co 
MPTOT - 5¢c0 
NMP = 4C0 
NP - 6C0 
NPMAK - 105 
NTB - 4CO0 
OK - 3c0 
OUTPUT ~ ase 
PAaMRT - 2CG 
PC - SD] 
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PCHT - 3co 

PEXRT = 3ca 

PEXIT = aco ; 
PFSHM = 8cO 26= 

PMESHM = RCO eas 

PPC - aca 3s 

PTHN - aco 242 . 
QAle * 3co 

aet - 3co 

RETURN - ea 378 

STACON = 7c0 

STAF - 7CO 

Stas - 7c0 

SIBAT = 7C0 
SIBNL aco 

SIBT - aca 

SIDE ~ 7cO a7 

SII - Sco 

SILDVR + 7ca 

SILDVE - 7c0 

JSILQH + 7co 

SILQE = 7c0 

SIL2PR  ~ 7CO 

SIL2PF + 7CO 

18 - 4co les 22 23 25 
TANON = 13= 22 25 ‘ 

TPN - SI 16 22= 23 24 29 
WHE - 7CO 

WINE - 3co 

WPT - 3co 
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SURROUFINE GETDAT (TIME) 

COMMON/ELK023/ DATA(10) eNWRDSeNUNIT 
DIMENSION SAVE (10) 

IF {TIME6EQ,0.0) GO TO 10 

IF (TIME CL T20.0) GO TO 90 

Ga TO 50 

REWIND NUNTT 

READ(NUNIT,END=70) {DATACT) I=. sNWROS) 
IF (OATAC1).EQ.0.0)} GO TO 20 

IF (OATA(1}.GT.0.0) GO TO 30 

NO 1S Je PeNWROS 

SAVE (J) =DATA (J) 

GO 10 12 ‘ 
DO 25 FEleNWRDS 

SAVE (1) =DATACI} . 

RETURN 


DO 40 T= }.NWRDS 

DATACT) = SAVE CED + (DATACT=SAVE (1) ) HUT EME @SAVE (1) 9/7 (OATAC1I=SAVE (3) 
$} 

RETURN 

READ(NUNITsEND=70) (DATACT) «T= 1] eNWwROS) 


IF (DATAC]) .GE«TIME) GO TO 36 
BO 60 J=1eNWRDS 

SAVE (J) =DATA (J) 

60 TO §0 ’ 

WRITE (6080) TIME sMATALL) 

FORMAT CUIERROK IN GETOAT OF RECON MODULE*/*ONO TIME MATCH FOUND!,. 
B® LOXst TEMES 4E15e8e5X9 DATA (1) 54961548) 

STOP 


WRITE (Ge100) TIME 

100 FORMAT (*IERROR IN GETOAT OF RECON MONULE*/*OTIMF LESS THAN ZERO®} 
STOP 
END 
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SYMHOL Poe ed Soe ee fot oe oe Oe ee oe ee ee ee ee ee REFERENCES ae eee Se eee ee ee ee ee ee ee ee ere ere ee 
10 - 4 7 
la = ae 13 

1s by? Vino 12e 

2n - 9 140 

ag - 1400 1S 

sn - 1u 17s 21 

40 = V7HoO {Re 

50 - 6 ene 24 

60 = 2e0t) 230 

70 - 8RD 20R0 25° 
RO = PSWR 264 
it) ~ 5 cae 
100 = PAWR 2oe 
SLK023 7 ex 
DATA - ?CO Arp 9 10 12 15 {Hs 20k 21 23 25WR 
GETNAT = 1e 
1 - aRD 14D0 15 L7n0 1a 20RD 
J 7 11b0 le 22h0 23 : 
eNUNTT - eco 7? BRD 20Rn 
NWwRDS cal 2C0 BRO 11990 14hH0 170 20RD 2200 
RETURN = At 194 
SAVE - 301 1?s 1s= 18 pP3= 
stop - 27e ao* ; 
{IMF - 1AG 4 5 18 21 29WR 246WR 
ore te eee rer ore rere er ert tere r errr. Tire rrr rte tere iter rt oer ere eS Pr or eer 
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COMMON/P ARMY /WF 


SUBROUTINE INERT PAGE 
SURROUTINE INERT 
INERT MASS MODULE (HARRIS) 


INTIALIZE MI7=MITOT AT THE BEGINNING OF EACH CASE 


IMPLICIT REAL (A=HyO~Z om) : 
COMMON/BLKOOS/ NLEWISeNST eNF eNRECONsNCASE SND I SPeNCASE ALL 
COMMON/BLKQ09/ MITOTsMPTOT+SITeAMIRR(10) sAMPRR (10) DEL TeMPReMIZ INERT | 
COMMON/BLKG10/ NP(30) 
COMMON/BLKOL6/ MFINI TSP LMT F oMIFZ sMIRof 1Z9AT TINS ALTVIN 
COMMON /COMA/DELTT pAPHE sWOOT DT pANIBOe TIMEW SUT yANLOPS S ACCEL» 

ABCYL sPRANT (101615) sAINCHE sAMACHe 2CALC (101) 


1 
COMMON/PARMF/PHs TIME sAINCW eT ePsDELTAeUs AKUY PON + DIS eAMPNo AT? 


AMWeAKRST 


IF (NF.EQ,0) GO TO 10 

MPR=WF 

IF (TIME eNE.O.0} GO TOS 
OELTIM=PELTT 

MPTOT=uF 

GO TO 20 

OELTIM = TEMF<TIMEZ 

GO TO 20 

DELTIM=DELT 

MPRR=MPR/MPTOT 

CALL LIN (AMPRR s AMIRR «NP (10) sHPRReMIRR 5 10) 
MIR = M]TOT&MIRR 

MIF =(M]2~MIR)/DELTIM 

MFINIT = HFINIT ¢ C{MIF MIF Z} 72,0) #DELTIM ~ 
MIZ7 = MIR 

MIF Z=MIiF 

FI = MiFeS?y 

AITIN = AITENGO S#(F ICR IZ) SHELTEM 
AITVIN =AITIN 

FIZ = FI 

IF (NF eNE.O) TEIMEZ=TIME 

RETURN 

END 
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SUBROUTINE IWERT 


SYMBOL eee ree eee eee eer errr ret re REFERENCES 
‘ = le 16% 

10 - 14 [Re 

rot) - 15 17 ly 
ABCYL - 7c0 

Accrl - 7c0 

AINCHE «+ 7c0 

AINCW - 8co 

AITIN, = 6CO 27s 29 
ALTVIN - 6co ef 

AKOY - BCO 

AKRST - eco 

AAACH - 7co 

AMIRR - 400 20AG 

AMPEI - HCO 

AMPSH - 4CO 20aG6 

AMW - ACO 

ANT Hi) - 7co 

ANLOPS 7c0 

APHI - 7co 

Ar ~ sco 

BLKOOS) - 38 

BLANOD  ~ 4o 

BLKO1O = S¢ 

BLAOIA = 6% 

COMA ~ 7s 

OFLT - 4€0 18 

VUELTA ” aco 

DELTIM = 13= 16> 1 B= 2a 23 27 
VELTT - 7C0 13 

ors ” aCO 

FI ° 6CO 26s 27 29 
FIZ - 6CO 27 29s 
INt RT - 1+ 

LIN = 7% 

MEINIY = 6CU a3 

MIF - 6C0 22= 23 25 26 
MIFZ - 6¢0 23 752 
MIR 6co 2s 22 24 
MIRR =- 704G 21 

MITQT - 4&co 21 

il 4 - 4cO 22 24 
MPR - 4CO Ll= 9° 
MPRR = }9= 20AG 

MP TOT - 4c) 145 19 
NCASE - 3ca 

NCASES) - 3ca 

NNISP - 300 

NF - 3c0 10 30 
NLEW]S = 3c0 

NP - SCO 20AG 

NRECON = 3ca0 

NSI “ 3co 

Pp “ sco 
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PaRMF 
PAaRHY 
PH 
PON 
PRNT 
RETURN 
SITY 

Tt 

TIMF 
TIMFW 


TIMFZ 
U 

UT 
WOOTT 
WF 
ZCALC 


a4 
94 
6co 
&CO 
7c0 
314 . 
4CO 26 
8CO 
acOG 12 16 30 
7ca 
HE VAREABLE= TIMFZ “iS USED BEFORE ET IS DEFINED 
16 30s 
aCc0 
7CO 
7¢c0 
$co 11 14% ‘ 
7co0 
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SUBROUTINE TlTi 


SURROUTINE INIT1 

IMPLICIT REAL (CAwHs0=2,—M} 

LOGICAL ERReLISTIsSTATIC 
COMMON/ULKOOL/ERKTOL pS IRKTOZSERRGIN 

COMMON/ALKN09/ MITOT MPTOT eo SIE sAMIRR (10) sAMPRR ETO) COFLT oMPReMI7 
COMMON/BLKOV6/ MF INT TF 1 MILF eMIFZeMIROFIZSATTINGAITVIN 
ERR = ,fALSE. : 

MFINIT = 0.0 

MIFZ=0,0 

MI7=MITOT 

FI7 = 0.0 

ALTINEN.O 

RETURN 

END 


INERT 


Pare 


al 


pruceot-9520 


6h-2 


INOE xX SUBROUTINE INIT) PAGE 
SYMRHOL Sm EEE eRe eMeR eM ew Ememsmemsmewsenemeugeda REFERENCES Sem eM Fede memset sme eMe whut estetaeswemenpwreas 
AITIN - 6co l2= 
AITVIN = 6CO 4 
AMIR = sco 
AMPRR “ 5c 
SLKOO] = 4 
BLKO09 «= se 
BLKOI4H = 6* 

DELT - SCO 
ERR = 3L6 4C0 T= 
FY > 6co 
Fr2 - 6CcO Lic 
IN - 4C0 : 
INITL = Je 
{RKTO] « 4ca 
[IRKTQ2 0 ~ 4c0 
LIST1 - 3LG 
MFINIT = 6co As 
MEF = 6co 
JMIFZ Be 6cO $= 
MIR - 6C0 
MLTOT - 5c 10 
MIZ - sco 10= 
“MPR - 5co 
MPTOT = sco 
RETURN = 13# 
sit - 5c0 . 
STATIC - 3ILG 
eee mh mead meh ee Sy meme tm he Hee Ee HEE MER HREM ENMEMHEM HREM EMEM EMER EMA SEEM ERE Me ER ER EMEWM QO EM 
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SUHROUTINE [TMPUT Pyct us 


SUAROUTINE INPUT 

IMPLICIt REAL (AeH«O~ZeM) 

COMMON/ULKOOL/TFKTO]  IRKTO2eERReNOUT 

COMMON/ELKN0G6/ OTB NTE eMC (30) pAL eAK (15) sCK (10) ePCAT2ARFIBeARETEs ATES zi 
} STBNL,SIBTsE TART sQRT»WPBT eOPRSDPE sAHALFE + CLAME eQATE »WINF sWPE > HATES 
2 OK (10) ePAMBT sPEXRTsPEXIT 


CONMON/BLKOOS/ NLEWIS »NSI #NF sNRECON + NCASESsNDISP eNCASE ALL 
COMMON/BLKDO7/ SICONsPCTeARET ePAMT sAHALF | 9 HD2 ePCAVE cos! 
COMMON/BLKDOB8/ ATB(S0} »AFSRM(SO) » MPNOM,s TAsNMP NTR FSCAL 


COMMON/ELKNOG/_ MITOT »MPTOT sSTE¢AMIRR (10) -AMPRR(10) DELTsMPReMIZ INERT, 
COMMON/BLKO10/° NP (303 


COMMON/BLKO11/ ETACS+TSOL SISCAL 
COMMON/BLKOLS/ AT ATBARMFIN MFENRTsMFINTZsMFOUTZeMINGT»MMOTT =| RECON 
COMMON/BLKOL7/ PRARsPFLAG+PHEANZsPHEPI + TEMEZ+ TOL De TOL 3eMVEHI «| RECON 
$ NOZPOS ¢ . RECON 
COMMON/BLKOE8/ PANIC (2) PADA 
COKMMON/ALKO21¢ TSRECsTERECyCSRAR sPNSBAR » TWEBeP I TWeCSCOFF (3) LIST] #RECON 

% STATIC RECON 


COMMON/ALKO2S/ NTAPE.NPLOT eNCARD 

COMMON/BLKN26/ NIBFLG 

COMMON/ELKN27/ OISLIM(20) oMITSAVeSETFLG 
COMMON/BLKN2B/ALPHA + OEX s KLAMAD SSELSAYCSTARL 

LOGICAL ERRsLISTI STATIC 

DIMENSION HEADER (201. TITLE C70} 

DATA HEADER/SISPACt TF SH etUTTL Es %E SO'etLID tetROCKISIFT Ale 

1 *HOSTHSTER PPeMERFORS RUAN SICE Ete tVALUtyFATIONstN MOTSEDEL be 


aft tat t,t bgt of 

QATA TITLES e,9 oye Fy? t,t t,t t,t Ne 
$ ' t,s t,t tet ta! tat ty? ry 
g t Hee a, t,t ty? tet “7 


REALSS ACEO) eCASE pCONT«LFWISs IONS IBM 

DATA CASE/ICASE ENN '/+CONT/#CONTROL 1/ 

DATA LEWIS/*LEWIS DAt/sIDN/SYDNOZL Dt/>TAM/4TKM DATANS 

NAMELIST/ INPUT] /AF SRM» AHALF 1 sAHALFE eAK AL» AMIRRo AMPRR SARE TsARETRe 
ARETE +s ATBeA TBARS CK eCLAME sCSRAReCSCOEF +DPu DPE sOTHsDTF yETARTs 
ETACS + IRKTO) sL IST? eMC oMINST oMI TOT gMMOT I ¢MPNOMeMP TOT ¢MVEHE oNCARD » 
NCASES *NOT SP oNF eNLEWIS «NMP eNOZPOS ¢NP oNPLUF »NRECON NS! sNTAPE eNTAy 
OK pPADJC sPAMBT sPAMT sPRAR sPCAVE sPCBT sPCT sPFLAGsPHEPI sPTTWeQAlE s 
QHT+STBNL» SIBTeSICON SII eSTATICs THs TERECs TITLE s TSRECs TWEA SD WN2s 
WINE ¢WPBT»WPE eDISt IMs ALPHA, QEX eXLAMB0+SILSBsCSTARI | 

NOUTS10 

NIKOUTS20 


ANS Whe 


TRANSFER DATA FOR THIS CASE TO DISK ANO PRINT EACH CARD 


NCOUTENCASE +] 
WRITE (604) NCOUT 
FORMAT (*1 CARD IMAGE OF INPUT DATA FOR CASE sI3///) 
REWIND NOUT 

NL=0 

NIBM=0 

NIONS0 

NwRIBM=0 

READ (S+¢20eEND=150) (ACT) of=3910) 

FORMAT (30A8) 


b-OcCOL-9S26 
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39 WRETECNUUT, 20) (A{T)oE=1+10) 
40 WRITE (6135) (At]}¢T=b010} ri : 
4} » 35 FORMATC(" *,)0A8) 
c : 
c WRETE 18M DATA FROM FIRST CASE ON UNIT NIBOUT FOR LATER RECALL 
c 
42 IF (NWRIBMsEQ,1) WRITECNIBOUTs20) (A(T) eleirl0} 
43 IF (AQ))sEQ.IBM «AND. NCASE,EQ.0) NWRIBMS)1 
46, IF (ACh) .EQ,CASE} GO TO 30 
45 Go TO 10 
46 30 END FELE NOUT 
47 WRITE (6940) 
4B 40 FORMATCTOALL OATA CARDS FOR THIS CASE HAVE BEEN TRANSFFREN TO DISK 
$4} 
4Y REWIND Nout 
‘Oo TF (NCASE.EQ.0} END FILE NIBOUT . 
sl JF (NWRIBM.EQ.2) NIRFLG=1 
Cc 
c SEARCH FOR CONTROL BATA 
c \ 
be 30 READ(NOUT+20eEND=110) (ACT) eT&1910) 
53 IF (A(1) e£Q,CONT) GO TO 60 
54 GO fo 50 
ss 60 READ(NOUT;: INPUT]} 
Cc 
Cc SEARCH FOR TYPF OF NATA AVATLABLE 
Cc 
56 70 READC(NOUTe20eEND=8N) (ALT) eI =1010) 
S57 TF (ACL) sEG LEWIS) NL=1 
$s IF (AC13 EQ. IDN} NIDNS) 
$9 IF (A¢1}eEQ,2BM) NIAM=] 
60 Go TO 70 
c 
Cc TEST FOR SUFFICIENT DATA AVAILABLE TO RUN CASE 
c 
61 80 IF (NLEWIS.EQ,1 sAND. NisEQ.0) GO TO 130 
62 IF (NST EQs3 2ANDe NIDNEG.0) GO TO 130 
63 IF (NF oGT,0 «AND. NIBM,EQ.0) GO TO 130 
c 
c WRITE HEADER AND TITLE 
¢ 
64 WRITE(6090} (HEADER (I) eI=1+20) 
65 90 FORMAT CLE LTIA) sF25¢AG CURED /T2Z5 0 FHI BAK eo IAN/TA5 GOH HL PDAG,F Ot 
STAS at hi sae, tte) ; . 
66 WRITE(69100) (TITLE (I) sI=1920) 
6? 100 FORMAT (T25 ot @e2OAGe? HOST25, DHE AOXe EM E/ST 25 1 BG (NHE) ] 
68 REWIND NOUT ‘ 
69 RETURN 
c 
c ERROR STATEMENTS . 
c 
70 110 WRITE (69120) 
71 120 FORMAT{ PF O###ERRORHHENO CONTROL DATA SECTION!) 
72 125 REWIND NOUT 


73 GO TOS 
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74 130 WRITE (60140) 

1S 140 FORMAT (10#64FRHORSOOINSUFFICIENT DATA TO RUN THIS CASE?) 

76 GO ¥a 125 

7? 150 WRITE (69160) A 

73a 160 FORMAT(*} +284) sT45etA LL DATA CASES COMPLETED 
$f) , 

yy STOP 

80 ENO 


trfehOL-esett 
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SYMROL Set ee ee toe oe Pe ee ee ee ee ee ee ee REFERENCES ee ee ee ere ee eee oe ere eres 
S ~ 29% 73 

8 “ AOWR 31# F 
10 - aye 45 5 . 
20 - 3TRO jae S9WR G2uR 52RD 56RD ‘s 
30 - 44 46% 

35 ms 4OWR 4l* 

40 sad 4T7WR 4a4 

$0 - S24 54 

60 - §3 SS 

70 - She 60 

80 = 56RD 614% 

90 - 64WR 65" 

100 = 66WR 674 . 

110 * 52RD 70# 

120 - JOWR 71% 

125 - 72% 76 

136 - 41 62? 63 74% 
140 - T4WR 75* 

150 - 37RD 77# 

Lod = T7WR TAS 

A - 23RL 37R0 3OWR 40wR 42WR 43 44 Sern 53 56RD 5? 5A $9 
AF SRM - 7co 26NM 

AHALFE = 40 26NM . 

AHALF] = 6co 2Z6NM 

AK - 4co 26NM 

AL - 4c0 Z6NM 

ALPHA * 18CO 26na 

AMIRK - 6co 26NM 

AMPRR - 8co 26NM 

ARET - 6co 26NM 

ARETB - 4C€0 Z6NM 

ARETE - 4cO 26NH 

aT - 1!CO 

ATS = 7co 2éNM 

ATBAR - 12C€0 26NM 

BLKOO1 ~ 3e 

BLKOO4 = 4 

BLKOOS = 5* . 

BLKOQF « 6e 

GLKOOCK = Tt 

BLKO09 + Ae 

BLKOlO - oe 

BLKO1I ~ 104 

BLKOIS = 114 

BLKOI7 ~ 120 

BLKOIA = 134 

BLKO2Z)1) = 14% 

BLKO25) = 158 

BLKO26 = 16* is 

BLKO27) ~ 17* 

BLKO2ZA = LAs eet 

CASF - 23RL 24DA 44 


cK _4c0 26NM 


y-02001-9520 
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[TR FX 
y 


CLAME  - *‘4Co 
CONT - 23RL 
CSHAR - 14CO 
CSCHEF = 14cO 
CSTAaR] = 18cO 
UELT - sco 
OISLIM = 17CO 
OP& - 4con 
DPE bed 4ca 
OTs - 4CO 
OTE - 400 
tRK - aco 
E TART bed 4CO 
ETACS 7 10C0 
HEADER «= AONE 
I - I7RED 
IRM - P3RL 
ton - P3Re 
INPUT “ V4 

INPUTL « ?ONM 
TRETOL = 4cQ 
TkKTOA + 3¢a 
LEWIS ~ PRL 
List] - 146CO 
MC - 4CO 
MF IN - 11¢co 
MFINRT = 11¢0 
MFINI2 ~< 1iCco 
MFOUT? = 1ica 
MINST bad 11c0 
MyTTOT ~ &ct0 
MITSAV « +7C0 
MIZ - aco 
MMOTI = tico 
MANOM - 7 
MPR - aco 
ME TOT ~ acy 
MVERT = }2c0 
NCARD 7 15co 
NCASE - $co 
NCASES = 4co 
NCOUT - POs 

NOISP - SC0 
NF - sco 
NIHKFLG ~- 16cn 
NI@M - ya= 

NJHOUT - PAs 

NTUN - 3S= 

NL . 335 

NLEWIS = 5co 
NMP ~ 7c0 
NOUT - 3C0 
NOZPOS «# 12C0 
NP - sco 
NPLOT = 15C0 


FARM 
e4Da 
26NM 
26NM 
26NM 


26NM 
26NM 
26NM 
26NM 
26NM 
19LG 
26NM 
2 6NM 
21na 
39WR 
ana 
PSDA 


SSRU 
?4NM 


asna 
19,6 
26NN 


24NM 
?6NM 


2ANM 
?6NM 


26NM 
26NM 
26NM 


26NM 
30wR 
26NM 
24ANM 
Sl= 
59= 
42wR 
$a= 
S7= 
26NM 
26NM 
et= 
26NM 
266i 
26NM 
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53 


64WR 

40wR 42uk S?ern 56RD 64WR 
43 sg 

$8 


5? 
26NM 


43 50 


je 39nWR 46 49 SeRd 


66wR 


55RD 


S6RUD 


68 


72 


vrlZOO bk oGcit 


SS-2 


INOE Xx 
NREGON = 5co 
NSI - 5CO0 
NTAPE - p5co 
NTB - 7CO0 
NWRIBM = 36x 
OK - 4C0 
PADUC is 13c0 
PAMBT - 4CO 
PAMT ~ 6CO 
PHAR - $2co0 
PCAVE “ 4CO0 
PCUT - 4C0 
PCT - 6CO 
PEKAT - 4CO 
PEXIT - 4C0 
PFLAG - 1200 
PHEADZ - . 12C0 
PHEPI - 12C0O 
PITw - 14C0 
PNSRAR ~ 14CO 
QalE - 4c0 
QBT - 4c0 
GEX - 1AaCO 
RETURN = aoe 
SEFFLG = 17CD 
STBNL = 4coO 
SIsT - 4CO 
SICON - 4CO 
Stl ~ 8CO 
SILSB - 18C0 
STATIC - 14c0 
stop - 79% 
fe - 7CO 
FEREC - 14€0 
TIMEZ - 12c0 
TITLE “ 20d] 
TOLI1 - 12c0O 
TOL3 - )2c0 
TSOL - 10CO 
TSRFC - 14CO 
TWEA = 14cQ 
wo2 = 6CO 
WINE - 4C0 
WPBT - 4CO 
WPE. - 4c0 
ALAMBIT ~ 18CO 
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26NiN 
26NM 
2ENM 
42 

26NM 
26NM 
26NM 
26h 
26NM 
26NM 
26NM 
26NM 


26NM 
26NM 


26NM 
26NM 
26NM 


26NM 
26NH 
26NM 
26NM 
26NM 
1L9LS 


26NM 
26NM 


2204 


26NM 
26NM 
26NM 
26NM 
26NM 
26NM 
26NM 
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SUBROUTINE IvTREC Pate 
SUAROUTINE ENTREC 
THIS ROUTINE INTTIALEZES QATA FOR A RECONSTRUCTION RUN, 


LOGICAL IcoMP Lo 
COMMON/BLKaAP/ TCOMP,ITPASS . RECON 2 
COMMON/ULK 0254 AFIT) ADEL» ICOUNT 
COMMON/ INPUTF/NPH «PHST (70) oe TIMEPH (70) NAKNST ¢ TAUAKR O30} 5 
AKRTAUC3N) eNTAUTOsPCTAB 
COMMONS INPUTM/STFL AG »STOYST NELTST sOELTSS eOELTIO 
COMMONS INPUTMZAT TST PST s TST eTIMPT1 s TIMP T2 DEL TSP yANI TW 
STovSTs0.0 
STFLAG=1.0 
TST=1000. 
NAKRST=O 
[COMP= FALSE, 
[PASS=0 
AFTT=0,0 
ICOUNT=0 
RETURN 
END 
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£52 
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INDEX SUBROUTINE INTREC PAGE 
SYMHOL Fame tnt nm tm tm bn tm em samememgmbarayeguturamemen REFERENCES _ Bette tate beta tadatotmdatantaetutatatutatotat 
ADE, 7 4C0 i 
AFIT - 4C0 45, 7 s 
AITST * 7CO .* - 
AKRTAU = 5co0 
ANITW - 7CO 
eLKOge = 34 
WLKO24) - 4H 
DELTSP - 7co 
DELTSS ~ 6Co 
DELTST - 6CO 
DELTIO ~ 6c0 
1comMp - ALG 3ca l2e= 
ICOUNT - 4CO 15s 
INPUTF = Se 
INPUTM = ae 
INPUTIN - 7" 

INTREC = \* 

IPASS - 3ca 132 
NAKRST = 5co lis 
NPH ~ sca 

NTAUTO  ~ 5¢0 

PCTAB - Sco 

PHST - sco 

PST - 7co 

RETURN ~ 16+ 

STOYST - 6Ca B= 
STFLAG = 6CO 9= 
TAUAKR - 5€0 

TIMEPH =~ 5cO 

TIMPT] - 7C0 

TIMPT? = 7CO 

TST - 7¢c0 10= 
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SURVOUTINE ITIANZ 

IMPLICTT REALAA (Anit,O-7) ' 

LOGICAL ERR 

REAL?H EONOZ/PIDMOZL Des 

COMMOIN/ELKOOL/IBK TOL IPKTOZeF RR IN 

COMMON/COMO LZ TSTAGK 6 TEXE TK CHEN SE SENSPROP » WTMOL G9 CUGU « 
1 PARWT skCHe St OP £¢S1 OPA gRARC] RARCZ ARF eNOZT YP s INRUGs IDNPRT 
COMMON/COMO2/ FTAGsFTAP eH ALPHAsALOWSCNST} oCNST?2 6CNSTUCNSTAy 
CNSTS eCNSTAyCNST 7 eCNSTAdCNSTS A CNST ID eCPGOe CPG CPL oCPP CPSs 

DF UUs PE NOM» QHOND s DMONt sDNUST sDOMAX DUMAX 0 OX sDXO,EPS1L FEF PSAsFPSM, 
EPSM2sEPSNeFPSU ERROR EULST oFCTR oF X] aFX29F X39 9G 6 GAMMA IGMACHS 

GMS SP eGNUG »GMUS ¢GHELGT ¢GNUMe HO eHOR «HOW sHONX sHLM es HM eHSM HSTALis 
HUPX oe oPREPSTAG COUFD FQUEHeReRC aRE PeHGAS *RHOSRHOON. ePUOST eR s 
RTHsSTOVAs SIGK SORMs TAU TAUG eIGe (GOoTMe IPs TSlaGet Ts slits 
UGAD OUD + GOUP eHIGDNX (UGUPX sUP FUP O UP OONSUPOUP sUPDFIY GUPUPA SIT) 
WPWH OK eXAD AKON XL eX AaXBaXF oXMAX XT 9 KX ass 
COMMON/CGAD IZ ATAAL( 3) eUY 03) sHON (500) sHTAL (500) pHUPT'.O0) PRTARL (4) 5 
1 UGON (900) UGTBRL (590) sLIGUP (S00) -URON(SO0) PUPTHL (500) tPF (S00), 
2 WORK (33) 2 XDNChO0) »X TAL (5001 »XUP (S00) . 
COMMON/COMD4/ CAY] »CAY2 «CAY4 ¢CAYR » CUED p CUE] pCUED, CUES ¢CUFR,OVILSTs 
1] ELON sELT eEL2sEL4 + GAMAAR sOUAN] ,QUAN2 sQUAN3 e QUANG , QUANS «FL PMHe 
2 UTPReRPLST 

NAMELIST/ONEVNZ/ 
3 PSTAGe TSTAGK eo TEXI TK CHEN FXEN sGMUS @PROP p ALPHA CPL a CPS tHL Moths, 
4 TMsPARWT sGMSSP eATAAL oF PST eEPSH+DX0 sRTABL tH TMOL Ge IDNPRT +s INRUG 
CALL VATLOC(TONGZ) 

IF (ERR) RETURN 

READ CEN sONEDNZ) 

RETURN 

END 
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SYMBOL mend dmembwsmbwemtutasmtmtatutmtmbmtn ta te REFERENCES «—_ w# etn fa tm tm tu tm twsmemsmem tetera tataotmentas 
ALPHA = 7co 10NM 

RR 5 opt OU gs es rh ri hI SN Ne A el ae ts eh carta - 
ATABL = co 1ONM . 

BLKOOL = St 

BLOW = 7 Pes att to Lg es SC eA ee he ag 
CRY TE rr tte ee ce ee ee 

CaYi s 3co 

CAl2. os CO aS See ee ht, Ke shed Reckitt, iemine Diiee: ee Me Ges ve NS oo Se 
cays 7" ™ 6¢77 7 = 

CHEN = 6co 10NM 

CNST1 = 7c0 

CNST1IO = 7c0 

CNST2 - 7CO 

CNST3 = 7c0 

CNST4 - 7Ccv 

CNSTS ie 7co 

CNSTb cl 7c0 

CNST? = 760 

NST = 7cO 

CNSTS al 7cO 

COM01 id 6% 

COMn2 = 7* 

COMn3 - 8H 

COMn4 = + 94 

CPLG i 7C0 

CPG - 7c0 

CPL - 7cO" 19NM ~ 
CPP - 7co 

CPS = 7co t£QNM 

CUER - 5co : 
CUEO - 3co 

CUE) = 9ca 

CUE2 as 9ca 

CUE4 = 9cO0 

cu6o = 6CO . 

OaTLOC = li* ~ : = re 8 oS - Pg ae - - ora 
OELU = 7¢c0 

LENOH = 7co 

DHOND 7 2¢0 ns oe aeere ee som a a a ee mth - 
OMONU - 7c0 

DONLST = 7co 

bawax = 7co - iz 

UUMAX - 7co 

Dx - 7co 

DXO = 7cO 1ONM : 

by - 8co 

Dylist + 9CcO 

ELO - 9co ts tA ass i : : 

ELi = 9ca 

EL2 * 9co 

Et2mh = ~ 90 eee te SEN, : 

EL4 - 9c0 

EPSM “ 7cO) 1 ONM — . Lae Peer 
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LPSM?2 - 7ca 
LPSN - 7CO 
EpSu - 7c0 
kPS1 = 71€0 10NM 
EPS? - 7c0 
tRR ~ 3aLG co le 
ERROR - 7cu 
ETAG - 7c0 
ETAP ~ - 7co 
EULST - 7co 
EXEN = 6Cc0 LOM 
FCTv - 7c0 
FX. - 70 
Fx2 - 7Tco 
tXx3 - 7co 
© - Wier) 
GAMHAR = 9¢0 
GAMMA - 7c0 
OMACH - TCO 
OMSSP - 7c0 1ONH 
,O4UG - 10 
GMUS - 7co LONM 
ONLST - 7co0 
GNUM - 700 
Hi - 7¢c0 
HON - HCO 
HONX = 7c0 
HLM = 760 LONM 
HM ~ 7c0 
HSM ” 7co LONM 
HSTAG - 7to 
aThL ~ &cO * 
HUP - BCcO 
AUP X “ 7co 
HO - 7cO 
HO) - 7CO0 
HOU - 7c0 
TOKUG - 6co 15NM 
Tona? - SRL 12AG 
TONPRT = 6(0 10NM 
1N - 50 13RD 
ARKTOL «= 5¢0 
TkKIO2 «4 5c0 
* .ITIONZ = 14 
NOZTYP = 6co 
QNEON?Z = 10NM 13RD 
p - 7c0 
PARWI -~ 4co0 1ORNM 
PRO - 700 
PROP - 6co 1ONM 
PSTAG - 7c0 1ONM 
QUAM = 9C0 
GUAN2 ~ 90 
QUAM - 9c0 
QUANG - 9c0 


velD L250 


= 


¥ 
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TN OE X 
QUANS - 9co 
QUED = 7co0 
QuUEH - TCO 
R = 7CO 
RARCt cad 6C0 
RaRCc2 - 6c0 
RC - 7c0 
RCH - 6co 
REP = 7co 
RETURN = 12+ 
RGAS - 7c9 
RHO - 7co 
RHOST = 7co0 
RHOONL - 7cO 
RP - 7co 
RPLST - 9co 
RTABL bad kCO 
RTH - 7ca 
SIGMA = 7c0 
SEGX od 7c0 
SLOP) - 6C0 
SLOPe 7 6CO 
SQkM - 7co 
Tau - 7€0 
TAU - 700 
TEXITK = 6CO 
16 = 7co 
160 - 7co 
TH = 7co 
Tp = 700 
TSTAG - 7co 
TSTAGK 6CO 
TY - 7CoO 
UG - 7co 
UGON = aco 
UGONX aa 7co 
UGTBL = 860 
UGUP - co 
UGUPX - 7co 
UGB - 7co 
UGODN - 7co 
UGOUR = 7co 
uGon - 7co 
uP = 7co 
UPUN “~ aCO 
UPDNX = 7¢0 
UPTBL - 8CcO 
upUP “ aco 
UPUPX ~ 7co 
UPD - 7co 
UPDDN - 7co 
UPOUP - 7co 
UT = 7c0 
UTPR - 9Cc0 
aT) - 7c0 
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10NM 


TONM 


1ONM 
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wikK 
WEWG 
ATMOLG 
x 
xO 
XF 
XMAX 
xT 
ATBL 
xuP 
AX 
xO 
x00 
XY 
xe 
Ag 


c9-2 


yee Bd 


e$ Fst tpree 8 


860 

7cO 

6¢O0 LONM 

70 

aco 

70 

7c0 

7C0 

CO 

ACO : ‘ 
TCO 

7co 

7c0 

TCO ‘ : 
7Ccv . 
7CO 
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SUBROUTINE LESSO[PsCSeN4X} 
DIMENSION F{N) sCS(N) 2X (3) . . 


SUMX =0,.0 
SUMX2 =0.0 
SUMX3 =0.0 
SUMX4 =0,0 
SUMY =0,0 
SUMXY 20.0 
SUMX2Y=0,.0 
00 5 IT=1.N 


SUMKX = SUMX 4#P(1) 

SUMX2= SUMX2 +P (1) #2 

SUHMX3S SUMX3S oP (1) 4e3 

SUMX4S= SUMX4 +P (1) 8 Hy 

SUMY = SUMY +CSt1) 

SUMXY= SUMXY ¢P (1) ®CS(3) 

SUMXPY=SSUMX2YVeP (1) 8#24CS (7) \ 
FNSN 

TOP=(SUMX*#SUMY = FN@SUMXY) #(SUMX#SUMK2 = FN®SUMX3) 
TOP2= (SUMX24SUMY ~ FN@SUMX2Y)%({SUMX) #42 = FN®SUMX2} 
BOT =(SUMX9SUMX2 - FNSSUMX3) #{SUMX#SUMK2 ~ FN®SUMX9) 
BOT2=¢(SUMX2) 442 ~ FNYSUMX4) #((SUMX) 442 - FNeSUMK2) 
X(3)=(TOP-TOP2) 4 (BOT-80T2) 

X C2) SC (SUMX 4SUMYOFNSSUMXY) 9X (3) LSUMX 4 SUMK2=FNUSUMX3) 1 7 


(SUMX@42 «© .FNHSUMX2) 
XCPPSCSUMY =SUMX#X(2) = SUMX24X (9) /FN 
RETURN 
END 
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SYMBOL OEMS Md EM OME MEM EMH Ohm EME me memEeHsmemeDtOED REFERENCES HEM d Meme e Rem babe tm tes bwr bee mtrtmgaseeotod 
b = 10n0 i7# 
BOT - alt= 23 
BOT? = 2ea= 23 
cs = 1AG ani 1s 16 17 J 
FN = 18= 9 20 Pl 22 24 en 
I = 10D0 il 12 13 14 iS 16 17 
LESSO = 1* 
N = LAG 2p) 10n0 18 
R - LAG any 11 12 13 14 16 17 
RETURN = Pbit 
SUMK = 3= l= 19 20 21 22 a4 25 
SUMXY - A= 16= 19 24 
SUMX2 ~ 4a l2= i9 20 71 22 24 25 - 
SUMX2Y = 9= \T= 20 
SUMX ad 55 13= 9 al 24 
SUMXS - 6= 4 22 
SUNY - T= 1S= 19 20 24 25 
Ter - 19= 23 
TOP? ~ Pts 23 
x - TAG 20t 23s 242 ?5= 
Fe EE eam E RE RHE MERE RSENS FR ER ERE ER ERE REM EMH HERES ER EMER ETE EERE EEE ME MEE MEER ERE 
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SUBROUTINE LEWIT 

LOGICAL ERR 

COMMON /BLKOGIZIRKTOL SIRKIN2,ERReIN 

DOUALE PRECISION HStIM+SSUM+CPRsDLVTPsDLVPI sGAMMAS 
COMMON/POINTS/KSUM (13) »SSUM (13) sCPR(13) eOL VTP (13) sOLVPT (13) 

1 sGAMMAS (13) ¢P(26}.6T(26) 6V{(13} oPPP (19) oWM{13) eSONVEL(E3) + TITC13) 
2 oVLM(13) sTOTNE13) F 

COMMON/PERF/PCP (22) a VMOC (13) oSPIM(13) eVACI (13) sSUBAR (13) +SUPAR (13) 
1 sAPP (23) sAEAT(13) aCSTRSEGL sFROZ»SS0sARES + AWT 

IRKTO2=1 

PO 300 T=1424 

PCP(T)I= Oe 

SUAAR(1} = 0, 

P(TI= 0. ° 

CONTINUE 

RETURN 

END 
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SYMBOL 


300 
ALAT 
APP 
AREA 
AwT 
BLKAOT 
CPR 
CSTR 
QLVPT 
ULVIP 
BAL 
ERR 
FROZ 
bAMMAS 
HSUM 

1 

IN 
IRKTO) 
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SURROUTINE LIN (XTABLE sYTABLE Na X 0 Yo) 


#49 LINEAR INTERPOLATION, XTABLE MUST BE IN ASCENDING MAGN? TUDE « 
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20 
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40 
45 


50 
60 


70 
60 


DEPENDENT ENTRY CAN RE IN RANDOM MAGNITUDE FROM SEQUENTTAL CALLS 
DIMENSION XTABLE (N) eYTABLE (NE 

IF (XeGTeXTABLE{N}) GO TO 30 

IF (XaLTeXFABLE(])} GO TN 40 

OO 10 T= leN 

IF (X«LEeXTABLE(]}) GO TO 20 

CONTINUE 

ee eal ae GO TO 50 

Jet 

SLOPE = (¥TAALE (1) <YTAGLE (J)) / (XTABLE (1) -ATABLE (J) 

DELTAX = X= XTARLF OJ) 

DELTAY = SLOPE # DELTAX 

Y= YTABLE (J) #OELTAY 

RETURN 

WRITE (6560) X 

GO TO 45 

WRITE (6070) X 

WRITE (6080) Jo 

STOP 

Y=YTABLE (1) 

RETURN 

FORMAT (']"e5xXetTHE INOEPENDENT ENTRY IS ABOVE THE TABLE #.015,7} 
FORMAT (41° ,SXetTHE INDEPENDENT ENTRY IS BELOW THE TABLE 9,015.7) 
FORMAT('O TABLE NO. S4eT4) 

END 
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30 - 3 154 

40 = 4 174 

45 = 16 1ae 

bo - 8 ene 

€0 * ySWR 2a% 

70 = 17wWR 234 

0 - T&wR a4e 

WELTAX «= l= 12 

WELTAY « 12= 13 

i - SbDO 6 a 9 16 ea 

ot = 95 10 il 13 

JJ - 1AG LBWR 

LIN - 1* 

N a }aG 201 3 500 

RETURN = 144 214 

SLOPE - 10= 12 

STOP - 194 

A - 1aG 3 fe é 8 11 154R 17WR 
XTABLE = 1AG 2nr 3 4 & 8 ju tl 
Y - ~ TAG lis 20= i: 

YTARLE « 201 19 13 20 
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SUBROUTINE OUTPUT 

IMPLICIT REAL tArHe0=29M) ‘ 
COMMON/ELKO)2/ NPRINT 

COMMON/ELKOL9/ NL6O0 

GO TO (100.200+300+400+5005600+700 100} eNPRINY 
CALL PRTL 
NL605=50 
GO Ta 1000 
CALL PRT2 
Go TO 1000 
CALL PRTZ 
6O TO 1000 
CALL PRT4 
GO To 3000 
CALL PRTS 
GO Jo Joon 
CONTINGE 
CALL PRTG 
60 TO £000 
CONTINUE 
CALL PRT7 
GO To 1000 
CONTI Aue 
CALL PRTB& 
CONTINUE 
RETURN 

END 
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FUNCTION PADJ(FIME) 
COMMON/ELKO1A/ PADJC(2) 
ADJUSTMENT TERMS FOR PHEAD TO PNS 
PADJ = PADJC(II#TIME + PaDUCtZ) 


RETURN a ae 
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“TMPLICTT REAL” (ASHe O92 eM)” , 

LOGICAL LISTLESTATICSERR 

COMMON/BLKOG1/IRKTO1sIRKTOZLERRGIN 


7 7 COMMONZSLR0 O47 DIB. OTE SMC (30) sALs AK (TS) CK (10) sACBTsARFTASARETES 


1 SIANL +SIBT sETABT sOBT sWPBT sOPBeDPE sARALFE 2CLAME ,QAIE «WINE sWPE» 
2 0K (10) sPAMBT sPEXAT +PEXIT a toi heed 
"7" COMMONZELKOO57 NLEWISSNST SNF sNRECONDNCASES sNDISP»NCASE ae 
COMMON/BLKDOS/ ATB (50) sAFSRM(SD) ¢ MPNOMs TBs NMP SNTR | 
“TS STATIC 
COMMON/8LK025/ NTAPE»NPLOTeNCARD 
CLAME=0+0 
“7 —" PPB=O.0 7 
DPE=0.0 
TRKTO1=0 
"" Cristie. Taue,” 7 : 4 , 
NCARN=0 
NCASES=] ‘ : Whee tt Fe : 
~ NDISP20 
NFz] 
NLEWIS=0 
“~"" NMP=O 
NPLOT=0 


NTBS0 a 
“SIBNC=6+0 ~ 
SIpr=0,0 
RETURN 
“END ~ 
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SUBROUTINE PRY1 RAGE 


SURROUTINE PRT) 
IMPLICIT) REAL (A-H10-2 0M) 
LOGICAL LIST} +STATIC 
LOGICAL ERR : 
COMMON/ELKDOLZIRKTOLeIRKTO2sERReIN  - 
COMMON /BLKO047 DTH yDTEsMC (30) sAL+ AK (15) ¢CK (10) ¢PCBT sARFTASARETEs BATES 
1 SIBNL ,SIBT +E TART sOAT eWPRT ¢DPBsDPE sAHALFE*CLAME OAIE WINE SWPE® = =RATES 
2 OK (10) sPAMBT pPEXBT »PEXIT 
cs COMMON/BLKOOS/ NLEWIS NST + NF eNRECONeNCASES sNDISP oNCASE ALL 
COMMON/BLKNOB/ ATR{50) gAFSRM(SO) ¢ MPNOM» TB» NMP «NTR FSCAL 
COMMON/HLKO09/° MITOT eMPTOT sSETeAMIRR(10) ¢AMPRR (10) @DELT oMPRoMIZ INFRT 
COMMON/ELKO1O/ NP E30) 
ee TSREC es TFREC PCSBAR + PNSBAR + TCH PT TW eCSCOFF (3) oLISTI® 
6 STATIC 
COMMON/BLK025/ NTAPE  »NPLOT»NCARD * 
COMMON/ELKO2T7T/ DISLIM(20) sMITSAV »SETFLG 
NCOUT=NCASF 1 
WRITE (6¢10) NCOUT 
10 FORMAT(*2*,T21¢9THFSE ARE THE INI FIAL VALUES FOR a 
WRETE (6015) 
15 FORMAT(? t¢T3lstPROGRAM CONSTANTS*#//9 %53Xe MOTOR CONSTANTS? 910%, 
$B 'CURVE FIT CONSTANTS'»3]X0"OND CONSTANTS!) 
00 $0 [=te23 
IF(1.GTe15} GO TO 35 
IF(1¢G6Te1Z) GO TO 30 
IF (166705) GO TO 25 
WRITE (6920) — Tye LT eaccuncieoceny 
20 FORMAT(? MCL eT2st)50 e015 sBeSXo AK CY 912941 =04G1Se8s5X0 OK (tothe t= 
$94615.a) 
Ga TO so 
25 IF(].E0011) GO TO 290 
WRITE (6025) TeMC(I} oToAKiT} : 
2B FORMATO? MClbeT25t) = eGlSeBeSXetAK (4 oleh) =94G615.48) 
29 FORMATCE MCL be T2089) =8eG15.8eSXs AK (Fe 12p8IH=9 4615689 Xe *NISPFRSION 
& LIMIFS*) 
GO 1 50 
290 WRITE(6929) EeMC(T) e fear (dT) 
Ga TO 50 
30 teI-le2 
WRITF{62932) [eMC(1} sLeCSCOEF (L) sLeDISLIM(L} 
32 FORMAT (# MCs 208) = 9G15.99SXs *CSCOEF (( elle!) =%9G15.495Xe *DISLIME 
$% 9129") =95G1568) 
Go TO 50 ; : 
35 L=L+] : 
IF (1.EQ616) WRITE (6036) TeMC(1) sLsDISLIM(L) 
36 FORMAT(® MC(4 eT, t) =t9615,8s35X, I DISLIM(PsT2et}='eGiS3A) 
IF (L.EQe2R7) WRITE (603A) ToMCC1) sLeDESLIMI(L) 
3B FORMAT(® MCC OeT 258) 24 eG1SeAeGXs UNIVERSAL CONSTANTSt e10XetOISLIM(? 
Dd 1120) 592G15.28) 
IF ([.GTe21} GO TO 40 
IF (3.LTe18) GO TO 5M 
LtsI-17 iy f 
WRITE(6039) FoHC(L) sLL eCK (Lt) eh DISLIM(L) , 
39 FORMATCE MCU eT2, td Kh eG SoBeSXe CK sll et =8sG15.8e9XsNISLIME se 
S$ L2e}=84G15,8), ' 
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4f GO To 50 

+8 40 WRITE(6936) YeMC(T) aL eDISLIM(L) 

49 50 CONTINUE 

50 WRITE (6955) : - .. 

si, SS FORMAT(/®0GENFRAL PROGRAM INDICATORS! »20Xs*ENERT MASS SCHEDULE / 
Bl 1444XeAMPRROG1SKs 1AMIRR1/) 

$2 WRITE (6960) CLAME eAMPRR(O2) sAMIRRIOL) 

53 60 FORMATC* CLAME 3% 6F1005¢27X5G6152305%1615.8) 

S4 WRITE (6961) DPA sAMPRR(02) sAMERR(02) 

55 G1] FORMAT(* DPB S%9F 1005927XsG1508e5XsG1 54) 

$6 “ "WRITE (6:62) DPE” ,AMPRR(03) sAMIRR(03) 

Ss? 6? FORMAT(® DPE, =" oF 10+5927K 0615.8 e5XsG15.8) 

Su WRITE (6063) LIST] »AMPRR{D4) eAMIRR (04) 

59 63 FORMAT(* LISTL = oh $0927XeG15.895XeG15,5) 

60 WRITE (6064) NCARDsAMPRR(DS) sAM[RR(05) 

43 64 FORMAT.{*# NCARD =4¢120027X0G15.895XeG15.8} 

G2 " WRITE (6965) NCASESsANPRR (06) sAMTRR(06) 

63 65 FORMAT(*# NCASES=* eT10127XsG15 68 rSXeGt5e8) 

64 WRITE (6066) NOISP sAMPRR(07) rAMIRR(O7) 

45 66 FORMAT(§ NDOJSP =%5110027K0G15.805X%sG15,8) 

66 WRITE (6967) NF +sAMPRR (GR) sAMTRR (08) 

6! 67 FORMAT(! NF Holl Oe 27% eG15.RrSXoGk5.8) 

68 WRITE (4068) NLFWESs4MPRR (O09) eAMIRR(09) , 

69 68 FORMAT(* NLEWIS=9¢110027K9G15.895XsG15.8) 

70 WRITE (6969) NMP = sAMPRR(10) sAMERR(EO) 

ty 69 FORMAT(® NMP =4y T3027 sG1508rSXeG15.8) 

72 WRITE (69690) NPLOT 

23 690 FORMAT(# NPLOT =%5110} 

74 WRITE (62691) NRECON” 7, 

75 691 FORMAT(* NRECON=*#56110) 

16 WRITE (69692) NST 

7? 692 FORMAT(* NS! =tsT10) 

78 WRITE (42699) NTAPE 

19 693 FORNAT(*® NTAPE =",T10) 

80 WRETE (42694) NTS 

a1 694 FORMAT(® NIB  =9,110) 

82 WRITE (69695) SFBT 

83 695 FORMAT(* SIBT =*eF 10.5} 

a4 WRITE (6970) SIT 

85 ug FOGHAT SLs OPTIONAL PRINT INDICATORS' s20Xe* INERT MASS ISPISIT)=%¢ 

16.8 r. f 

86 WRITE (6972) IRKTOLMITOT 

BT 72 FORMATC(® IRKTOLSte13e34X,4TOTAL INERT MASS(METOT) =15615.8} 

88 " "YRCNF.NE.O) "GOTO Ino” 0 . : ee 

89 WRITE (6010) NCOUT 

90 WRITE (6980) 

91.°7° G0 FORMAT(® “¥35xXs*NOMENAL THRUST SCALING ARRAY¥/¥ NO, eBX et ATA yl4X, 
SPAFSRMI/) 

92 L=NP (1) 

i "7" * WRITE (6082) “(1 eATACL) sAFSRM(T) ead eb)” . ss 

U4 82 FORMAT(! %98293X—9G615.8539K 9515.8) 

95 WRITE (6584) TBs MPTOT sMPNOM 

“96 —"°" “84° FORMATT775- 7B 36 5G75.578 MPTOT="9G15 68/7" MPNOM='9G15.8)°"" 

97 00 RETURN 
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SUBROUTINE PRT2 

IMPLICIT REAL (A-HeO=Z9M) : 

LOGICAL LIST] sSTATIC 

DIMENSION At3) | os 

DATA A479. 80665 40.4535923700.3048/ 

COMMON/BLK004/ DTBsDTE +MC (30) sAL vAK (1S) ¢CK CEO) sPCBTyARFTBsARETE, BATES 
1 SIBNL ¢SIBTsETABT sOGT ¢WPRT ef PB DPE pAHALFE #CLAME ,QAIE «WINE gWPEs RATES 
2 OK (10) ePAMBT ePEXATePEXIT 

COMMON/ELKD13/ CSTARsSIAE e SIDE sWOl sETANZs CSTARZ sSTACONSETANZ2 + OUTPUT 
% CLAME2 +STAAT ¢SILDVBeSIL QB sSIL2PB sSIAS + SILDVE sSIL GE SIL 2PE OUTPUT 

COMMON/BLKO2Z1/ TSRECs TEREC »CSBAR sPNSBAR » THED PI] THe CSCOFF (3) LIST» 
$ STATIC 
200 WRITE (61205) 


"205 FORMAT (IH}sTIO«' THESE ARE THE VALUES FROM THE SPECIFIC IMPULSE SCA 


SLING MODULE 1//720)?# PARAMETER? 25X08 INTERNATIONAL) 4X0 (ENGLISH! } 
TERM=STAEHA CL) 
WRETE (64210) TERMsSTAE 
210 FORMAT(*OEND ITEM ANALYTICAL SPECIFIC IMPULSEe STAE(M/S6S) %% 
$6156A914+615.8) 
TERM=SIDE#A (1) 
WRITE (40215) TERM,SINE 
215 FORMAT(*ODELIVERED END ITEM SPECIFIC IMPULSE STDE(M/S1S)  %s 
“ $615.B01X%.G15,8) 
TERM=WN1#A(2) 
WRITE (69220) TERM,WD1 
220 FORMAT(*OEND ITEM FLOWRATEs WO) (KG/SsLBM/S) ty 
$6150891%1615,8) 
WRITE (69225) ETANZ 
225 FORMATCSOEND ITEM NOZZLE EFFICIENCY. ETANZ ', 
$615.Re1X%s615,8) 
WRITE (@9230) CLAME 
230 FORMAT(*ODIVERGENCE CORRECTION FOR NOZZLE» CLAME , 
$615.891%1G615.8) 
TERM=CSTARZ#A(3) 
WRITE (69235) TERM,sCSTAR2 
235 FORMAT(POTHEO. PROPFLLANT CSTAR AT PCAVEy CSTAR2(M/SeFT/S) ty 
$615.9+1%4615.8) 
TERM=CSTAR#A (3) 
WRITE (69240) TERM+CSTAR 


240 FORMAT(*OPREDICTED END ITEM CSTAR» CSTARI(M/SsFT/S) Ys 
$6154891X%4615.8) < 
WRITE(69250} CSCOEF(1) 

250 FORMAT(*OCSTAR CURVE FIT COFFFICIENT NO» | te 


“$635 .001%5G15.8) 
WRITE (6*260) CSCOEF (2) 
260 FORMAT(*OCSTAR CURVE FIT COEFFICIENT NO. 2 %, 
$615.6sYXsG15.8) ~ 
WRITE (Gs270) CSCOEF (3) 
270 FORMATC*OCSTAR CURVE FIT COEFFICIENT NOo- 3 Ve 
~" "$615 08s1X9G15.8) © aa , 
RETURN 
END 
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SUBROUTINE PRT2 


Pm bhw dw rates eo emewemewmeweaemer eR hate twtoea REFFRENCES 


ot 
SuR 
12wR 
iSWR 
18uR 
POWR 
22wR 
esurR 
P8uUR 
acwR 
420R 
I4WR 
401 
6CO 
#00 
6co 
6cO 
6coO 
Ge 
7+ 
Ae 
6CO 
6CO 
7co 
8co 
BCO 
7co 
700 
6CO 
6CO 
&Co 
6cO 
6c 
TcO 
7CO 
3LG 
6CaQ 
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6C0 
6CO 
aco 
BCO 
14 
6cO 
4co0 
ye 
7co 
7c0 
7co 
7ca 
6co 


1o# 
134 
164 
198 
214 
230 
260 
298 
316 
338 
35f 
SDA 


2euR 


30WA 
27 
24 


20WR 
Aco 
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32WR = 34WR 
24uR 
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Tn DE xX SUBROUTINE PRT2 PAGE 
SIuT = 6co 
SIUE = 7co 14, 1SWR 
SILEVB ~ 7co 
SILDVE - 7¢O : ; < 
SILO8 - 7c0 
SILGE = 7cO 
SIL2ePR - 7co 
SILOPE = 7CO0 
STATIC = 3L6 aco 
TEKEC + aco. : 
TERM - = 12WR 7 14= 0 1 SWR O27 18WR 245 25wR 27= PauR 
TSRFC - gco 
TWEB ~ 8cO 
wO1 - 7co0 17 18WR 
WINE = 6co 
WPRT = 6CcO 
WPE - 6CO ° 
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SUBROUTINE PRT 


SURRGUTINE PRTG 

IMPLICTT REAL {AeHs—Z9M) 

LOGICAL CIST1sSTATIC 

DIMENSTON A(3) 

DATA A/9.80665 00249359237 10630487 


COMMON/BLKO046/ OTBeDTE SMC (30) eALy AK (15) CK (10) sPCBT s ARE TB yARE TEs 


1 STANL » STAT :ETABT s OBT owPBT eDP8 OPE» AHALFE sCL AME 4 DALE sWINF aWPE > 


2 OK (10) ePAMBTPPEXBT ePEXIT © 


COMMON/BLKOOT/ SICONsPCT + ARET sPAMT pAHALF 1 9 WD2 sPCAVE : 
COMMON/BLKN13/ CSTAR,SIFAE sSIME pWOL eETANZ sCSTAR2eSTACONETANZ2 4 

$ CLAME2sSIAATsSILOVH ySILQG eSIL2PSeSEAS sSILDVE sSTLOE eSIL2PE 
COMMON/BLKO21/ TSREC,TERFCeCSBAR»PNSBAR» THEB pPITWsCSCOEF (3) oLIST1e 


$ STATIC 
300 WRITE (62305) 


30S FORMAT IH) sTSe* THESE ARE THE VALUES FROM THE CONTRACTOR DATA SPECI 
SEIC IMPULSE MODULE #//T205 PARAMETER (+27Xe" ENTERNATIONAL §64Xe tENGLI 


SSH*) 
TERM=SIACON*A(}) 
WRITE (68310) TERM,SIACON 


310 FORMAT{*OCONTRACTOR ANALYTICAL SPECIFIC IMPULSE. SITACONIM/S«S) te 


$615-891%0615.8) 
TERM=STAEHA(]) 
WRETE (69316) TERMs+STAE 


315 FORMAT(*OEND ITEM ANALYTICAL SPECIFIC [TMPULSEs STAE(M/Ss5S) 


$G615.8+1%2615,8) 
TERM=SIDE*A TL) 
WRITF (49.320) TERMs SIDE 


320 FORMAT(*ODELIVERED END ITEM SPECIFIC EMPULSEs SIDE(M/Ss S) 


$61508+1%9G15.8} 
TERM=WDILAA (2) 
WRITE(69325) TERM, WO? 
325 FORMAT(*OEND ITEM FLOWRATE, WDE (KG/SeLBM/S) 
$GES Ae XeG15.8)} 
TERM=WD24A 62) 
WRITE (60330) TERM WN? 
330 FORMATCYOTEST MOTOR FLOWRATE, WDO2 (KG/SsLHM/S) 
$615,8s}%,G15.8) 
WRITE (60335) ETANZ 
335 FORMAT(YOEND ITEM NOZZLE EFFICTENCYs ETANZ 
$615.A01%s615.8) 
WRITE (69340) ETANZ2 
340 FORMAT(TOTEST MOTOR NOYZLE EFFICIENCYs ETANZ1 
$615 2A91X+GE5.8) 
WRITE (69345) CLAME 
345 FORHATCIYODIVERGENCE CORRECTION FOR NOZZLE CLAME 
$615e891%961568) 
WRITE (64350) CLAME? 
359 FORMAT (*ODIVERGENCE CORRECTION FOR NOZZLE* CLAML 
$615.5861%5G15.8} 
TERM=CSTAR#A (3) 
WRITE (6+360)} TERM»CSTAR 
360 FORMAT('OEND ITEM CSTAR»s CSTAR(M/SsFT/S) 
$6150691%5615.8) 
WRITE (6+370) CSCOEF (1) 
370 FORMAT('OCSTAR CURVE FIT CORFFICIENT NO. 1 


BATES 
RATES 


cnst 


OUTPUT 
OUTPUT 
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SUBROUTINE PRT3 


$G150891X9615.8) : 
WRITE (6+380) CSCOEF (2) 

380 FORMAT(*OCSTAR CURVE FIT COEFFICIENT NO. 2 
$6150891X%3G615,8) 
WRITE (6+390) CSCOEF (3) 

390 FORMAT(IOCSTAR CURVE FIT COEFFICIENT NO, 3 
$6156Rs1XeG15,8) 

"RETURN 

END 
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INDE X SUBROUTINE PRT 
SYMROL mE ER EME EME EMS meme set memgwersmembade REFERENCES 
300 - 10% 

305 - LOWR te 

310 - 13WR 148 

315 “ 16uR 17% 

320 - 1} OWR 208 

325 - 22WR 2a 

330 - 25WR 26e 

335 - 2TWR 2ae 

340 = 29WR 30% 

345 - JWR 326 

350 - 33wR 348 

360 - a6WR a7e 

370 - 33WR 390% 

AKO - 40WR 4le 

390 - 42WR 43H 

A - 4D SOA 12 1S 18 21 ee 
AHALFE = 6co : 
AHALFL = 7c0 

AK ” 6CO 

aL - 6C0 

BRET “ 7c0 

ARE TH - 6ca 

ARETE = 6C0 

BLKONGY = 6*# 

ULKOO? = vw 

BLKola = ae 

BLKO21 = Qe 

CK - &CO 

CLAME - 6Co 31WR 
CLAME2 «~ aca 33wR i 
CSbAR - 9ca 

CSCOEF = 5cOo a8wR 40WR 42WR 
CSTAR = CO 35 36WR 
CSTaRe = BcO 

Ops - 6CO 

OPE ~ 6CO0 

OTs - 6c0 

DTE - 6CO 

ETABT + 6CcO 

ETANZ =. 8CO 2T7wR 
ETANZ2 ~ BCO 29WR 
LIST) ~ 3L6 9c0 

uC - 6coO 

UK - 6co ; 
PaMmatT Sad 6C0 

Pamt ~ 7co 

PCAVE - 7co 

PCBT - 6€0 

Pct _ 7co0 

PEXRT - 6CO 

PEXIT - &CO 

PITw - 9co 
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PRIS - 1+ 

Qale - 6CO 

Qpt - 6CO 

RETURN ~ 44% 

SIACON ~~ g8co ha i3WR 
SIAF - aco 1S 16WR 
STAS - &cO 

SIBAT - &CcO0 

STBNL ~ 6C0 

SIT - 6CO 

SICON - 7c0 

SIDE - aco 18 1GWR 
SILDYR «= 8CcO 

SILNDVE = 8co 5 v 

SILOKB ow @CO 

SILOE - aco 

SIL2PR = aco . fam 
SIL2PE = 8co 

STATIC = 3L6 9ca ’ 
TERFC - 3co 

TERM - 12= 13WR 15= L6WR 1A= 19WR 2i= 22WR 24> PSWR 35= 3OWR 
TSREC - 9co 

TWEH - $c0 

wOl - aco 2) 22WR 

Wwo2 - 7co 24 25WR 
WINE - 6C0 
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1 SUBROUTINE PRI4 
2 IMPLICTT REAL (A#H»0—20M) 
3 LOGICAL LISTLeSTATIC 
4% OIMENSFON A(3) 
5 DATA AZ), 80665 20645359237 1003048/ 
6 COMMON/BLK004/ OTASDTEs MC (30) AL sAK (95) ¢CK(10), PCBT,ARETBARETF, BATES 
1 STGNL SIBTsETABT + QUT sWPAT>» DPR DPE sAHALFE + CLAME +QAEE WINE + WPE « BATES 
2 OK{10) sPAMBTePEXRT»PEXIT 
7 COMMON/BLKO134 CSTAR SEALs SIDE sWD1 sETANZ eCSTAR2Z,STACON¢ETANZ2 4 OUTPUT 
$ CLAME2 +SIAATsSILOVSeSTLOBs SILZPRsSIAS sSILDVE eSTLOQE oSIL2PF OUTPUT 
H COMMON/ELKD21/ TSRECe TEREC eCSBAR sPNSBARs THER SPI TWeCSCOFF 13) sLIST1 8 
$ STATIC: ‘ 
9 400 WRETE (69405) : 
10 405 FORMAT(IHLeTIL+* THESE ARE THE VALUES FROM THE BATES SPECIFEC SMPUL 
SSE MODULE //T20 5 (PARAMETER? 9 30Xs PINTERNATIONAL 154X5 ENGLISH?) 
ik TERMS JBATHA(1} 
l2 WRITE (69410) TERMsSIRAT 
13 410 FORMAT('OBATES TEST ANALYTICAL SPECIFIC IMPULSE. SIBAT(M/S+S) te 
$615.A01X%,615,8) 
14 TERM=SIBT#A(1) 
iS WRITE(69415) TERM,SIRT 
16 415 FORMAT('OBATES TEST SPECIFIC [MPULSEs SIBIIM/S¢5) te 
$615 eA01X% 9015.8) 
17 TERM=SILOVAYA (1) 
lg WRITE (69420) TERM SSILOVB 
1g 420 FORMAT('OBATES SPECIFIC TMPULSE DEVERGENCE LOSS+ SILDVBIM/S9S) te 
SG1L5eR01X5615.8) 
20 TERM=STLOBRA(Y) 
él WRITE (69425) TERMeSTLQR 
22 425 FORMAT('OBATES SPECIFIC IMPULSE HEAT LOSS* SILOH(M/S59) e 
$6150891%5615,8) 
23 TERMSS{L2PBHA(1) 
ek WRITE (62430) TERH,SIL2PR . 
25 430 FORMATI{MOBATES SPECIFIC IMPULSE 2 PHASE FLOWLOSS+ SIL2PRIM/S+5} ts 
$615 eHe1XyG15,8) 
° 26 TERM=SIBNL%A 41} 
27 WRITE (69435) TERMeSTANL 
28 435 FORMAT(*OBATES NO LOSS SPECIFIC IMPULSE» SIBNLIH/S+S) "5 
£615 6As1XeG45,.8) 
29 TERNESIAS#AC)) 
dv WRITF (69440) TERM,STAS 
4) 460 FORMATLPOSTANDARD ANALYTICAL SPECIFIC [MPULSE» SIAS{(M/S95) se 
$G15.8+1X 9615.8) 
32 TERM=STAE#A (1) 
33 WRITE (60445) TERMeSITAE 
34 445 FORMAT(*OEND ITEM ANALYTICAL SPECIFIC IMPULSE s+ SIAE(M/SeS) ts 
BCLS eH lXeG15,4) 
3s TERH=SILOVE4#AC)) 
36 WRITE (60450) TERMsSILDVE 
3T 450 FORMATCYOEND ITEM SPECIFIC IMPULSE OIVERGENCE LOSSeSILNVE (M/S9S) 6 
$G15.B8ebAeG15,8 
38 ‘ TERM=SILOESA()) 1 
39 WRITE (69455) TERM»SILOE 
49 455 FORMAT(*OEND IYEM SPFCYFIC IMPULSE HEAT LOSS+ SILQE(M/SeS) ad 
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SUBROUTINE PRT& 


TERMS 5 [L2PF #4 (1) 
WRITE (69460) TERMsSIL2PE 
460 FORMATC(*OEND ITEM SPEC, IMP, 2 PHASE FLOWLOSS» SIL2PE (usS+5) 
$6150891%0615.8) 
TERM=SIDE*A (1) 
WRITE (49465) TERMySIDE 7 
465 FORMAT(TODELEVERED END ITEM SPECIFIC IMPULSE, STDE(M/S5S) 
$615¢891%9615.6) 
WRITE (62470) CLAME 
470 FORMAT (TODIVERGENCE CORRECTION FOR NOZZLE» GLAME 
"$6150891X9615.8) 
TERM=CSTAR#A (3) 
WRITE (69475) TERMeCSTAR 


* 47S FORMAT (POCHARACTERISTIC EXAUST VELOCITY» CSTAR(M/SeF 7S) 


$6150891%0G615.8) 
WRITE (4480) CSCOEF (1) 

480 FORMATC*OCSTAR CURVE FIT COEFFICIENT NO. 1 
$G1508014%0615.8) 5 
WRITE (69485) CSCOEF (2) 

485 FORMATCTOCSTAR CURVE FIT COEFFICIENT NO. 2 
$G15.A01X%eG15,8) 
WRITE (694690) CSCOEF (3) 

490 FORMAT CROCSTAR CURVE FIT COEFFICIENT NO. 3 
$61508+1X+615.8) 
RETURN 
END 
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INDE xX \ SUBROUTINE PRIS PAGE a 


1 SUBROUTINE PRTS 

a IMPLICIT REAL (A#HsM=2 +m) 

3 COMMON/ELKN05/ NLEWTS +NSI a NF eNRECONs NCASES »NOISP pNCASE 

4 WRITE (699) 

5 1 FORMAT (9) 'y,TIOstTHFSE ARE THE DISPERSION VALUES FOR THIS CASE") 

6 WRITE“695} NDISP 

7 5 FORMATC*O'sTLAstNDISP = teT2//7) 

8 WRITE (6910} 

9 10 FORMAT(® NOISP= 1 $ + PROPELLANT NENSITY tf, 
t * NDISPs 2 $ ~ PROPELLANT DENSITY ss 
2 + NDISP= 3.4% + PRESSURE EXPONENT ‘fs 
3 t NDISP= 4 % = PRESSURE EXPONENT ts, 
4 t NDIGP= 5 $ +* PRESSURE COEFFICIENT ws, 
5 'NDISP= 6 % © PRESSURE COEFFICIENT ths 
6 * NDISP= 7 $ ¢ CHARACTERISTIC VELOCITY ‘ss 
? * NDISP= 8 t © CHARACTERISTIC VELOCITY Vf 
8 * NDISP= 9 3 ¢ PROPELLANT GRAIN LENGTH - tse 
9 ‘NDESP=10 & © PROPELLANT GRAEN LENGTH '/s 
A ‘ NDISP=]1 4% +¢ PROPELLANT GRAIN WEB THICKNESS '/» 
B * NOISP=12 % -~ PROPFLLANT GRAIN WEB THICKNESS '/» 

+6 * NPESP=13 8 + INITEAL THROAT OTAMETER the 

9) " NDISP=]14 § = INITIAL THROAT DIAMETER t/e 
E * NDISP=15 3 + [NITIAL EXIT DIAMETER t/y 
F t NDISP=16 % + INITIAL EXIT DIAMETER ‘fs 
6 * NDISP=17 & * THROAT EROSION RATE (RANIUS) Ws, 
H * NDESP=18 ¢ = THROAT EROSION RATE (RADIUS) tty 
I * NDISP=H19 ¢ + PROPELLANT GRAIN TEMPERATURE t/a 
J ' NDOISP=20 3 © PROPELLANT GRAIN TEMPERATURE 1) 

0 WRITE (6920) 

1 20 FORMAT(* NOISP=21 4 + ENITIAL INERT MASS CONSUMABLE ¢t/e 
1 ? NDISP=22 $ ~~ INITIAL INERT MASS CONSUMABLE 1) 

12 WRITE (6930) 

13 30 FORMAT(///10DISPERSED PARAMETER(S) #9) 

14 RETURN 


1S END 
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SUBROUTINE PRT6 


SUBROUTINE PRT6 

IMPLICIT RFAL (A=H»yO—2_h) 

DIMENSION A(S} P 

DATA A/9.8N645 +0.45359237 » e3048 5454482219 1689475. 729/ 
COMMOQN/BLKNO08/ ATAHI50) sAFSRM(S0)s MPNOMs TA eNMP »NTR 


COMMON/ULKO09/ MITOT sMPTOTSSTI eAMIRR (10) sAMPRR(10) sDELT sMPR sHI7 
COMMON/BLKOLY CSTAReSJAE sSTDE sWOE vETANZ eCSTARZ sSIACONGETANZ1 » 
& CLAM]> SEBAT:SILOVBsSILOAs SIL2PRr SEAS sSILOVE sSIt OE eSIL2PE 


COMMON/BLK014/ TPNeF SRM) MFSRM PC 

COMMON/ALKOJG/ MENT Toefl eMIF oMIFZeMIReFIZ#AETINGAITVEN 
COMMON/BLKOQ19/ NL600 

IF {NtL.600,LF.32) GO TO 610 

NL@00=0 

WRITE (60605) 


FSCAL 
INERT 
OUTPUT 
OUTPUT 
QUTAUT 


605 FORMAT(tL' sT10e' THESE ARE THE VALUES FROM THE THRUST SCALING MONUL 


$EtS/) 
630 WRITE(&e615) YPN 


615 FORMATC*OSRM IGNITION TIMEa TPN(S) 8 010XsGLS.8//TI1s* VEHICLE PARAME 


SIERSte29Xet INTERNAT EONAL ! 64Xe ENGLISH") 
DUM= FSRMFI 
TERMSDUM#A (4) 
WRITE (42620) TERMsOUM 
620 FORMAT(*® SRM TOTAL THRUSTs FSRM+F I (Nel BF} 
$615.691%sG1S.8) 
TERM=F FPA LG) C 
WRITE(62627) TERMeFE 
62? FORMAT(* SRM INERT THRUST»s FI(NsLSF) 
$6155691%9G}5,8) 
DUM=MF SRMOM IF 
TERM=DUM#A (2) 
WRITF (60625) TFRMeDUM 
625 FORMAT(® SRM TOTAL MASS FLOWRATE» MFSRM¢MIF (KG/S. LBM/S) 
$615 ¢8&91X9G15.8) 
TERM=MIF #A {2} 
WRITE (69627) TFRMeMIF 
627 FORMAT(* SRM INERT MASS FLOWRATEs MIF (KG/SeLEM/S) 
$G615,891X,G15,8) 
TERM=SIUEHA {]) 
WRITE (6e630) TERMsSIDE 
630 FORMAT(' SRM PROPELLANT SPECIFIC IMPULSE» SIDE (M/SeS) 
GG15 Ae 1XeGiS,8) 
TERM=ST1#A(}} 
WRITE (6963)) TERMSSIT 
631 FORMAT(? SRM SPECIFIC [MPULSE OF INERTS+ SII(M/S+S) 
$615.89149615,5) ; 
SRMST = (FSRM¢F IL) &ZERODV (MF SRMSMIF ) 
TERM=SRMSIPA TL) 
WRITE (69632) FERMsSRMST 
632 FORMAT(C' SRM SPECIFIC IMPULSE: SRMSIIM/S»%) 
$615.821X%9615,8) 
TERM=MPROA (2} 
WRITE (60635) TERMeMPR 
635 FORMAT(® SRM PROPELLANT MASS REMAINING: MPR (KG» LBM) 
$615.891%9615,8) 
TERMSMIR#A (2) | 
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43 
46 


4a? 
48 
49 


50 
Si 
52 


.,. WRITE (60637) TERMeMI 

637 FORMAT(* SRH INERT M 
$615 08s1%9615,8) 
TERMSPC#A(S) 
WRITE (6*640) TERMsPC 

640 FORMAT(* SRM CHAMBER PRESSURE, 

$G15eAe1XsG154B) 

NL600° ="NC60074 Te 

RETURN 

END 


R 
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SUBROUTINE PRTG 


PC 


SS REMAINING: MIR (KG»LBM) 


{N/M##2e LBF/STNOX2) 
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INOE x SUBROUTINE PRT6 


SYMBOL baer e mbes impede enews msesetubosmsadatwende REFERENCES 
605 ~ }4awR 148 
610 - 1t se ; 

61S = 15WR 14+ : 

620 - 19WR 20e 

622 = e22wR 23+ 

625 bed POWR are 

6a7 - 29WR 30% 

620 - 42WkR 33 

671 - a5KuR 36% 

632 = 39WR 40% 

635 oad 42uR 43% 

637 - 45WR 464 

640 = 4OWR 4Qe 
A - 301 4DA 18 2t 25 28 31 
AFSR#K = sco 
AITIN = 9co 
AITVIN = 9c0 
AMIRK - 6coa 
AMPRR = 6co 
ATU = 5co a 
BLKOOA of} Su 
HLKO09 = &e 
HLKO13> «= 7 
HLKOIS4 = gH 
ALKOL6 = oe 
uLKold = pow 
CLAM} - 7CO 
CSTaR - 7c 
Cstak2 «= TCO 
DELT - 6CO 
QUM 7 17s 18 19WR 24= 25 26WR 
ETANZ 7 7co 
ETANZ] <= 7C0 
FI - 9co 17 2t 22weR 37 
FlZ - 9cO 
FSRM - 8CcO 17 37 ! 
MFINIT = 9co 
MF SRM “ aca 24 37 é 
MIF ~ 9co 24 28 29HR 37 
MIFZ “ 9CO 
MIR - 9C0 44 45uR 
MITOT = 6ca 
MIT - 6ca 
MPNOM = 5cO . 
MPR - 6CO 41 42WR 
MPTOT -. 6C0 
NLOOO = 10CO il tes 50= 
NMP fad 5co0 3 
NTH - 5C0 
PC - Bco A? 48WR f 2 
PRT6 - y+ ; 
KETUKN = 518 
SIACON = 7co 
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SIAE | = TOO%. Soo Te Ay Dt vaso ne chs? a at 

STAS - 7C0 ‘ a; 

SIBaAT = 7CO 

SIDE - | 700. ak 32WR = aes bee 2 f 

SII - 6cO 34 TSWR 

SILDVR = 7ca 

SILDVE = 7co aa Spries at Mt BOS eA aA easy eee Sais ban eek 

silap + 7cO 

SILOE = - 7CO 

SIL2PB - — 7cO. Sah on ste oe ets lua ty ie MOS brie ee, . 

SILPPF ~ 7CO ‘ 

SRMSI = a?s 38 39WR 

TH - 5cO 

TERM > 1B="" "1 9WR 2l= “pawR ‘252 ~  2owR ™ “28277” 2oWR ~ [is * 32WR 34= 45wR 3a= 
39WR 41s 42WR 44= 45WR 475 48WR 

TPN ~ BOON PWR coh Se eed ° 

woe ” 7co 
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ZERODY - 37 


Pewee swe ae mew eter step dase mse esewse ews ws sees meer tate Pe mem sa eet dasa swe wee sess se ew ewe mem suse tye reeset 


peGZU0L-9820 


8672 


INDEX 


rote a Swe 


-_ 


nd 
o se) mow oO wm & to 


mth 
N= 


23 


25 
26 


28 


29 
30 


. 32 


33 
34 
35 
36 


37 
38 
49 


40 
41 
42 


SUBROUTINE PRT7 


SUBROUTINE PRT? 
IMPLICTT REAL (A=HeD~ZsM) 
DIMENSION A(10} 
DATA AZ9 480665 90 ¢45359237 0049058 04944822199 6894 754729 00 02545 
$B 0.000h452650.55555556916,5AR70G4E-6/ 
COMMON/ELKNOS/ NLEWISeNSEeNF sNRECONeNCASES tNOESP aLt 
COMMON/HLKOO9/ MYTOT pMPTOT oS 1eAMERR (10) s 4MPRR (10) sOFLT eMPP oMI1Z INERT 
COMMON/ELKOLG/ MEINE TOF] oMEF MIF Z eMIRSFIZSAITENGAITVIN 
COMMON/BLKO25/ NTAPEsNPLOT eNCARD 
COMMON/CONSTS/GNOT»PIePTO2eRADTAN =“ 
COMMON/ INPUTG/CSTAR + GAMA sRaNCSTR sPRESS (20) sCSTR (20) sGAMAG(20) > 
1 AMWG (203+ TCOMR 120) eNCSCOE 
COMMONZ ENPUT ] /AN2 yCMQDE 9 DT e ANN 
COMMON/ INPUTU/DELF »PAoPHI @HCOeDEL ZeKOUMP (72) 
COMMON/COMA/DEL TT pAPHI eWDOT 1s ANIBOs TIME WT pANLOPSSACCEL & 
a] ABCYL ¢PRNT (101015) sAINCHI sAMACHsZCALCL1O1) 
COMMON/CUMASAHH ¢ AJPHN » AJBHN « TAUAQs AJPHED» AJBHED, APNOZ MIRNA ZY 
i XBW XBNODTINT 
COMMON/COMG/TAU? (101) 928Z(101) »TAUZTOL101) #RAZTO CIOL) sPDI101)» 
t TAUWOP (E02) RB e VF eDWOOT,VP 
COMMON/COMI ZAI TVAC + F VAC e VFCYL e CF PROA SF NDP 
COMMON/COMW/DY + AEE » PEPOL , 
COMMON/PARMB/AP sPMINGPNAX oWDOT eo TI 1s EI JsWDOUTD oNSLOT eNT ARE + NTME » 
t TAUTOs TOFLAGeNINCPL sBRNOUT IIS TS! sIS2sNI eSCUR (1892) 
COMMON/P ARMF /PHy TIME sATNCWe Tp PeDELTAsU ,pAKOY »PON,OIS,AMPN, AT» 
1 AMWeAKRST 
COMMON/P ARMG/VF He AAN SVEN VIS PAIT ¢SPHDT »SPONDT VF INT» VEHsARTOT 
COMMON/PARMY /AOMCYL sAIBCYL eALPCYL e AKGYX pAKGYY gp VPHe VPN 
COMMON/PARMK/F 0EP 1 sPEPO+CFOL » VFWEBR WD PDEEU sCLOPS ¢CFOeWGTOT» 
1 *  S¥NOTN 
COMNON/P ARMV/WF 
COMMON/PARMX/WFIESEPG 
COMMON/PARMZ/ABSLOT ePO 
DATA MMGROS sHMCASE MNOZ pMEIGNeMTVCy TGRAINsAHALFC/7#0 00/7 
WRITE (6+10) TIME 
10 FORMAT CHLIGNITION TEME, TINE (5) ¢910X%2G15,8//T502"PROGRAME/TO, 
L*PARAMETER DESCRIPTION (UNITS) §eT48e NOMENCLATURE? + T6G0t INTERNATIO 
2NAL te T89 9 SENGLISH!//T25 "MOTOR PARAMETERS? #} 
FTDELSF+F 1 
JERM = FTDEL* A(4) 
WRITE (6920) TERMsFTDEL 
20 FORMAT(T4e* TOTAL NELIVEREN THRUST (NeLOF) $s TS) tFTDEL +. 
$ 1669615,8+7862615.8) 
FIVAC=FVAC+FT 
TERM = FYvac * Ai4) 
WRITE(6025) TERMeFTVAC 
25 FORMAT(T4e® TOTAL VACLIUM THRUST {NoLBF) %eTSte "FE TVACtS 
$ 1660G615.B8¢T869G15.8) 
TERM = FI # ata) 
WRITE(6930) TERMOFI 
30 FORMAT (T4s"* THRUST CONTRIAUTEON OF INERTS (NeL BF) te TSietFI te 
& 7669G15.897869G615.A) 
SRMDTISAITSAITIN 
TERM = SRMDTI * A(4) 
WRITE (6935) TERM,SRAMDTI 
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43 _ 35 FORMAT(T4s*DELIVEREN TOTAL IMPULSE (N®S)LUF4S)4,TShe SAMDTI ty 
$ 166s615,867865615,A} 

44 SRMVTI=AITVAC + AIETVEN 

45° _ _ TERM = SRMVTI_* A(4) = . 

46 WRITE (6540) TERM,SRMVTI 

47 40 FORMAT (T4s*VACUUM TOTAL IMPULSE (N®SeLAF eS) 9 T5i et SRMVTI ys 

. _ - & T664615.89T86261528) ; z . 

48 CF = FYVAC/(AT#PON) 7 

49 WRITE (6945) CFeCF 

50 _.45 FORMAT (T4s*THRUST COEFFICIENT sTS1s*CF iy OR Seth ons! 
$ T6616)5.857H6,615.9} 

sl TERM = WOOT # AC2) ' 

52 WRITE({6+50} TERMeWDOT 

53 ~ “° SO FORMAT(T4$*GRAIN DISCHARGE MASS FLOWRATE (KG/SsLBM/S/ 'sTS1e* WOOT!» 
& 7661615.8s786+615,8) 

54 TERM = SwDOTN * A(2) 

55 WRITE (6955) TERM+SWNOTN : 

S6é 55 FORMAT (T4s FLOWRATE INTEGRAL (KGL BM) 8a TSis *SWOOTNS» 
$ Th6s615,8sT86+615,8) 

S7 TERM” = MIF @ A{2} 

58 WRITE (6960) TERMeMIF 

59 60 FORMAT (T4s*INERF MASS FLOWRATE | (KG/SoLBM/5) (oTS1 9 'MIF t4 

: $ 1661G1568+78679615.A) 

60 TERM=MIR #A(2) 

él WRITE (6263) TERM MIR 

62 &3 FORMAT(T4s*INERT MASS REMAINING (KGeLBM) to TSh sy tMIRe > 
& 166:615.85T86+615.8) 

63 TERM = ABTOT # ALT) ‘ 

64 " WRITE (6065) TERMsARTOT ~ ee 7 

65 65 FORMAT (T4s*TOTAL RURN AREA cane abate ivadaronts 
$ 1665615e8eT86+G61568) 

66 TERM = VF # A(9) 

67 WRITE(6070) TERMS VF 

68 70 FORMAT(T4s9 TOTAL PROPELLANT VOLUME (M##3,1INGH3)tTSLotVFT, 

" ~ $ 7666615.86786.615.8) 

69 TERM = WF # A(2) 

70 : WRITE (6975) TERM WF : 

7i 75 FORMAT (T4,*PROPELLANT MASS REMAINING (KGsLOM) *yTSls tw ey 
& 1466+615.947865615.8} J 

v2 TERM = WGTOT ® AC2) 

rm) ww“ " WRITE (49d05° TERM.WGTOT™ ie a : 

i4 AD FORMAT(T4s*TOTAL GAS MASS (KGsLBM) te TShethGTOTe, 
& 766+G615.8+786+615.A) 

75 "" "WRETE (6085) “GAMASGAMA ~~ . 

16 8S FORMAT(T4s*RATIO OF SPECIFIC HEATS# eTS1 yt GAMACy 
B 166561548786 s615.A) 

707 " “TERM = AMWoS A{2) 77 / - > 

18 WRITE (6°90) TERM»AMW 

19 90 FORMAT (T4s#MOLECULAR WEIGHT OF GAS (KG/MOLE oLBM/MOLE) to TS1 5S AMW', 

sss osses =" " $"T66s615.8eT8beGLS8) 
80° TERM = CSTAR * A(3} 
8} WRITE (6995) TERMPCSTAR 
“82 “~ —~“95 FORMATTT4s (CHARACTFRISTIC EXHAUST VELOCITY (M/S«FT/S) *eT5ls*CSTARt 


$9T66+615.8, 786,615.24) 
83 WRETE(6*100) AMPNsAMPN 
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SUBROUTINE PRT? PAGE 


109 FORMATIT4s*MAXJMUM CHAMBER MACH NUMBERty Tole fAMPNY® 
$ 1669615.8sTH86+615.9) 
WRITE (62200) 
200 FORMAT (/T2e "HEAD END PARAMETERS? #) 
TERM = PH # a(S) 
WRITE (69205) TFRMsPH 
205 FORMAT(T4,*TOTAL PRESSURE (N/M®82,LAF/ING#2) 4 ¢TSletPHty 
S$ Th60615.Be¢TAGsG15.A} 
TERM = SPHDT ® ACS) 
WRITE (62210) TERM,S5PHDT 
210 FORMATI(T4s*PRESSURE INTEGRAL (N*S/M#P2qLHt AS/ING#2) 15 TS1 eS SPHDT ty 
3 T66e615.8.7T860G15.8) 
TERM = AHH # A(7) 
WRETE (602125) TERMsAHH 
21S FORMAT(T4stQURN AREA (MP#2eIN#H2) Us TSD sy PAHHY 
S$ TobsGpS5eheT869615,4) 
TERM = RHZ7C1} * A16) 
WRITE (69220) TERMsRBZ61) 
220 FORMAT(T4e*BURN RATE (M/SeIN/S) Po TSke PRBZELI Us 
$ 1665615.84T869615,8} 
TERM = TAUZ(1) # A(6} 
WRITE (69225) TERM, TAUZ{(1) . 
225 FORMAT(T4et*DISTANCE BURNED (MeIN}'eTSle!TAUZ( 1) ty 
S$ 7Th6s615.8s7860615,8) 
TERM = VFH ® At9) 
WRITE (69230) TERMeVFH 
230 FORMAT(T4¢ "PROPELLANT VOLUME (M##3_IN®83) Pe TS1 pO VFHT, 
> T66¢615e8sTA69G615,4) 
TERM = VPH * A{9) 
WRITE (69235) TERM,yVPH 
235 FORMAT(T4eIGAS VOLUMF (M¥*#3eIN&83) "os TSLetVPHTs 
& 1Th6.615.8.7869G615,8) : 
TEAM = PRNT{123) * A(8) 
WRITE (60240) TERMyPRNT (1-3) 
240 FORMAT(T4etGAS STATIC TEMPERATURE (DEG KeVEG R)teTSle*PRNTC1032 "> 
$ 766+615.8+T859615,49} 
WRITE (42245) 
245 FORMAT(/T2s° CYLINDRICAL SECTION PARAMETERS 8+} “ 
TERM = ABCYL * A(T) 
WRITE (69250) TERM,ARCYL 
250 FORMAT (T4s tRADIAL BURN AREA (M#*#29IN#82) ¢sTS1 59 ABCYL Se 
B 166061508) 78606158) 
TERM = ABSLOT # At?) 
WRITE (62255) TERM,ASSLOT 
255 FORMAT (14+1#SEGMENT FACE BURN AREA (M##2,1#%2) 0,75) 9 tABSLOTY, 
S 166561568,7860615,_8) 
TERM = VFCYL ® AL9) 
WRITE(6e260) FERM,VFCYI. 
260 FORMAT (T4s*PROPELLANT VOLUME (MPRA {NP#3) teTSLetVFCYL Oe 
$ 1660615.85786s615.8) 
TERM = VP @ a(9) 
WRITF (64265) TERMeVP 
265 FORMAT(T4s'GAS VOLUME (M##3sIN®#S) Uy TSL a OVP Fe 
S 17665615.8sTA61615.8) 
WRITE (69300) 
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SUBROUTINE PRT7 
300 FORMAT (/T29taFT. ENO PARAMETERS! *) 


TERM = PON # A(5) 
WRITE (69305) TERM»PON 
205 FORMAT(T4stTOTAL PRESSURE (NOZ ENT) (N/MPS2 9LBF/INGHZ) te TS1 9 tPONt, 
"8S" 7665615.8,7865615.8) 
TERM = SPONDT ® ALS) 


WRITE (@s310) TERMseSPONDT 


~ 319 FORMAT (T4s#PRESSURE INTEGRAL (N#S/M**#2,CBFAS/INGH2) 4 TS1 9 *SPONDT Os 


$ 76616)5e8+TA60G615.8) 
_ TERM = AAN ® ACT) 
WRITE (69325) ‘ TERM,AAN 
315 FORMAT(T4s*SURN AREA (MRH2Z¢INGH2) CeTSE eV AANT, 
$ T66+G615.B8eTA6)GIS.A) | 
TERM & RBZINIeL) #°AT6) 
WRITE (60320) TERMsRAZINI+1} 
320 FORMAT (T4s4*BURN RATE (M/SeIN/SEC) 'oT5S1s!'REZ(NI +1) Mo 
$ 166+6}5.84186+G615.8) 
TFRM = TAUZ(NI+1) # A(6) 
WRITE (60325) TERMsTANZINI+1) 
325 FORMAT(T4VIDISTANCE AURNED (M,INI P,T51,# FAUZINISL} Fy 
& 766+615,85786,G615.8) 
TERM = VFN # A[9) : : 
WRITE (61330) TERMs VFN , 
330 FORMAT(T4s*PROPELLANT VOLUME (M##3_,IN#93) "eT5S] 5 'VFNY5 
& 1663615.857h6s615.8} 
TERM = VPN & A[9) 
WRITE (69335) TERM,»VPN 
_ 335 FORMAT(T4s9GAS VOLUME (M##36ING#3) (sTS1,VVPNI 4 
” $ 166361526.786.G15.8) 
TERM = PRNT{NI+3? # Aia) 
WRITE (60340) TERMsPRNT (NE 93} 
340 FORMATI{T4st*GAS STATIC TEMPERATURE (DEG KyDEG R) ts TSis*PRNTINI43) ts 
$ 166:615.49786+61528} 
TERM = AP & AlT7) 
WRITE (69345) TERM,AP 
345 FORMAT(T4e9PORT AREA (M@P2eING2) PeTS1L a tAPts 
8 Th6+G15.69TA61615.8) 
WRITE (62350) 
350 FORMAT (/T2e*NOZZLE PARAMETERS: '} 
TERM = AT # ACT) 
WRITE (6935S) TERMSAT ~ 
35S FORMAT (T4s* THROAT AREA (M#t2¢INAH2) UATSLe SATS, 
$ ares G15689TR6+G1568) 
SBYERESES, 7G. eo we toe. Pay ans 
SPREAE JAY : 
WRITE (69360) EPReEPR 


“3607 FORHAT (TGs *EXPANSION RATIO’ STS1G*EPR) “7 TT 


$ 166,615.8,786,615.8) 
WRITE 162365) PEPO,PEPO 
™ 365° FORMATT(I4s (PRESSURE RATTOCSTSItpeEpars 
B 1h6+G6250847865615.8) 
WRITE (69370) 


"370 FORAATT/T29 MISCELLANEOUS PARAMETERST#} TOUT 7 


WATTE (69375) AKRSTsAKRST : 
378 FORMAT (T4s!ANTSOTROPIC BURN RATE COEFFICIENT®s (Shs *AKRST#s 
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SUBROUTINE PRT7 PAGE 


$ 1662G)5, 8,786,615, A) 
WRITE (69380) ANLOPS+ANLOPS 
380 FORMAT(1T4,*NUMBER OF PRESSURE ITERATIONS s+ TS1 et ANLOPSts 
$ 7669G15.8 7786961548) 
IF (NRECON.FQ,0} GO TO 791 , 
WRITE (6+385) CFPROPsCFPROP 
385 FORMAT (T4et INDICATED THRUST COEFFICIENT FROM RFCONt es T51_*CFPROP Ts 
$ 166s615.8+T86s615.5} 
TERM = FINDP * AL4) 
.  WRIFE{69390) TERMsFINDP  . - 
390 FORMAT(T4s*INOICATEO THRUST COEFFICIENT FKOM RECON (NyLAFIteTS1Ls 
& NFINDP's166961558) TAG06156A) 


WRITE DATA AND PLOT TAPE 


79} WRDS = FVAC*ZERODV {WNOT) 
WRDI32 WFI-WF 
IF (NTAPE.LEQ.0) GO TO 792 
WRITE(12) TIME sFVACeAITVACsWRD4 sCSTARSCFOL sPHePONSPRAT (3921 9ATs 
SAMPNoWDOF sWROLIWE sMIReAFE DERG 
792 IF (NPLOT.EG.0) GO TO 793 . 
WRITE (13) TIME sFVACsATTVACsWRD4eCSTARSCE OL PH sPONsPRNT (341) ATs 
SAMPNe MDOT oWROL Se WF MIR GARE 9 EPG 
793 IF (NCARD,EO.0) GO TO 1050 
WRITE(70794) TIME WF aMIR 
794 FORMAT IF B.392F 12.2) 
1000 RETURN 
ENTRY QUTTAP fo 
END FILE 12 ° 
MPIT = WEE 
WRITE (}2) MITOT pMPLT eMMGROS sMMCASE + MNOZ  MIGNoNTVCe TGRAENDELF « 
$ AN2sARALFC 
END FILE t2 
RETURN 
ENN 
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SUBROUTINE SISCAL 


¢ TSP SCALING MODULE (HARRIS) =~ 7 


' 
I 





2 TMPLICIT REAL (A-Hs0~2-M) 
one ... LOGICAL LIST} STATIC. 
4 COMMON/BLKOO2/ LE OeT TeTsStL vA cia) eACSTAT CTS)  APEXT TIA) 
Ss. COMMON/BLKONG/ DTA SDTE eMC C30} AL AK (15) eCK (10) sPCBTSARETReARETEs BATES 
‘cas __..1 SIBNL sSTSTsETABT »QBTsWPRT OPA sDPE »AHALFESCLAME eQALE*WINEsWPE® | BATES 
2 OK CIO) ePAMBT ePEXBT sPEXIT 
6 COMMON/BLKOOS/ NLEWISsNSI sNF sNRECONeNCASES eNDISP yNCASE ALL 
7? _ .... .. COMMON/BLKO07/ SICONsPCTsARETsPAMTPAHALF1»WDO2sPCAVE |. _ | COSI _ 
8 “"" €GMMONZELKOLIS ETACS,TSOL SISCAL 
9 COMMON/BLKOL3/ CSTAR,STAE » SIDE p¥D1 sETANZsCSTAR2sSIACONsETANZ2e OUTPUT 
3 CLAME2 ¢SIBATeSILDVHsSILOB »SIL2PHsSI1AS sSILOVE 9SILOEeSIL2PE OUTPUT 
“16 “ ““COMMONZELRG217 TSRECeTEREC »CSBARSPNSBAR’ TWEB SPI TWeCSCOEF (3) sLIST1» 
$ STATIC 
11 ah COMMON/OLKN2B8/ALPHAsQEX+XLAMBDsSILSBAsCSTARL 
12 ™" ~ POUBLE PRECISION HSUMsSSUMsCPRsDLVTP »DLVPT »GAMMAS Ad 
13 COMMON/POINTS/HSUM (13) »SSUM(13}) sCPRI13) sOLVTP (13) sDLVPT (13) 190 
1 sGAMMAS (13) oF (26) »T(26),V (13) pPPP (13) HM 113) SSONVEL (13) /TTT (19) 200 
SESE “2, SVCMO1S3) »TOTN ELS) 210 
14 COMMON/PERF /PCP (22) e VMOC (13) oSPIM(13) eVACI (13) sSUBAR(13) ¢SUPAR(13)} 340 
oan ed, SAPP (13) pAEAT (13) sCSTReEOL eFROZ«+SSOSAREA AWT . 350 
15 OIMENSTON ACSSAV(18) 
lo 20 IF{NLEWIS+GT.0) GO TO 30 
. 1? Lo STAG § AKL) + AK C2) #ARETE + AK (3) #ARETES #2, ; os! 
is ~ CSTARZ=NC(7) 
19 GO TO SO 
20 30 CALL LEWIT = Og et os _ 
“21 77 TOO PTY SPCAVE 7 
22 P{2)> 500 
23 ww. PSPS 700, sf 
24 P tabs F006 
25 SUPAR (1) =ARETE 
26 40 CALL LEWIS 
ary Sears ""SLAE = SILVACO) ee 
2B CSTAR2=ACSTRT (1) 
29 50 WOL = PCAVERCK (4) #OTEHH2#CK (19714. *CSTARZ*ETACS) 
30 ~~" “GO ETANZ =~ TAK (610) SAKTED) RALOG(WO1) © AK (12) # (AL OG (WO1)} 442.5) 
c INPUT DIVERENCE LOSS CORRECTION END ITEM MOTOR 
_, 3b 70 IF (CLAME6GT2000) GO TO 90 a Jatt a 
42 CLAME = 0.5 + 0.5%COS(AHALFE) 
c APPROXIMATF CORRECTION END ITEM MOTOR 
33 IF CALPHA.GT.0.0 eAND, QEX.GT.000 sANDo XLAMAD,EQ.1,0) 
Ten SEL AMES” §.S40258COS (IALPHASOEXS /2207° . 7 
c METHOD OF CHARACTERISTICS CORRECTION END ITEM MOTOR 
34 IF (ALPHA GT e000 ¢ANDe QEXeGT e000 sANDe XLAMBDoNF al. 0 } 
Semen SS" CLAMER” (0554005°COS (ALPHA) PEXLAMBD “OT” 
35 90 SIDE=CLAMESETANZ*E TACSSSITAE*SILSB 
_. 36 CSTARECSTAR2#ETACS#OK (3) #SILSB Petes tng ia ’ Cig te dents 
c FORCE THEGRETICAL CSTAR CURVE FIT THROUGH END ITEM CALCULATED CSTAR 
c 
ST TP TALEWTS  Gf.0) Go FO f4g7 Pe ae ES Moe eT sa peg Te 
38 240 CSCOEF())= CSTAR = CSCOEF{2)*PCAVE ~ CSCOEF (3) 4 (PCAVEHH2) 


39 CALL OUTPUT 
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4Q RETURN 

4) 140 DO 150 I=1.1A 

42 ICOUNT = f 

43 - IF YACSTRTIT) \NESACSTRT(I+3)) GO TO 160 
44 350 CONTINUE 

45 160 ICNT=90 , 
46 1PC=1 

47 NO 165 I=lela 

48 IF (PCL) eNELP (1419) GO TO 164 

4g IF (P(E) oNEeOu0) IPCHIPC# 

50 165 CONTINUE ‘ 

51 168 ICOUNT = ICOUNT/IPC 

52 00 370 [=lyl6~efCOUNT 

53 ICNT = ICNT + 1 

54 170 ACSSAV(ICNT) = acstetir) 

55 OO 180 I=l,18 

56 ICNT=1 

ST P(1)=P(1) 414,696 

58 TF (P(1)+6T.0,0) GQ 10 180 

59 GO TO 190 

60 180 CONTINUE 

6} 190 ICNT = ICNT ~ } : 
62 CALL LESSO(P,ACSSAV.ICNTS CSCOEF) 
63 GO TO 130 

64 END 
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INDEX SUBROUTINE SISCAL 
SYMROL —____ tmentrissrementcertntreetntadcewenengment= REFERENCES 
20 - 16# 

30 seed 4 - emermeny +!) es Shasta. Ae hele ge pew é ; 

40 - Pat 

50 - 19 294 

40 Soo! Oe A Sim poate, Nees Soran Var stir fe Sasa ea Sek 
70 - ale 

90 - a1 354 

BBO Se BO Ek i ed n tees 
140 = 37 4i# 

LSo - 4100 448 

160, os 43. 5 ee Oi, Soe ee ey Aes, aot 
165 = 47D0 Soe curd 
168 - 48 5it 

170 |.) = 1 820 Bae Be pee ae 
180 - 5$b0 58 60% 

190 - 59 61* 

ACSSAV, - ISO | S45 | SCAG : - 

ACSTRT - 4CcO 28 43 54 

AEAT - 14c0 

AHALFE - 500. 32 _ . . 
AHALFI = 7C0 

AK - 5C0 17 30 

AL - sco... 7 eer Bet oe ldee ot 
ALOG =" 7367 

ALPHA = 11co 33 34 

APEXT = 4C0 av ee ein pn a ate 
APP ee AE ere ee 

AREA - 14C0 

ARET - 7cO fu, fae . é, 

ARETB -~ ™"5¢0 

ARETE = 5¢0 17 25 

AUT 27... 1400, A ahs m 
BLKo002 ° ~ 4a 

BLKQ04 = - Ss 

BLKOOS - 6% 5 oie OP oe 

BLKOO7? + 74 

BLKOIT = go 

BOON OR a oe ee ee fo oto ee = ae 
BLKO2i = Joe 

BLKO2B = 114 , 

cK - Sco 29 23 Mi tee nee 
CLaME = ° SCO “731777 “32s °°" “3a 342 35 

CLAME2 = 900 : 

cos - 42 33 34 phe ee, Lick Z 
CPR -* “jeoe 7 yseaT 

CSBAR o> 10CO ; 

CSCOEF - ,0Cco 285 62AG Led CME chest oe 
CSTART =O 9 CO BE 

CSTAR] = 11Cc0 ' 
CSTAR2 = 9cD 185 265% of 29s 286! Ee as 
csig: =e 74500" CS 

DLYPT = }208 13¢0 

OL WTP 2 ooh VeDB SCO) a he ee Se _ 
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UPR 
DPE 
UTB 
DIE 
&QL 

E TAHT 
ETACS 
ETANZ 
ETANZ2 
FROZ 
GAMMAS 
HSUM 

I 

ICNT 
LCOUNT 
Tec 
LESSO 
LEWIS 
LEwITt 
LIstl 
4C 
NCASE 
NCASES 
NNISP 
NF 
NLEWIS 
NRECON 
NSI 

OK 
OUTPUT 
Pp 


PAMAT 
PAMT 
PCAVE 
PCBT 
Pcp 
PCT 
PERF 
PEXAT 
PEXIT 
PITW 
PNSHAR 
POINIS 
PPP 
Ale 
QaT 
QE X 
RETURN 
STACON 
SIAE 
STAS 
SIBAT 
STBNL 
STAT 
STCON 
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5CO 
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492 
422 
465 
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26% 
2oe 
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5coO 
age 
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7co 
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149 
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5CO 
10CO 
10CcO 
33% 
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11¢0 
40* 
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9cO 
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SCO 
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SIDE -.. 900. 355.. 1 7 
SILDVE = 9¢0 

SILOVE = 9c0 ; 

SILOPT = 4co. Sty te cee : eae 

SILQH 9CO 

SILQE = 9co 

siusB = | 12100, 38_ _ 36 eee = # Be oes 
SILVAC = 4cO-” 37 

SiL2PR = 9cO . 

SYLePe i. BOOT ak Seo Nee tie els eae. . 
STSCAL = id 

SONVEL = = }3C0 

SPIM = 4CO 7 ee tt) SF Se 
SSUM = ~ «1208 ~" 1366 

$s0 - 140 

STATIC =~ — 3LG 1gco se OS + Tae fe 
SUBAR 7 3400 

SUPAR = 44CO 25s 

7 - 1300 : erate a 

TeREC =~ = 00 

TOTN, = =- = 13C0 

TSOL = aco | _ a faire! ee 

ISRFC =~ ~—-10€0 

TTT - 130 

TWER = 10CO_ Se, tes Z 5 

v -  —-.3t0 aie : : 

VACT = —- 340 

ViM ope bBCO ots L Sh Oe be ts eas . 

vMoc = = *14C0 

wOl - 9c0 0 29= 30 

wO2 - 70 

WINE = sco : a 

we = — 43c0 

weBT = Sco ; 

WPE - Sco : e ; 

XLAMBO == = 12033 34 F 
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SUBROUTINE VART(A,A3SIGsATAByNPTS) 
UIMENSION aTaHil} 

SUMA=0,0 

00 10 I=lLeNPTS 

SUMX = SUMX «+ ATAB(I) ; 
CONTINUE 

XHAR = SUMX/FLOATINPTS} 

SUMX30,0 

DO 20 F=keNPTS 

SUMX = SUMX + (ATAB{I) =XBAR)} #42 
CONTINUE 

AJSIG = 3e*SQRT(SUMX/ (FLOAT (NPTS=21})/A 
RETURN 

END 
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FLOAT 7 12 fee aE ey ES . 
I 4D0 S 900-10 

NOTS once Tie moh AB! 400 eT on RO. ee ed ee wi ata Seebtede Ms 
RETURN 13# 

SORT  - 12 

SUNK 6 oe PE SP Cee OR NO Te wane ese an Sa Te as 
VARI” “= te 

XBAR = = 10 
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SUBROUTINE LEWIS 


REAL#B LEW/ELEWIS DAt/ 
QDOUALE PRECISION GoX 


THE FOLLOWING DOUPRLE PRECISION TYPE STATEMENTS ARE REQUERFN FOR 
18M 360 MACHINES ONLY 


DOURLE PRECISION HSUMsSSUMsCPRSDLVTP eDLVP T+ GAMMAS 
pouBLE PRECISION COEF sSeENeENLNeHO eDELN 


REAL MIX{15) 

INTEGER DATAs OMIT, ENSERTs REACs BLANKs THRMs &NOVSUR 
LOGICAL SHOCK sMMHG UV 9 TCeDE TNs SEUNET sEUNT 15 ¢NSQMsCALCH 
LOGICAL HP +SPe TP sNEWRs TONS sMOLES oF ROZ»EQL sPSIASRKT + VOL TV 2 SV 
LOGICAL FA OF sFRATIOsFPCTsOTTOsERR 


DIMENSION OMIT (393) «NCD (4) sFNSERFE (393) sRHU (26) +LVP{2) o VM (2) »VL 124) 
1 sDAT(22) 

COMMON /PO [INTS/HSUM (13) 5 SSUM (13) sCPR(13) eDL VIP (13) eDLYVPT (1 3) 

1 +GAMMAS (24) 5P (26) 67 €26) oVOCEQ} ¢PPP (13) oWM (1 3) eSONVEL C19) TET OLS) 
2 oVLM(13} sTOTNE} 3) 

COMMON/SPECES/COEF (767+ 115) 6S (115) eENTE1%59I3) vENLN( 125) #HO(115) 

L sDELNCI1S) 6ACE59 125) ¢SUACL LS» 3) e FUSE CLS) e TEMP (504 2} eStLN(115) 
COMMONS] SC/ENN s SUMNG FT + SOsATOM( 3s] OL) eLL AT (15) eAO (ES) BOP (1592) 

Loe THe TLOWs TMIDs THE GHePP sCPSUM+ OF sEGRAT oFPCT +RoRR GHSUBO eAC(P) eAM(P) 
2 sHPP (2) sRH(2)s VMIN(2) pVPLS (2) eWP (2) eDATAL22) sNAME (1545) 

Jy ANUML15 95} sPECWT (15) sENTH(1S) oFAZ(15)} sRIEMP O15) eFOX(15) eDENS (15) 
4 sRHOP sSRMW(15) se TLNe CRE OXF C15) sENNL sENSAVE SENLSAV »TRACE,SIZE 
COMMON /DOUBLE/ G(20821)2 X20) 

COMMONS INDKS CONVGs TP +HPeSP,ISVe NPPs MOLES eNPoNToNPT oNi M 

1 ¢NSoKMATs IMATs [QR oNOF sNOMI Te TP eNEWR sNSUB ¢NSUP, I TMeCPCVFReCPCVER 
2 ¢ TONS eNC eNSERT » JSOL sULIQeKASE sNREACe [Co JS] eVOL eSHOCK oI T oNFZeCALCH 
3 sTOSAVE sLSAVE + 1SUP.ISUB6 1 TNUM 

COMMON/PERF /PCP (72) »VMOC (13) ¢SPIM(13) pVAC] (13) sSURAR (14) +SUPAR (1 9) 
1 pAPP £13) sAEAT(N3) eCSTReEGL +FROZ9S50 vAREA sAWT 
COMMON/BLKOOL/IRKTOLS IRKVO2Z¢ERReIN 


EQUIVALENCE (OMIT sENLN) + (ENSERT oDELN) » COXF eUEX) 
1 oe COF ,OXFL) » (RHOSPoVL) & {50450} e (OTTOsCPCVFR) 6 (NATASDAT} 


DATA MIT/4HOMIT/sBLANK/1H 4+ REAC/4HREAC/ «17 /PH007 
1 gNMLT/GHNAME/ VS IE/VHE/ + INSFRI/GHINSES FND/3HFND/ 
2 sGAS/THGE/ eLAST/GHLASTS 


NEwR = «FALSE « 
ERR = .FALSE. 


CALL DATLOCILEW) 
IF (ERR) RETURN 
RR = BI14.9 
R = RRVA1B4, 
203 READ fINg2N4) (OATA(T) eT3Le1S) 
204 FORMAT (5(34463x)) 
IF{DATAC1}.£0.REAC) GO TO tl 


20 
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50 
60 
70 
RO 
90 
100 
110 
i20 
1306 
140 
1s0 
140 
170 
180 
190 
200 
210 
220 
230 
260 
ao 
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270 
2A0 
290 
300 
330 
320 
330 
340 
350 


360 


370 
386 
390 
40 

410 
420 
470 
480 


490 


570 
5710 


550 
490 
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INDEX SUBROUTINE LEWIS 
wSO OE COATA CL) EOMIT) GO TO 205 2 Per 600 
a IF’ (DATA(1).€Q, INSERT) GO TO 180 ; : 610 
32 IF(DATA(1}.EQsEND } GO TO 210 . 620 
— 33 UP IDATA() 1 2EQeBLANK) GO TO 203. 0 ee 630 
34 1dS7 WAT TE (691024) S68 
3S 1024 FORMAT(tOERROR IN LEWIS INPUT CARD, CONTENTS AFLOW?) 
_3& WRITE (632045) (DATACE) sE=15t5) - au. 560 
37 ~ 2045 FORMAT IT 65 (3046,3K1 5 570 
38 GO TO 203 660 
w «29 NSERT = See ance oti Ns Sarees GAN a Sete a an Ae TOL 
40 “MOLES = eFALSE. &60 
41 CALL REACT 690 
42 IF{NLM.EQ.0) WRITE (6952) 700 
a” < re 7y FORMAT LEGROERROR IN” Be Re TANT CARS pe ee ee a: EG 
4a CALCH = FALSE. 720 
ah pee HS 20755 NEL ¢NREAC cee on os es senna ene ee ee | PO 
46 Tf (NAME (NGS) ©EQeIZ) CALCH=. TRUE» 740 
47 755 CONTINUE 750 
Beis |: See eee GOTO BOR ie ey atti + eckgeten a ete te a 760 
C 4030 
c CHECK INSERT CARS 1040 
Ai ost ACE es pt IS te Site te nt pene ___ _,1050 
49 180 DO TAS 1s4,15.3 best on woe emer cts me “TOAb 
50 If (DATA(I}.EQsBLANK) GO 10 185 1070 
_ oe OL NSERT & NSERTOR 80 
CG TF INSERT.GT.SO) WRITEL6s J 
52 IF (NSERT.GT.50} GO TO 203 
53 ENSERT(1sNSERT) = DATACT) 1090 
“oc si——-"_— ENSERT (2 NSERT) = DATAUL*Y) TOC Lo 
55 ENSERT(3,NSERT) = DATACI+2) 1110 
, 560 0 186 CONTINUE ete Akt etd nl Me 5 Lees = «AO 
57 GO T0205 1130 
c 1140 
vee HE. CHECK OMIT CARDS _ : cee o 1150 
Cc 1160 
ba 205 00 208 1=451553 1170 
59 IF (DATA(I) .EQeBLANK} GO _TO 208 : 1180 
7" 6G TUT CO RNOM YTS NOMI TAT 2 ee “""" $190 
c IF (NOMIT.G6T.50) WRITE(Be ? 
we eee OE ee DE (NOMI TF 6GT050) GO-TO 209) per ee ree eee 2 
2 ““OMITTL SNOHIT) = DATACID PP a ee i et PE Gals wee ON 
63 OMIT(2,NOMIT) = DATAUT+1) 1210 
4 OMIT(3,NONIT) = MATA(T+2) 1220 
PRE 66s ee SOR CONTINUES ot re pre cee ee ee ena MGS SRE "Lago 
66 209 NEWRE , TRUE. 
67 REWIND 4 1250 
a ro B00 BOR ee ne tt teem oe 15RD 
c 1270 
Soe BEGIN NAMELIST INPT2 Ok = a 12A0 
Cc 1290 
- 210 DO 300 1=1426 1300 
TUL] Oe 1320 
ae 1 acti ar 2S ge cw me ee a ee, ee en Wye ” “£330 
72 300 CONTINUE 1340 
penne eee —_FRACE = 0 ges od Sin eh Bae teria eit Sil me IO a 1350 
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100 


103 
104 
105 
106 
107 
108 
209 
110 
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lle 
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114 
18s 
116 
117 
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319 
teo 
123 
122 
123 
124 
125 
126 
127 
128 


303 


304 


305 
322 


307 
722 


3273 


333 


“625 
745 


SUBROUTINE LEWIS 


sq 30, 

Vle= 0, 

V2 = 0. 

CR = 0. 

RHOP = GO, 

KASE= 0 

TR = sFALSEe 

HP eFALSEs 

SP=,FALSE. 

TV = eFALSE. . 


UV = .FALSE. 
SV = .FALSE. 
OTTO = sFALSEs 
RKT = » TRUE. 
SHOCK = ,FALSE. 
VOL = ,FALSE, 
STUNIT = FALSE. 
EUNITS = sFALSEe 
IONS = sFALSEe 
FA= «FALSE. 
OFs .FALSE. 
ERATIO = eFALSFe 
FeCT= .FALSE. 
HO 303 Is},15 
MIX(D) 5.0, 
CONT ENUE 
NT = 1 
EOL = ,THUEs 
DO 305 1=1+26 
IF (PCLT ).€0.0.} GO TO 322 
NP = I, 
P (NP) =P (NP) 144696006 
CONTINUE 
DO 307 IT = 1926 
IF (FCIT}.FO,0.) GO TO 722 
NT = IT 
CONT ENUE 
DO 625 IST=16k5 
IF(WPC1) EQ200) OXF CISTI RO. 
IFt MIX (]ST)eNE,0,) GO TO 323 
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104 220 CONTINUE 4240 
105) | NEWRS, TRUE, ree : 4250 
~ A932, é ! 6 ii Foe ot So | ead fet - - pm Seo 
C ARE ELEMENTS SAME AS FOR LAST SET OF REACTANTS» IF SOs NFWR=.FALSE. 4270 
c 4280 
106°" TF ENLMINEALST GO" To 226 ~ ‘ ae ae 4290 
107 IF{NOMIT,NE.0) GO TO 226 4300 
108 DO 224 I=),NLS 4310 
109° 757" PG B22 “JSYeNeM . ” 4320 
110 JFC(LEMT (J) NESLLMTS(I)) GO TO 222 ; 4330 
V1 SBOP CT) 1). poe LA eS Ue ne ea : 4340 
“ jie SBdP tf ey = BOP (997) a WI ners ‘ 4350 
113 GO TO 224 4 4360 
114 222 CONTINUE 4370 
lis?” G6 to 226" Sr oo fare tpt ee 7) a eS crs is 4380 
116 224 CONTINUE | : 4390 
117 NEWR = »FALSE. 4400 
Jia 7 7" ™ AN 225 " 1SRTNLM OT cae TE SEER ee “7 BGTO 
119 , CLMT(L) = LLMTS¢n) 4420 
120 BOP (191) = SBNP{Te] 4430 
{ern OP Tab BTSBOPCIS2y0 7 TO” Tong Oo poe re 4440 
122 225 CONTINUE 4450 
123 GO t0 229 Q 4460 
we ee em net ee a me nec oe ees 
Cc . 4420 


124 _226 f NLS = NLM 4490 


b-dz00t-99en 
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22A 
229 


230 
1004 


NOMIT = 0 

REWIND 4 

D0 228 Tel,NiM 
LUMTS(T) = LLATEI> 
CONTINUE 

00 230 N=] ,NREAC 
IF (NENS(N} wNEe0e) GO TO 230 
RHI2) = Os 

RH (1) = 0. 

GO FO 1000 : 
CONTINUE 

RETURN 
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SUBROUTINE SEARCH 
SUBROUTINE SEARCH 
SEARCH TAPE, FOR THERMO DATA FOR SPECIES TO BE CONSIDERED 


THE FOLLOWING DOURLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 
THM 360 MACHINES ONLY ‘ 


DOUBLE PRECISION COEF »sSeENsENLNsHOsDELN 

INTEGER SUByOMIT ENO) TOOBIG 

LOGICAL NEWR,OTTO 

QIMENSION DATE (243) oMT (4) 68 (4) cOMET (393) #NAM(3) e TOOBIG (3650) 


COMMON/SPECES/COEF (29 7912S) 9S (195) sENCLIS 023) sENLN GIES) 9HO0115) 
bE sMELN CEES) 5A 015,115) 6SUB(21563) + IUSE (115) s TEMP (5092) sSUNCI15) 
COMMON/MISC/ENN s SUMN, TT 50 ¢ATOM(3e 102) oL LMT C15) 80115) sROP (1S 92) 
1 os TMsTLOWs TMIOs THIGH) PP sCPSUM OF sEORAT oF PCT eRe RR«HSURDe AC (2) AM (2) 
2 sHPP 2) RH(2) 5 VMING2) @ VPLS (2) eWP (2) sDATA(22) gNAME (1595) 
3 sANUM (1505) sPECWT (15) sENTH(15) sFAZ(15) sRIEMP (15) »FOX (25) DENS (15) 
4 «RHOP»RMW(15) pTLNeCREOXF (15) sENNL+ENSAVESENLSAV + TRACE SIZE 
COMMON/ INDX/ CONVGeTPeHP eSP+ISVs NPPs MOLESsNPeNTeNPT oN M 
1 eNSoKMAT oe IMAT 4 1Q1 sNOF oNOMIT 4 EP +NEWR pNSUH sNSUP ¢ I THe CPCVFR eCPCVED 
2 ¢ TONS pNCINSERT s JSOL o ULI Qe KASE sNREAC pI Co USL e VOL s SHOCK ¢ IT eNFZeCALCH 
3 sTOSAVE sL SAVE» ISUPsISUBsITNUM 


EQUIVALENCE (DATE LEN) ¢ (OMIT »ENLN) + (ENDD SEND) » (TOOBIGsENLN) 
DATA GAS/IHG/ sEND/3HEND/ 
128: 


NC= 
Ixs 


0 . 


oon 


CHECK DIMENSION FOR NUMBER OF SPECIES» CLEAR AlTeJ) 


SUB t1st) = END 
DO 3 =J=1.1000 
. IF (AtL)»I)-EO,ENDD) 60 JO 4 
NO 3) J=lsNLM 
AlJSeT) = 0, 


_ 3 CONTINUE 


4 MAXNS = [=} 

READ TEMPERATURE RANGES FOR COEFFICIENTS OF WASEQUS SPECIFS. 
READ(4,5)  TLOWs TMIDs THIGH 

5 FORMAT (3F10.3) 
NS = 1 

BEGIN LOOP FOR READING SPECIES DATA FROM TAPE. 


7 READ {4e10) (NAM(T) eT=19300¢ DATE (LeNS) SDATE (2eNS) oe (MT (J) oA it) 6 
1 J®L94) sPHAZsT19T2 


4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 


4770" 


4R00 
4B10 
4R20 
4830 


300 
4860 
4870 
4880 
4890 
4900, 
4910 
4920 
4930 
4940 
4950 
4560 
4970 
49a0 
4990 
5000 
5010 
so20 
5030 
5940 
5050 
5960 
5070 
5080 
5090 
$100 
5110 
$120 
$130 
5140 
5150 
5160 
5i70 
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TNOE x ' SUBROUTINE SEARCH 
otal gee See ___ 10 FORMAT (3A4 6X e2A3 4 Alef 3eOdsAle2F 1003) - 5180 
26 IF (NAM(2).EQ,END) GO TO 171 5190 
27 READ (4920) ( {COEF (Ie JeNS) yJ=197) oT=1 +2) 5200 
we nce ween 24 2 FORMAT (5E15,8) Deere Lon ee rede Spooerr>, cra T5210 
TF (NOMTT.E0.0) GO-TO 810 5220 
30 DO BOS I=),NOMIT 5230 
Ms oe) 0.804 Jeled Sateen Puneet Be wet tae tee 5240 
c= TE ae TF TOMTT CI TH NE Name) GO TO B05 a $250 
33 804 CONTINUE 5260 
ie gE GOT as aN a i a TO. 
35 805 CONTINUE 5280 
36 B10 DO 820 K=}y94 5290 
oe a CIR BK) 0 EQ.0.) GO TO B25 Pee Pe, _ 5300 
35° 00 Y68 T=1,NLM o> eS Sse S310 
39 IFULEMT (CY) EQeMT(K)} GO TO AZO 5320 
ee 40168 CONTINUE anaes ins : ns, 5330 
ms "TF (NS GTS MAXNS) GO-TO 7 SG ig ea The ee Trt Sya0 
42 D0 819 J=1,NLM S356 
afk es 43 B19 ACJiNS) = 0, oe eee Aas S 5360 
ae GO Td 7 ae SSO pet ee ya wr reer —mnnns = S370 
45 B20 IF(NS+LEeMAXNS) A(TeNS) = BK) $380 
ia eee ORS. B25 IF (NSeLEeMAXNS) GO TO 828 pid a ee 090: 
47 Te = feb 5400 
4B DO 826 12193 5410 
no Atte AD 826 TOO8IG(I,12B) = NAM(T) ee ee HPO 
50 60 TO 7 5430 
51 828 OO 829 1=143 $440 
be Dee ee, a29 SUB INS tie BANU 5450 
33 Tuse (NS) = 6 ——— ns 1: 
54 IF (PHAZ.EQ, GAS? GO TO 170 S470 
c 54R0 
Sven “moa Cr CONDENSED SPECIES 0 TS ne ee ee we OTE SAGO 
c 5500 
eee DS NCE NCH Se Oe neta, 5510 
"$6 YEMP (NES 1) = Ti)” a Tg AR a ee tae pe - $520 
ST TEMP(NCs2)= T2 5530 
See dere SB dks 1X01 elton ta reT ere 7 5540 
a [FINS EQ. TORS IUSE INS=“1YGEQLO7°” GO TOU45 ; - “$556 
60 DO 830 T=) ,NLH 5560 
chet bbe IF (A(T»NS) NEvACT yNS=1)) GO TO 145 __ ee 5570 
62 “age CONTINUE eae e ha ae Sg ~ 7 = §Sa0 
63 IX= [X=] 5590 
64 14S USE (NS) = “IX 5690 
ane \- SUS WC 0 TO Sm 5610 
66 GO TO 7 5620 
= cae sees pees ae — ar kat ew metres 5630 
ps ctagarrss GERD CARO HAS” BEEN READ. SoS gen pye ee ary ee Ye oA 11%") 
5650 
eto Mantas 67 am NS= NS-1 * 5640 
“68 —"" NEWRe 9FACSE D7 ee AE ga. pe der wae iG ae > 5670 
° IF {128,GT.0) GO TO 870 5760 
RETURN 5770 
aed aT a TE Ues001). 32000 7 - > 57a0 
72 871 FORMAT (3SHOINSUFFICIENT STORAGE FOR FOLLOWEINGsI368H SPECIES) 5790 


73___ WRETE (69860) (TOOB1G(1eJ) o FOORIG(2eJ) sTOOBIG(IejveJEleT26) _ . aay 
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880 FORMAT (H(3X%—93A4)} 
NS = 06 
RETURN 
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SUBROUTINE HCALC 
SUBROUTINE HCALC 


CALCULATE PROPERTIES FOR TOTAL REACTANT USING THERMO DATA FOR 
ONF OR MORE REACTANTS. 


THE FOLLOWING DOURLE PHFCISION TYPE STATEMENTS ARF REQUIREN FOR 


IRM 360 MACHINFS ONLY 


DOUBLE PRECISION HSUM+SSUMsCPReDLVTPeDLYPT ¢GAMMAS 
DOUBLE PRECISION COFF +SeFNsENLNeHO+DELN 


LOGICAL MOLES? VOL +SHOCK sCALCH 


CALCULATE ENTHALPY FOR PROPELLANT USING COEFFICIENTS 


DIMENSION NUM(1545) 


CUMMON/POINTS/HSUM (13) ¢SSUM (13) ¢CPR(13) eDLVTP119) eDLVPT {13> 
1 sGAMMAS (13) 46P (26) oT (26) »V013) sPPP (13) oWM (13) @SONVEL (14) e TTT ELS) 
2 sVLM(L3) eo TOTNE13) 
COMMONS SPECES/COEF (2670145) 55 1115) sEN(1L15023) eEMLN C315) 'sHO(115} 
4 sDELN(215) 9A (150115! 9SUB (11503) oJUSE (115) s TEMP (5052) 9SLNCI15) 
COMMON/MISC/ENNs SUMNs TT oSOeATOM(39 10!) sLLNT (15) BO (1S) sBOP (152) 
1 «TN. TLOWs THI De THIGH PP yCPSUM OF pEQRAT ys FPCTsReRReHSUBDeAC (2) »AM(P) 
2 sHPP (2) sRH(2) 5 VMIN(2) eVPLS (2) #WP (2) »DATA (22) eNAME (1545) 
3 sANUM(159S) PECWT CIS) sENTH(15) eFAZ(15) eRTEMP O15) oFOX({5) sNENS(15) 
G sRHOP sRMW(15) oe TLNsCReOXF (15) sENNL yENSAVESENLSAV e TRACE oSIZE 
COMMON/ INDX/ CONVGseTPeHPeSPeI1SVs NPPs HOLE SsNPeNTeNPTsNLM 
1  sNSeKMATs IMATe3G1«NOF sNOMT Ts IPeNEWR pNSUU sNSUP 9 I TMs CPC VFR s CPCVEQ 


“2 sIONS NC oNSFRTsJSOL eULIQsKASE eNREAC s [Co J51 sVOL eSHOCK g FT NF Z9CALCH 


3 sIGSAVE sLSAVE s ISUPs ISUBs TE TNUM 


EQUIVALENCE {ANUMsNUM) 4 (LeNLM} o (Je JS1) 
EQUIVALENCE (AM}eOATAC20)) ¢ (CPRISDATACAL}) 
DATA AG/THG/,17ERO/2H007¢0X/ 1 HOS gBLKZIH 7 


KOM = 0 
TSAVE = TT 


CALCUALTE MOLECULAR WEIGHT OF TOTAL REACTANT.+ AM). 


IF {AM(]}4NE,0.0 AND. AM(2).NE.0.0) GO TUS 

AM1= AM(2) 

IF {AM(?).EQ,0.0) AMIS AM(1) 

Go TO 9 ‘ . 


4 AMI S(OFS1 eb #aM(1) PAM(2)/ CAM CL) ©OF OAM (2)) 
9 TM = D. 


IF (PP.GT.0.) TM = ALOG(PR#AN]) 
SSUM(NPT) = 0, 
HPP(1) = 0. 


HPP(?) = 0, 


HSUH0 = Oe 
cPR1 = 0, 
ANN = (14+0F) 


LOOP ON REACTANTS. 


5aso 
5Aa60 
5a7o 
5AA0 
Sant 
5900 
5916 
5920 
5930 


-5960 


5950 
5960- 
5970 
59A0 
5990. 
6000 
6010 
6020 
6030 


6040 
6070 
6080 
60906 


300 
6120 
6136 
6140 
6150 
6160 
6170 
6180 
6390 
6200 
6210 
6220 
4230 
6240 
6250 
6260 
6270 
6280 
6290 
4300 
6310 
6320 
6330 
£340 
6350 
A360 
4370 
6380 
6390 
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SUBROUTINE HCALC 
2 Sits aie Ms eR ZOMIOANT eC KED 2. oie an eerie Ss delet, Meee ds de : 6400 
c IF FUELs t=? ‘ 6410 
c 6420 
eo Gane Bes, DO'S 00 Ns} y NRE AG ee ee BA 
29 Kz2 ; 8446 
30 IF [FOX(N) .EQ,0X)K=1 6450 
Peres 31_____JEINANE (N15) NE LZ2680)- OO a ee coe ta, gs OOD 
IF (.NOTeCALCHAAND.TT.NE.06) =GO TO 1 6470 
a3 “TT = RTEMP(N} : 6480 
SE A Sia a ee ee ee 0. 
C€ IS TT IN RANGE 6500 
c 6510 
‘ w= 94S LE (SHOCK) GO _F0 16 eS a ee ee. 6886: 
35 IF ITT LT. (TLOW/1.2) eOReTTeGle (THIGH®1.2)) GO TO 75 6530 
36 16 J = NUM(N+S) 6540 
of sxe it -——- wren FEO NE 2 OL. GO TOGO ne cece ee cee eee eee -« «=—8550 
DO 10 JEdeL 6560 
a3 DATAGIIS0. 6570 
je MO CONT SN i a gl eh a ee  VOSBOL 
c 6590 
c TEMPORARILY STORE STOECHIOMETRIC COEFFICIENTS IN DATA ARRAYs 6600 
Spot: ener LE er ey See aN aa = pga wer Se oe BOT DS, 
DO 40 T=194 6620 
42 IF (ANUM(NeT).EQ.0.)G0 TO SO 6630 
weer were tS OO 29 Jet _ ee ds Berean arte ctaa de tac BONO. x. 
IF (LLMT (J) LEQsNAME(NGI)) 60 TO 30 6650 
45 20 CONTENUE 66460 
aes #6. 230, DATACJIEANUMINe DD 8670 
47 40 CONTINUE 6680 
48 50 I5z0 . 6690 
Sp ae eee, Jor steht Saas Sea, —.., 8790, 
c “SEARCH FOR REACTANT IN THERMO SPECIES. STORE INDEX IN NUMINGST, 6710 
Cc 6720 
comet ee mee hY 9. 79 JER INS Sih cesta hee cod lye pt rae Seda og eee ROO): 
50 IF (USE(I).€0.6)60 TO $5 47460 
Sl IS = IS} . 6750 
. $2. ou . IF (FAZ(N) .EO.AG)GO Fro 70 ane eran ee TA:') 
$3 TF UT PeGTs TEMP (1842) cANDs TEMP (S32) eNE® THIGAY “GOTO 70 ” 67707" 
54 IF (¥ ToL Ta TEMPCIS#1) eANDa TEMP (ESs1) sNEeTLOW? GO TO 70 6780 
sion tas eat aes Be OO TO BO ee Dat A ee ee | ket Spt ee Oe 6890 
56 S55 IF (FAZIN) NE SAGeANDFAZIN) NEeHLK) GO TO 70 6800 
S? 56 DO 60 I=leL 6810 
SB IF {ACT J) aNESDATA(IN) GOTO 70 = 6820 
59 60 CONTINUE ; ~ Be es Same” BRAG 
60 NUM(NeS? = J 6840 
ast GO TO 90 snk eens tis er er ee, le ERs ts P 6850 
62 70 CONTINUE 6860 
63 GO TO 80 6870 
ore apnea ae ane at . 6880. 
c CALCULATE EN FOR REACTANY AND CALL “cPHe “TO CACCHLATE PROPERTIES.” 6890 
c 6900 
64. wa 8 ROD SY. os ra Gaeta) 6910 
65 90 IF {MOLES) ENS = PECWI(N)/WP(K) ae "4920 
66 IF {.NOT.MOLES) ENJ = PECWT(N) /RMW (IN) 6930 
o? ENJ = ENJZANN . : 6940 
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68 
69 
70 
71 
72 
73 
74 
7S 
76 
77 
7a 
7 


ao 
al 
82 
83 
84 
4S 
&6 
87 
88 
ug 
yo 
91 
92 
93 
94 
95 
N26 
QT 


aan 


500 


900 


75 
76 


80 
85 


1000 


SUBROUTINE HCALC 


TE (KeEGe1)} FNU = ENJFOF 
TF-ANAME (N0S} WNESTZEROIGO TO 500 

NSS = NS 

NS sc J 

TLN = ALOG{TT) 

IF¢eNOQTs«CALCH) EN(J,NPT) = ENJ < 
CALL CPHS 

NS = NSS 

IF (HO(J} +GTe~e01 sANDe HOC J) oLT,e01) HOY) = 0, 
RTEMP(N) = TT 

IF (VOL) HOCJDSHO( JI -Dde 

ENTFHIN) = HOCUPeRETT 


ADD CONTRIBUTION TO Che He AND S OF TOTAL REACTANT, 


CPR1 = CPR + CPSUM 

SSUM{NPT} = SSUM(NPT) + ENJ # (S{J)=ALOG(ENJ}=TM) 
EQ = ENTHUN) SENU/R 

HSUBQ = RSUBO+ER 

HPP(K) = HPP{K) +E 

CONT ENUE 

IF(TSAVE.NF ee) TYT=TSAVE 

60 TO 1000 

WRITE (6976) 


FORMAT {(SOHOREACTANT TEMPERATURE OUT OF RANGE OF THERMO DATA ) 


TT = 0, 

GO To 1000 

WRITE (6+85) N 

FORMAT (9HOREACTANTsoI2s22H IS NOT IN THERMO DATA } 
Ty = 0. 

IF {KOD.EQ.}) CPRI = O- 

RETURN 

END 


6950 
6960 
6970 
6980" 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
70A0 
7070 
TORO 
7090 
7100 
7310 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
73190 
7200 
7210 
7220 
7240 
7240 
7250 
7260 
7270 
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SYMBOL smeetrrermenenemertmanemememememererectT es, REFERENCES «= <t~tmtedwtmtntatotutatntotmtutabutaraborod 
4 = 15 19% 

9 - 18. eget ot es ene 

lo - 38L0 4o# 

15 - 32 348 

14 - 4 - 96*_ = : nd ba ( Gee's 
20 = 4300 45% 

30 - 4S 46% 

40 - 4100 424, aS iets a ae . Sef arse us 
50 - 42 48% 

$$ - 50 S64 

56 - 1.95 . ,§7# 3 : 

60 - 5700 596 

70 - 4900 S2 53 54 56 58 62 

75 - _35 ., fee, 7 7 . 

16 - ABWR A968 

80 - 63 Gee 

85 =U 92WR, 934 ; Z : oe 

89 - 31 640 

90 - 37 61 650 

500 > 69. 1 829 Saas Sone Cee Se | Ee ae a a 
900 - 2B00 ase 

1ovo - av 91 ose 

A - _ .7¢0. S@. ze < ts ot Gs eis) shies ks 
Ac - 8CO 

AG = 12DA 52 56 

ALOG ~ _ 2l_ 72 | at 2 moses o Rae eee OR 

AM - aco 15 16 17 19 

Ait] - 1]1Fa 16= t7= 19= at 

ANN - ore 67 

ANUM - aco LOR 42 46 © 
ATOM ~ 8CO 

BLK r _VepA, = 56 é 2's Teed J 
80 = 8C 

BOP ” 8co 

CALCH =. 44G__ = 90 32. wave se eu s eseed Poe ere es 
COEF - 308 7co 

CONVG - 9c0 

cPCveO - |. 9C0. ESE eee yey sient sk Bug Ss 
CPCVFR ~ 9co 

CPHS - 74" 

CPR - 208 | 6cu_ 

CPR} - li€u 26= 802 95s 

cPSuM = aco 80 

cr az: 8cO | if 

OaTa - RCO 11FQ 395 465 58 

DELN - 308 7co 

DENS == aco : q 

OLVFT ~ 708 6co 

OLVTP -_ 2d8 6coO 

EN ~ 308 70 73s. at ; 

ENJ - 465 66% 67= 682 73 a) fe 

ENLN - an6 7c0 

ENLSAV - aco 
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ENN 
ENAL 
ENSAVF 
ENTH 
EORAT 
ER 
Faz 
FOX 
FPCT 
GAMMAS 
HCALC 
HP 
ripP 
HSUBO 
HSUM 
HO 

1 

Ic 
IMAT 
INUX 
IONS 
IP 
TOSAVE 
Tal 
1s 
TSup 
Tsue 
Isv 
IT 
ITM 
ITNUM 
IUSE 
TZERO 
J 


JLIO 
JSOL 
Jsi 

K 
KASE 
KMAT 
KOD 

L 
LLMT 
LSAVE 
MISC 
MOLFS 
N 


NAME 
WC 
NEWR 
NFZ 
NLM 
NOF 


$e@nrgnggpe st evprtee gue tee dee eet ene) tS taedt 


@#e#eteudesc bQtanreds 


ca 
aco 
aco 
aco 
aco 
#2= 
aco 
aco 
8CO 
208 
ye 
9co 
Aco 
HCO 
raul) 
308 
4100 
9c0 
$co 
corey 
9¢0 
9CO 
9CO 
9c0 
48= 
9cO0 
9CO 
9CO0 
9cO0 
9CcO 
9C0 
7cOo 
y2dA 
10FO 


$co 
9co 
9cG 
295 
9c0 
9co 
13= 
10EQ 
8co 
§c0 
ue 
4LG 
7800 
49 
aco 
9co 
9ca 
* 96 
9c 
9ca 


83 
52 
30 


6CO 


23= 

255 
6c 
7cO 

42 


5ts 


50 
31 
362 
74 


10éQ 
305 


b4z 
3800 
44 


3c0 
30 
‘7 
Hv 


10Fa 


ae 
a4 


56 


24= 
835 


76 
46 


$3 


69 
37 
78 


65 


9s 
4300 


65 
31 
7” 
44 


84s 


78= 
46 


54 


38n0 
79 


68 
s7no 


&6 
a3 
82 
69 


79 
s7ha 


39 
ai 


84 


36 
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58 
4300 4&4 46 4900 
42 44 46 S2 


so 


56 


bot) 


60 


40° 


468 
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NOMIT = = 9¢0 

NP - 9c0 

NPP “ 9c0 : 

NPT 7 9CO _ 22 . wt MS edad 2 38 eo = ; a 
NREAC = 9c0 28D0 

NS - 9c0 4900 70 T= 75= 

NSERT = 9ca, rd = xa sole’ At - 

NSS - 70% 75 

NSUB - 9ca0 

NSUP =) CO, ate ats Sele eS Che, feo wile weak 
NT - 5C0 

NUM - 501 10EQ 36 60= 

OF - sco. 19 et 8B. — is 
Ox - }2DA 30 

OXF - BCO 

Pp ~ &CO : eee, wemee . 

PECwT = BCO 65 66 

POINTS = bi 

PP - aco 21 : Mt te 

PPP ~ 6co ; 
R - aco 79 B2 

RETURN = 96% | Seemeg G8 is by. : sen a : 
RH - RCO 

RHUP - BCO 

RMW - BCO O66 - 

RR - 8CO ia 

RTEMP = aco 33 Viz 

s - 308 7cO «Bk . Sees, Mist AES Ae 

SHOCK == 4L6 9c0 34 

SIZE - 8cO 

SLN - 7C0 . ae % 

SONVEL = 6c0 

SP - 9ca 

SPECES = 7 Ze - 

5SUM - 20B 6co 22: Bl= 

SUB - 7Co 

SUNN - aco i 

so - aco 

T - 6CO . 
TEMP - 7co. . $3 54 

THIGH = aco 35 53 

TLN ” aco T2= 

TLOW ~ | aco 35 84 . : 

™ - aco 205 ats al 

THID - aco 

TOTN - 60 . fe 

tp - 9c0 

TRACE = 8cD 

TSAVE ~ 14= 86 toe Mote! 

TT - BcO 14 32 33= 35 53 54 72 TT 19 66= 90s 945 
Trt - @co . 

Vv - 6CO _ at eat 

VM - 4to 

VMIN - aco 

VoL a ALG 1 9CO 78 


b~0Z00L-99e0 


251-2 


VPLS 
wM 
WP 
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SUBROUTINE SAVE 
C SAVES OR USES COMPOSITIONS FROM PREVIOUS POINT AS INITIAL ESTIMATES 


SUBROUTINE SAVE 


~ . comme ee pa te en 


THE FOLLOWING DOURLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 


LAM_360 MACHINES ONLY 


DOUBLE PRECISION COEF «SeENsENLNeHO eDELN 


~ LOGICAL VOL +CALCHs [ONS + SHOCK 
COMMON/SPECES/COEF (2974115) sS(115) 2EN (115913 


} eENLNG1151 9HOC1153 


1 sDELN C115) 640559115) sSUB (11593) » LUSE (115) o TEMP (5002) ¢SUNC115) 
COMMON/MISC/FNNsSUMNo TT #S09ATOM(3 9102) oLLMT (15) 980 (15) pROP (1502) 


LL s TMs TLOWe TMI De THIGH 9 PP ee CPSUMy OF sEQRAT sy FPCT pReRRyHSUAO AC (21 pAM (2) 


22 sHPP(2) eRH{2) 6 VMIN(2) VPLS (2) eWP (2) sDATA(22} pNAME (1565) 


3 yANUM(1595} sPECWT CES) sENTH(15) oFAZ (15) sRTEMP (1S) +FOX115) DENS CIS) 
4 SRHOP yRMW(15) 9 TLN» CRAQKF (15) sENNL ENSAVE SENLSAV » TRACE s SIZE 


COMMON/INDX/ 


1 eNSeKMATs IMATS1Q} sNOF NOMI Te IP sNEWR eNSUK pNSUP 2] THeCPCVFReCPCVEQ 
2 s TONS sNCeNSERT e JSOL gp JL FOeKASE pNREAC SIC» JS] VOL eSHOCKs I TsNF2 ¥CALCH 


CONVGeTPyHPeSPsiSVe NPPs MOLES +NP«NTyNPT yNLM 


3 LQSAVE sLSAVE ¢ISUPeISUBs I TNUM 


ZQUIVALENCE (AC(1} sJUSOLS) e(AC{2)sJLIOS) 


TE CESY) 1009109206 
NEXT POINT FIRST T IN SCHEDULE, USE PREVIOUS COMPOSITIONS FOR THIS 7 


10 101 = TQSAVE 
JSOLS 
JL, 1OS 


JSOL 
JLTOQ 


ENN = 


ENNL 


NLM = 


ENSAVE 
ENLSAV 

LSAVF 

DO 50 J = 1sNS 


IF (IUSE(J),E0.0) GO To 20 
EN (JeNPT) = SENG) 
IF (USE (5) .G7.0) TUSE(U) = = BUSECU) 

IF CEN{JoNPTPONEO.FTUSES J) = @TUSF CU) 


GO TO &0 
20 EN(JeNPT) = 

ENLN(J) = SLM(J) 

IF(SLN(J).EQ,0.) GO TO 50 

IF (CENLN(J)~ENNL ¢ 18,5) +LEs06) GO TO 50” 

ENCJoNPT) = 267}82R1B2845929ENLN(J) 
50 CONTINUE _ | if 

Go To 1004 
FIRST Te=SAVE COMPOSITIONS FOR FUTURE POINTS WITH THIS T 
100 ISv = =Isv¥ 

_ JSOLS =_JSOL 


72A0 
7290 
7300 
730 
7320 
7330 
7340 
7350 
7360 
7370 
73R0 
7390 


7420 
7430 
7440 
7450 
7466 

300 
7450 
2490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7650 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
76A0 
7690 
7700 
T7LO 
7720 
7730 
7740 
7730 
7760 
7770 
7780 
7790 
7800 
7810 
7820 


PAGE 
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30 
3i 
42 
33 
34 
35 


37 
3H 


a9 
40 
41 
42 


c 


an aan 


isa 


200 


300 
1009 


SURROUTINE SAVE 
JEEQS = JLIQ 


IQsave = Ja] 
ENSAVE = ENN 
ENLSAV = ENN 
LSAVE = NLM 


OO 150 J = I,NS 

SUN(J) = ENLN (J) 

IF(IUSE IJ) eNE.O) SUN(U)=EN(UsISY) 
CONTINUE 


c USE COMPOSITIONS FROM PREVIOUS POINT 
Cc 


DO 300 J = 1eNS 
EN(JeNPT) = EN(JeTSV) 
CONTINUE 

RETURN 


CALCULATE NEW VALUES OF HO AND HSUBO FOR NEW OF RATIO 


744 
745 


T46 


147 


750 
760 


ENTRY NEWOF 


EQRAT = Oe 

SUM = OF © i. 

V2o5 COFAYMIMNCL) +VMING2)) SUM 
V1 = = (OF @VPLS(E) #VPL5(2) 3 /SUM 


IF(V2sNE.0.) EQRATSABS(V1/V2) 
IF {RRCL) aNEs O« sANDs RH(2) wNEs 04) GU TO 7a4 
RHOP = RH(2) é 
IF (RHOP «FQ, 0.) RHOP = RHC}) 

GO TO 745 

RHOP = (OF*2,)*RH(2)8RH(2)/ (RHEL) © OF #RH(2)) 

NO 747 T=leNLM 

ROLE) = (OF § #BOP(Iy1}> 
IF (E.NEoL) GO TQ 746 
BI1GB = 8001) . 
S5MALB = B0(1) 

GO 70 747 

IF (BO(T}sEQ.00) GO TO 747 

IF(BN(T)sLTeSHALS) SMALB=BO (1) ' 
IF (BOLL) .GT.AIG8) BIGRSRO(T) 

CONTINUE 

NPT = 1 

IF (sNOTeCALCH) GO TO 75D 

CALL HCALC 

IF(TT+EQ00.) RETURN 

CALCH = .FALSF, , 

IF (OF sNE 0.) HPP (LY =SUMBHPR (1) /OF 

He (2) = SUM®HPP(2) 


BOP CI 921) /SUM 


60 TO 760 ; 
HSUBO0= (OF®HPP{i} + HPP(2))/SUM 
ic = 0 

TEM = SMALA/BIGB 

SIZE = 186420681 s 


TFCTEMSLTo1.£-5) ST7E=ALNG(1000./TEM) 


7830 
7TAGD 
7850 
7860 
7A70 
7880 
7490 
739600 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
anne 
A010 
8920 
8030 
6040 
8070 
&080 
8090 
4100 
8110 
Al26 
8130 
8140 
8150 
A160 
8170 
alao 
8190 
R200 
&210 
g220 
8230 
8240 
8250 
8260 
ae7o 
82A0 
8290 
8300 
8310 
8320 
8330 
A340 
8350 
8360 
8370 
4380 
A390 
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INDE X 


{7 
7B 
79 
BQ 


JSOL 
JLIQ 
RETUR 
END 


zuuy 
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8400 
8410 
a550 
AS60 
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SYMHOL seem dm tw bmemdsmeebmpmimbmsotusepodasabude REFERENCES 
10 - 8 gr A 
20 - 16 214 

50 1500 20 23 24 26% 

too - & 26% 

15) = 3SD0 384 

200 - a 398 

300 - ana 414 

744% = 4g 538 

745 - 52 54% 

746 - 56 aor 

47 - 5400 59 60 ' 6a 

750 - 45 Tae 

760 - 71 734 

1000 td 27 420 

A - 4CO 

ABS - 48 

AC = Sco 7FQ 

ALOG ~ 76 

AM - 5cO 

ANUM - sco 

ATOM “ Sco 

BIGR ~ 47s 62 74 

tT) - 5co 59= Ss? 58 60 At 62 
JOP - 5cO 5S 

CALCK «+ 3LG 4C0 65 6B= 

COEF - 208 4cO 

CONVG - 6CO 

CPCVEQ - 6C0 

CPCVFR =~ 6c0 

CPSUM - Sco 

CR - 5CO 

DaTa “ 5c0 

DELW - 20B 4cu 

LENS - 5CO 

LN - 208 4¢c0 L?s 19 2l= 25= 37 
ENLN - 2nB 4c0 22s 24 2s 36 
ENLSAV « 5co 3 33s 

ENN - 5cO | 12s 32 

ENN - 5c0 las ° 24 33 

ENSAVE = 5¢o 12 325 

ENTH - 5CO 

kQRAT - ’ §CO 44= 48= 

Faz - SCO 

FOX - sco 

FRCT ” 5co 

HCALC + 664 

HP - 6CO 

HPP - §co 69= 70s 72 

HSUKO = 5c0 T2= 

HO - 208 4co 

I - 44D0 5s 56 60 61 62 
Ic 7 6C0 73. 


60 
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INDX - o* a = 

TONS ~ 3LG 6CU : 

Ip = 6CO’ 

1QSAVE = 4CQ 9 ais 7 es ed : 

101 - 6c0 9= 31 

ISUR - 6co 

sup - 6Ca0 4 ; nent 7 ae e me fe 

1sv - 60 8 28= 37 40 

17 - 6CO 

ETM gS 2S OEO) We Sa a 255 Reese roe joer ~ 

ETNUM = 6C0 

USE - 4C0 16 18 198 37 

J - 1500 16 l? eet 7 VO. 2) 22 3 23_.. 24 2s 35p0 36 3? 
39D90 40 

JLIA - &co lis 30 Ta= 

JLTQS = TEG 211 30x i; . 

JSOL - 6ca tos 29 VTz 

JSOLS =o TEQ 10 295 

J8i me OEOr 

KASE - 6C0 

KMAT - 6ca 

LLMT = sco ee oe a a F tical? ies 

LSAVE - 6C0 14 34= 
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NC - 6co0 
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NOF - 6cO0 
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NPT - 4cO 17 19 21 2s 40 64% 

NREAC - 4CO : , 2 

NS om: &CO0 15D0 3500 39N0 

NSERT a 4CO 

NSUB = 60 é kes 

NSUP = 6CO0 

NT - 6CO 

OF - , SCO 45 46 47 SA ss 69 T2 

OXF - 5c0 ‘ 

PECWT - 5c0 

PP - 5co 2 = ze 

R - 5co 

RETURN = sae 67% 79% 

RH - sco 49 so 51 $3 

RKHOP = 5CO sa= 51 S3= 

RMW - sco , 

RR = sco. Ew ce a. ae 

RTEMP = 5c 

s - 208 4¢c0 

SAVE os ha 


p-02001"9520 


BSL 


INDE X 


SHOCK 
SIZ€ 
SEN 
SMALB 
sp 
SPECES 
SUB 
SUM 
SUMN 
so 
TEM 
JEMP 
THIGH 
TLN 
TLOW 


Pppvetaenres es eptrrrrbee*e et de)eturta 


3L6 
Sco 
4C0 
58s 
6CO 
4t 
4€0 
45= 
5c0 
Sco 
74= 
4co 
5¢c0 
Sco 
sco 
sco 
5co 
6C0 
sca 
s5¢0 
5ca 
3G 
560 
AT= 
462 
sco 


PEF oF EEE EER ER EMER EE mE OEE ER HOEE EEE Eee OEE EE EMENEMDE EMSS ESE MEDEME EWEN EDET ERED 


4co . 

755 Té= 

17 22 23 365 
él 74 


46 a7 $5 69 


76 


6&7 
46 
6CO 
47 
48 
48 


3%- 
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SURROUTINE SAVE 
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6SL-2 


INDE xX 


wip wo 


io 


10 
Mt 


SURROUTINE EULYRM 


SUBROUTINE _EGLBRM , 


ROUTINE TO CALCULATE EQUILIBRIUM COMPOSITION AND PROPERTIES 


io] 


OO; 


.- 19M 360 MACHINES ONLY 


DOUBLE PRECISION X%9GsSUMeSUM29E 


€ 

Cc 

y 

C THE FOLLOWING DOURLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 
c . 

c 


DOUBLE PRECISION HSUMsSSUMsCPRsDLVTPsOLVP I sGAMMAS 
~ DOUBLE PRECISION COEF ¢S:ENeENLNeHO;QELN | __ 
DOUBLE PRECISION ENL+PROWeDOLNT+AA 


_ LOGICAL HP »SPsTPeCONVGs TONS «SINGC oL OGVs ESINGs 135+ VOL.» SHOCK eALTE 


-COMMON/POINTS/HSUM{ 13) 9 SSUM (19) eCPR(13) @DLVTP{)3) pDLVPT (13) 

1 «GAMMAS (13) pP (26) oT (26) sV{13) »PPP (13) oWH (13) sSONVEL (13) s TTT (13) 

2 6VLHM(13) 4 TOTNI13) 

COMMON/SPECES/COEF {297+}15) oS (125) sEN€115+13) sENLNG115) »HO C115) 

“1 “SDELN C115) eA CES 5415) sSURC115 +3) »TUSE CLES) + TEMP (5052) sSLNCEIS) 
COMMON/MI SC/ENN » SUMN» TT 550 9ATOM (39101) oLLNT (15) 980 (15) «BOP (15 ¢2) 
LL s TMs TLOWs TMIOs THIGH g PP sCPSUM 9 OF FEQRAT sFPCT sR yRR gHSUBN 4 AC (2) oAM(?) 
2 sHPP{2) eRH(2) 9 VMIN(2) 9 VPLS(2) @WP (2) sOATS (22) eNAME (1545) 

3 oANUM{1545) sPECWT (1S) sENTHOIS) pFAZ(15) sRTEMP (25) 2FOX (15) eMENS (15) 


& sRHOPsRUWI 15) ¢ TLMe CR OXF (15) sENNL sENSAVESENLSAV «TRACE y SIZE 


6 FLN = ALOG(TT) > a 


COMMON /DOUBLE/ G(20021)+ X(20} 
COMMON/INDX/ CONVGe TP sHP oSPeISV¥» NPPy MOLES ¢NPeNTsNPT+NLM 
1 eNS pKMAT » IMAT 9 1Q} sNOF sNOMIT s LP oNEWR pNSUG sNSUP se ITM s CPCVFR pCPCVEO 


2 VIONSeNCeNSERT eJSOL edL 10 pKASE ¢NREAC 9 IC oe JSh 2 VOL eSHOCKs TT eNFZ9CALCH 
3 sTQSAVE sLSAVEs ISUP se ISUB+ I TNUM 


EQUIVALENCE (NLNgL) » (LOGV»CPCVEQ) : % 
DATA IE/1HE/»SMALNO/3 sE-6/eSMNOL/~14,815531/9 1 IN/35/ 


SINGC = FALSE. 

PIE = 0» 

135 = .FALSE. 

E = 2,718281828459 

ENL = ENNE sk ” 
ISING = .FALSE. ~ 

LOGV = eFALSE. 

IF (sNOTsVOL) GO TO 6 
RV = 8R/}01.325 

PP = RVHENN®TT/VLM (NPT) 
CONVG = , FALSE. 

TTNUMB = ITN 

J81 = 1 bh, Sie, er 82 ‘ 
CALL CPHS 

IM = ALOGLPP/ENN) ‘ 


NOT. TONS.ORVIE.EG,LLMT(L 2} GO TO 43 - 
+ 


8590 
8600 
A610 
8620 
0630 
R640 
B656 
8660 
B670 
8680 
8690 
A700 
8710 
8720 
8730 
BT4G 
8750 
A740 


8790 
aso0 
8810 
AAzO 
A830 
A840 

300 
8860 
aa70 
Aa90 
aao0 
a900 
aSiD 
A920 
A930 
8940 
agse 
8960 
8970 
a9a0 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9300 
9110 
9120 
9130 
9140 
9150 
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In OF x 


33 
34 
35 
36 
37 


ag 


4g 
50 
ol 
62 
63 
64 
6S 
66 
67 
68 
69 


70 
4 


aan 


aan 


Aaa 


Ta 


773 


174 


75 


176 


SUBROUTINE EQLGRM 


DO 499 J = feNS 

IF (ACL) .FQ.00) GO TO 499 . 
EN(JeNPT) = L.6E~8 

FNLN(J) = =SIZE 

CONT FNUE 


BEGIN ITERATION 


IF (,NOT.CONVG) 60 TO 62 
SUMN = ENN 

IF(JSOL+EQ,0) GO TN 62 
ENSOL = EN{JSOL eNPT) 
EN{JSOLeNPT) = EN(JSOL NPT) *ENCILIOeNPT) 
IUSE(JLIGQI = #IUSECILIO) 
iQ] = rQj-] 

DEVIPINPT) = 0. 

CPR(NPT) = 0. 

GAMMAS(NPT) = O. 

LOGY = sTRUE, 


2 CALL MATHIX 


NUMB = TTN-TTNUMB+] 

142 = FOL +1 

IF(CONVG) IMAT=IMAT=1 

ITST = IMAT 

CALL GAUSS 

IFCETSTeNELIMAT) GO TO 774 
IF (eNOTeCONVG} GO TO AS 

IF (sNOTsLOGV) GO TO 174 

GO TO 17] 


TEMPERATURE DERIVATIVES==CONVG=Ty LOGV=F 


OLVTPENPT) = Lye XCTQP) 

TF (DLVIP (NPT) .L7.25.) GO TO 175 - 
DLVIPC(NPT) = 0. 

DLVPTINPT) = 0.6 

CPRINPT] = 0. 

GAMMAS (NPT) = 0, 

GO TO 186 

CPRINPT] = G{102.102}3 

00 176 d=heIQl 

CPRINPT) = CPR(NPTI“G(TQ2eJ)#X J} 
CONTINUE 


PRESSURE DERIVATIVE--CONVS=Ts LOGV=T 


LOGY = . TRUE, 
GO TO 62 


SINGULAR MATRIX 


174% 
37? 


IF(eNOTeCONVG) GO TO 775 

WRITE (oe) 72) 

FORMAT (28HODERIVATIVE MATRIX SINGULAR ) 
60 TO 1171 


9140 
9170 
9]A0 
9190 
9200 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
93A0 
9390 
9400 
9520 
9530 
9540 
9600 
9610 
9420 
9630 
9646 
9650 
9hA0 
9670 
9680 
9690 
9700 
9710 
9770 
9730 
9740 
9750 
S7A0 
9770 
97A0 
9790 
9An0 
9810 
9820 
9830 
9840 
9ASO 
9A60 
9870 
9880 
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Lal-2 


INDEX 


76 
7 
78 


19 
80 
81 
42 
B83 
84 
85 
66 


BT 


838 
89 
90 
YL 
92 
93 


94 
98 
96 
97 
98 

- 99 

100 
10) 
102 
103 
104 
05 
106 
107 
108 
109 
110 


ee eee 
ee me ee ee 
GNU whe 


ee 
NE 
ae 


7758 


B74 


87} 


SUBROUTINE EQLARM 


IF {NOT.HP OR NPT NEL] OR NC,E0,0,0R,TT.G1.100,.) GO TO A71 
WRITE (60874) * 

FORMAT(S6HOLOW TEMPERATURE IMPLIES CONDENSED SPFCIES SHOULD HAVE 
1SEEN INCLUDED ON AN INSERT CARD» RESTART ) 

60 TO A773 

WRITE (6974) 


74, FORMAT (LEHOSINGULAR MATRIX} 2 ee ‘ oe 


970 


. FSING = ,TRUE,. 


671 


a72 


man 


IF (SINGC) GO TO 873 
DO 970 JJ = be NS 


TFC (USE (JJ) sNEeG). GQ JO 970 2 LL eid iat Falved za 


IF (EN(JUsNPT) .NE.O.) GO TO 970 
EN{JJeNPT) = SMALNO 
ENLN( JJ) = SMNOL 
CONT ENUE 

IFLISING) GO TO 870 


WRITE (64776) 
FORMAT (BHORESTART! 
GG TO 62 


TEST FOR SINGULARITY TO CONDENSEO SPECIES. 
NCOND = JQ{=NLM-2 7 : to SF 
IF (TP.OR.VOL) NCOND=NCOND+1 

IF (NCOND ,L.7.2.0R.SI7FG,E0.0.). GO TO 873 
D0 872 J=leNS 

IF {IUSE(J).LE20) GO TO 872 
IF {(JsEQeJDELG) GO TO AT2 
Da 671 1=1>NLM 

IF {ACL ed) EQSAUT se UDELG)) GO TO 671 

IF {All 9d) 6FQ,0-.OR A(T ¢JDELG).EQ.0.) GO FG B72 
CONTINUE 

SINGC = «TRUE. 

10] = [G]+} 

EN{JsNPT}) = De 

JUSE(J) = ~IUSE (J) 

CONTINUE . 

IF(SINGC) GO TO 40° 

GO TO AT3 


“OBTAIN CORRECTIONS TO THE ESTIMATES 


TTINUMB= JTNUMB-] 

KK = L*] 

IF(VOL) = X(TO2)=X( TOL) 
IF (TP) x{192)=0, 

OLNT= x(1Q2) 

SUM = X(IQ1) 

IF {sNOTeVOL) GO TO 97 
x(1Q4b) = 0, 

SUM = ~DENT 

DO 101 J=1,NS 

IF (YUSE(J1) 201598+100 
OELN(J) = HO(J) #OLNT+HO (524500) MENLN (0) THe SUM 
PO 29 KFlsL 


990 
9900 
9910 
9920 
9930 
9940 
9950 
9960 
9970 

_ 9980 
9990 

10000 
10020 
16020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
io110 
10120 
10130 
10140 
10156 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
19230 
10240 
10250 
11260 
10270 
lozaa 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
losoa 
19410 
10420 
10430 


PAGE 
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292 


IR OE x 


124 
125 
126 
127 
128 
1e9 
130 


131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 


147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
169. 
160 
16} 
lo2 
143 
164 
165 
166 
147 
168A 
169 
1/0 
171 
1?2 


Aag 


99 


100 


101 


917 


y15 


2uls 


1115 


SUBROUTINE EVLBRM 


DELNCJ)= OFLNCI) SACK od) OX EK) 

CONTINUE 

IF (PIESNE De) = DELNCIDSDFLN(JD4A(Leled) #PIE 
Go TO 101 

DELN() “= KEKK) 

KK = KK + } 

CONTINUE 


CALCULATE CONTROL FACTORsAMANA 


AMBDA= 1, 

AMADALS 1. 

SUM = X{TQ1). 

IF (SUM LT 000) SUM==SUM 

IF (OLNT»GT.SUM} = SUN=DLNT 

IF (=DLNT.GT.SUM) = SIIM=-DLNT 

00 917 J=lSNS 

IF (TUSE(J}.NE.0) GO TO 917 

IF OCEN(JyNPT).G6T20.) AND NELN(5)2GT.SUM) SUM = 


LF CCEN(JONPT) eNFeO.) 2OR, DELN(J} LEO.) GO To 917 


SUM] = {(*9,212"°ENLN(J)6 ENLI/(DELN( UP @xXCEULD) 
IF(SUM1«LTeQe) SUMI="SUH1 

IF (SUME,LTsAMADA]) AMBDAL = SUM} 

CONT ENUE 

TF (SUM,G7 52,4) AMBDA=2,/S5UH 

IF CAMADALLT«AMBDA) AMADA = AMBDAI 


APPLY CORRECTIONS TO ESTIMATES 


SUM = 0+ 

DO E13 JsLeNS 

IF (TUSE(J)) VE3eb120144 

ENLN{J) =ENLN (J) +AMBDA"DELN (GU) 

EN(JsNPT) = Oc 

TF CCENLNGJD- ENL+SI7E}.LE.M.) GO TO 113 
EN(JeNPT} = E**ENLN(J] 

SUM = SUM*EN(JNPT) 

Go TO 113 ne 

EN(JeNPT) = EN(JeNPT} * AMANA * DELN(J) 
CONTINUE 

SUMN ="SUM 7 ~" 7" : > 
IF {TP) GO YO 115 

TLN® TLN+AMADA*DLNT 


TT “= EXPCTLN) 
JSt = 1 
CALL CPHS 


IF(VOL) GO TO 2815 

ENL = ENL*AMADA#x(1Q1) 

ENN = €*9ENL, 

Go TO 1115 

ENN = SUMN 

ENL = ALOG(ENN) 

PP = RVOTTBENN/VLM (NPT) 

TM = ALOG(PP/ENN) 

TF (WLMT(L) «NESTED GO TO 116 


10440 
10450 
104A0 
10470 
10480 
10490 
10500 
10530 
109520 
10530 
105460 
10550 
10560 
19570 
10SAG 
190590 
160 
$0410 
t0620 
10630 
19640 
104650 
Lo660 
10670 
106a0 
10690 
10920 
10930 
10940 
1n950 
10960 
19970 
109R0 
19990 
ll00c 
11010 
1020 
11030 
11040 
11050 
11040 
11070 
411086 
11090 
Vian 
11310 
11126 
114730 
11140 
1h1S50 
11160 
14170 
11180 
13190 
11290 
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NOE xX SUBROUTINE EGLERM PAGE 162 
- oe 0 eee ee late, Tet ous © Maia Ss te * ES coe : 11210 
c CHECK ON REMOVING IONS . 11220 
c 11230 
1720 we 00 L116 we, LNs. Bas ities hema, PRET, «8 : 1}240 
174 IF (ACL #J} 060.06) GO TO 1416 11250 
178 IF (EN(JeNPT).GT.0.) GO TO 116 11260 
176. TERG CONTINUES oe ca Eee e Gicsh Grandudiehakieusitents tan, “abl cela o tadas “toa faced 11270 
WwW? PIE = Xt} i}280 
178 Los bel : 11290 
TD eee ce POT SOR) i ny he ee Ss ee OO ae ae 31300 
180 60 TO 43 11316 
c 11320 
--.--. €__ _TEST FOR CONVERGENCE oe 11330 
11340 
181 116 IF (ETNUME.EQ.0) GO TO 14 41350 
19¢) 2.2 TE Me riaty Reb GO TO 430 2 cee eect i ees tes, . . 113960 
183 SUM = Xf 11370 
184 IF (SUM. if ai ) SUM = =SUM 11380 
28S _ Cd {SUMsGT,0,56-5)_ G0 7043, ees ah, gee an 11390 
186 OO 130 J=1,NS 11400 
187 IF (IUSEtJ)-LT.0) GO To 130 11410 
2880 8 os a AAS: DECN EID SUMN Goo Oe oat eo ies ole ck. “ete lete we bye 
189 IF{AAcLT.0e) =AAR—AA 41430 
190 IF (IUSE(J)eEQ.20) AA = AAHEN(JeNPT) % 11440 
VOL 0 TF CAACGT»045E-5S) G60 7043 2 wk 11450 
192 130 CONTINUE 13460 
193 LE =L 11470 
194 un. - TECTRACEEQe0e), GO TO 275 ee 13480 
195 TF (CITN.GT.35) GO ¥6 222 7 cats : “37490 
196 ITN = JTN¢1S £1500 
97 ITNUMB = ETNUMB4+1IS | a Wtsat Ac. oy Pare ae 11510 
198 22a DO 225  [=1eNUM 11520 
199 IF(80(1}.EQ.0.) GO TO 227 11530 
200 4, SUM = Oe_ ; . : : 11540 
201 00 223 J=1sNns 11550 
202 223 SUM = SUM*EN(JeNPT)#ACT od) 11560 
2030 _ TSUM = SUM . 11570 
204 IF (ABS (80 (2) =TSUM) /B0{(1}e6T..0001} GO TO 43 11580 
205 225 CONTINUE 11590 
206 .. 227 IF (eNQTeIONS). GOTO 275 _ Dein a Mee ee add works 11600 
Cc 11610 
c CHECK ON ELECTRON BALANCE 11620 
‘ € en esbent Mah Atfeicueoe Voce Bat ‘ we og ew Sete ce tees : 11630 
207 TF (PHE.NE SG.) LE=L41 ' 11640 
208 IF(PIE.EQ.0.) PIE=X{L) 11650 
209 w~ 5 - LER ZL. oe. water fae Se tu? yee, eee ai EA - . P6680 
210 “829 SUH2 = Oy 11670 
Bil : SUM = O6 11680 
212 _ . 00 230 J=leNS se : ; 11690 
213 TF CIUSE (J) .LT.0.0R.A (LEG J) E000) ~6O TO 230 “11700 
214 TF CENUN (J) GTo<874) ENC JeNPT) SE##ENLN(O) 11710 

215 AN = ALES J)HEN CJeNPT) re pace Par od a! 11720 . 

216 TFCENCS NPT) ZENN.GT.L.E“7) GOTO 275 . 11776 
217 SUM = SUM¢AN 11740 


218 SUM2_ = SUM2+AN®A (LE oJ) . _ 11780 
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219 
220 
e2)} 
22 
223 
224 
2e5 
226 
?27 
228 
229 
230 
31 
232 
233 


244 
235 
246 
ea? 
738 
e439 
240 
24) 
242 
243 
244 
245 


246 
24? 
248 
249 


240 
251 
252 
253 
254 
255 
246 
257 


258 
739 
269 
26) 
262 
7263 
266 
765 
266 
267 


OOG 


Cc 


230 


PbO 


P60 


275 


183 


13 


14 
973 


261 


SUBROUTINE EVLERM 


CONT TINUE 

IF (SUM2.E0.0.) GO TO 275 

OPYE = =-SUM/SUM2 

O00 250 | J=leNS 

IF (ACLE+J),EQ.0.) 60 TO 250 

ENLN(J} = FNLN(U)+A (LE, J) SDPIE 

CONTINUE : 

TE (AAS(OPIE).LE..0001) GO TO 27S 

PIE = PIE+MPIE 

ITER = ITERe} 

IFCETERSLESTTND §=GO TO 229 

WRITE (4s260) : 
FORMAT (37HODTD NOT CONVERGE ON ELECTRON BALANCF) : 
GO TO A?3 

CONTINUE 


CALCULATE FNTROPYs GHECK ON DELTA S FOR SP PROBLEMS 


TOTNINPT) = Oe 

SSUMINPT} = 0 

00 183 J=l,NS 

IF(IUSE(J) L720) G0 TO 183 
TOTN{NPT) = TOTN(NPT) + EN(JeNPT) 
ss= Stuy. 

IF(TUSE(U).E0.0) SS=SS-ENLN(J)-TM 
SSUMINPT) o& SSUMINPT) 4+SS¢EN(JyNPT): 
CONTINUE : 

IF (.NOT?SR) GO TO 13 

SS = SSUMINPTI =SO 

IF (SS«LT» (~0.00005) -OR.SS,67.0.90005) GO TO 43 : 


CONVG= TRUE,” 

GO TO 160 

WRITE (60973) ITYNeNPT s = 
FORMATCLHL.<129469H TTFRATIONS NID NOT SATISFY CONVERGENCF RFE QUIREME 
INTS FOR THE POINT 15) 

IF (NC.EQ,0.0R.135) GO TO 873 . 1 

135 = .TRUE. 

IF feNOTSHP,OR NPT NE ol ORs TT.GTe100+) GU TO 261 

WRITE (69874) 

G16 Bia te meee as 

NCOND = IQ1)-NLM~2 

IF (7P.0R, VOL) NCGNO=NCOND+1 

IF (NCOND.NE, LORVENN.GT»1eE=4} GO TOBIZ° 7 TTT 


C HIGH FEMPERATUREs INCLUDED CONDENSED CONDITION 


265 


WRITE (63265} . . 
FORMAT (31HOTRY REMOVING CONDENSED SPECIES! 7 
ENN = 41 

ENL = =2.302585) 

SUMN = ENN 

KIT = NS = NC : 

KT = ENN/XT ' 
XLN = ALOG(X}) , 
00 432 J=h.NsS 

IF (1USE(U).6T20)  TUSE (J) =*TUSE Cu) 


11769 
12770 
13780 
11790 
11800 
11815 
11820 
11830 
11840 
12850 
118480 
11470 
118A0 
11890 
11900 
11910 
1190 
11970 
11940 
11989 
11960 
11970 
11980 


11990 


12000 
12010 
17020 
12030 
12040 
12050 
120ap 
12090 
121.00 
12150 
2120 
12130 
12140 
17150 
12160 
12170 

“"E31A0 
12190 
12200 
12210 
12270 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
127320 
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INDE xX SUBROUTINE EGVLERM 
268... 0. | ENIJ NPD se Oe 2 eee 
269 ENLN(J) = 0. 3 
270 IF (TUSE(J1.NE.0} GO TO 432 
27t —EN(JeNPT. 2.247. ow Ck ie LS gee eats” er es 
272 ENLN{4) = XLN 
273 43? CONTINUE 
274 we IAI SL NLM¢io 8 Le. Be etd Fete as) ag 
275 60 TO 40 
c 
_ © Eu CONVERGENCE TESTS ARE SATISFIED: TEST CONDENSED SPECTESe 
c 
2té 160 ITF(NC.EQ.0) GO TO [43 
BP see BOOS 5 ENS, ns Sa Sus ie aCe 
278 IF (ENCJsNPT).GE20.) GO TO 146 
279 IF (JeNEsJSOL eANO. J oNELILTO) GO TO 147 
280s oe - ao eWSOL S20 ee et bret A ste 
281 JLIQ = 0 
282 147 ¥a1 = IQ) + 1 
293 . — a EN(JeNPT) 2.082 2 UU ee EPS. tess ee 
2u4 GO TO 164 
285 144 CONTINUE 
OES eats a SIZE Gm Ole ori eS, oe. op) eee es) al 
287 INC = 0 
288 OO 170 J = JeNS 
289 SP ATUSF (J), £920). 69 TO.LTO _. Piee ear ears gerd ert 
290 ENC = INC + | 
291 144 FORMAT (1H0.3A4e2F1003993X% eSHIUSE=9145E1557) 
nF oe ee oe SEMEN CNET) GT aOe) GO TO 2E9 
293 KG = 1 
P94 IF (IUSE (J) EQe=IUSE(J#11) GO TO 154 
295 TE (de Qe] OR, IUSE LUD sNEs-LUSE (J-1}) GO TO 153. 
296 KG = =~} 
av? 154 JKG = J + KG 
298 THELT = TEMP{INCH}) __. iiss 
299 IMP = INC + KG 
300 IF (THELT.EQ,TEMP(IMPe2 )) GO TO 158 
30). TMELT’ = TEMP(INC22) |... 
We IF (TMELT.EQ.TEMP(IMP91}) GO TO 157 
303 WRITE (63156) 
304 _. 56 FORMAT (S0HO3 PHASES OF A CONDENSED SPECIES ARE OUT OF ORDER } 
305 GO TO a73 
c 
ne ne wee ©. STH SPECIES A SOLED (ENSQ)s (J*KGITH SPECIES A LIGUED (EN YS +) 
c 
306 157 JF(TT.GI.TMELT) GO TO 169 
_ 307... ___IF CIPeANO,TTsEQ.TMELT). 690.70 169 0 
308 IF (TP} GO TO 1165 
309 IF (TTsLEeTMELT=1504) GO TO 1165 
BVO) 2 i Ss ee SOR se ni eed, pe 3 
311 JLIQ = JKG 
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© ccae Se - ep DOSS. NUS Le IMBT ss st ee i Se ice 
8 IF(NN@=IMAT) 8)8398 
9 83 IF (G¢NNINND 932923032 
pl ees Greet Sarr 3 EES a eR rata lees ce 
c SEARCH FOR MAXIMUM COEFFICIENT IN EACH Row 
c 
10 1. 8.0.18 TsNNeIMAT 8) 2 8 ee ee 
1} COEFK(T) = BIGNO 
12 IF (GCI sNN).EQ.0.) GO TO 18 
13 COEFXIT) = Oy. Ba te eee pinta t, Wnt ES de Oe, ss 
14 oo 10 J=NN,TUSEI 
15 SUM 3 G(leJ) 
16 wate 2 IE CSUM eT 9 O99. SUMS EGUM so to ek le AN ee 
a? IF(JeNEeNN) GO TO 9 
18 Z = SUM ’ 
LOS fon GO TOSN Ort Aes cola tg et of . 
20 9 TF (SUM,GT.COEFX(E)} COEFX{I)=SUM 
21 LO CONTINUE 
22. COEFK(T) = CQEFX(INZ2 5 
23 “T8 CONTINUE ~ 
c 
.C__. LOCATE HOW WITH SMALLEST MAXIMUM COEFFICIENT, © 0) w., 
Cc 
24 TEMP = BIGNO 
. 25 B80) ls ote ow ee _ 4 . 
26 20 00° 227 JENN. TMAT 
27 IF (CCEFX(J)=TEMP) 87222522 
28... 87. ~JEMPOCOEFS (1) PR SET ct oboe, nen save 
29 J 
30 22 CONTINUE 
3} IF (ET) 28923428 |, 


AAAMAO 


INDEX J] LOCATES EQUATION TQ AE USED FOR ELIMINATING THE NTH 
VARIABLE FROM THE REMAINING EQUATIONS 


INTERCHANGE EQUATIONS [T AND NN 


15960 
15970 
15980 


15990 


16000 
16010 


16020 


16030 

300 
16059 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 


"16180 


16190 
16200 
“16210 
16220 
16230 
16240 
16250 
16260 


“162767 


16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
163790 
16380 
16390 
16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
146490 
14500 


PAGE 
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TRUE xX 


32 
33 
4 
3% 


a7 


38 
39 
40 
4) 
42 
43 
44 
45 
46 
4? 
44 


49 
su 
bl 

be 
53 
a4 
vd 
56 


$a 
5Y 
60 
61 
62 


ioxekeks! 


NAM 


2a 
29 


30 


3} 


36 


AB 
40 


44 
45 


4&7 


4A 
$0 
$1 


23 
151 


SUBROUTINE GAUSS 


IF (NN=2) 29¢319?9 
O09 30 JENNeLUSEY 
2260155) 

G{TeJ) sGiNNey) 
GINNa J} 52 
CONTINUE 


DIVIDE NTH ROW BY NTH DIAGONAL ELEMENT ANDO ELIMINATE THE NTH 


VARIABLE FROM THE REMAINING EQUATIONS 


K = NN + ] 
00 36 Js Ke ITUSF1 
TFiGtNneNN}.E9.0.) GO TO 23 
G(NNsJ) = GINNe J) 4 GINNeNN) 
CONT ENUE 
IF (K-IUSE1) ABHeG5<8A 
00 44 Ist sJMAT 
00 44 J = Kea TUSEL 
GileJdd = Glled) - GtJeNN) AG (NN) 
CONTINUE 
CONTINUE 


BACKSOL VE FOR THE VARTARLES 


K = IMAT 
Jouk + 
K{K} = 0,0D0 
SUM = 0.0 
TFCIMAT#J) 51548948 
NO So LeJdeIMAT 
SUM = SUM ¢ GiKeT}* X{E) 
CONT INGE 
K(K) = G(KsTUSE1) - SUM 
K=kK ~ } 
IF (KH) 472151247 
IMAT = IMAT~] 
RETURN 
END 


145516 
LAS? 0 
16540 
14540 
16550 
16560 
16570 
145A0 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16640 
16470 
14690 
16690 


LA7AD0 


16710 
1672a0 
16730 
14740 
16750 
14760 
16770 
147A0 
16790 
14ANG 
16816 
1620 
16A70 
16440 
16RS0 
1AR40 
LATO 
1ABAO 


Baik 


1As 


peuzoul-9S20 


£8L-2 


TN OE x SUBROUTINE GAUSS 
SYMBOL Fee HOHE M EM HOH RE EM em ememew stm ewemtrenpwen REFERENCES 
6 = ye 
8 - a 1H4# 

9 - 17 204 

1a - 1400 19 21+ 

18 - JODO 12 23% 

20 “ 26% 

22 - 2600 27 30” 

23 - 9 31 40 60* 

28 a) qa 3e# 

29 - 32 334 

30° bad 33D0 376 

31 “ 9 32 3aH . 

36 - 3900 424 

40 - ose 

44 - 4406 45b0 478 

45 ~ 700 47 464 

4T - 504 59 

4A - s3 544 

50 - 5400 560 

$1 ~ S3 574 

83 = a ge 

u7 - Pt rae 

48 = 43 4G4 

151 - 59 614 

dIGNO - SDA li 24 

CALCH = 4C0 

COEFX = 208 lis j{3= 20 22= 27 2b 

CONVG - 4CO0 

CPCVEO = 4C0 

CPCVFR - 4C0 

DOUBLE - a4 

G - 208 3c0 9 12 1S 34 392 

GAUSS = ya . 

HP - 4C0 

I cal y0nDo0 il 12 13 1s 20 2e 
4406 46 $4n0 $5 

Ic = 4co0 

IMAT - 4C0 6 7p0 8 bono 2600 4400 

INDX - 4u 

TONS bed 4C0 

Ir = 4CO 

TQSAVE = 4CO 

Tat - 4CO 

IsuB - 4co Se 

IsuP - 40 

isv - 4C0 

IT ” &CO ei. gl 2 

1™ - 4co a 

ITTNUM - 4CO 

TUSEY “ = _ , }4&DO 3300 3990 43 45D0 57 

J - 140 1S 17 26N6 27 28 2 
45D0 46 50a 53 5400 

JLIQ - 4CO 


HHT eM EM Meme mem seweeerewsw ewe wtotmevewtads 


365 4) 4)= 
25= 29= 32 
49 53 54n0 
3300 34 35 


46e 


32 


40= 


36 


PAGE 


55 


34 


3900 


1AB 


35 


41 
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JSOL - 4co 

JS - 4c0 

re - 28= 3900 43 4400 4sno 49= so 51 55 s7 $8= so 

KASE ~ 4co 

KMAT - 4co 

LSAVE = 4c0 . 

MOLES - 4C0 

NC - 4CO0 

NEWR - 4co 

NF Z - 4CO 

NLM 7 4C0 

NN - TO a 9 1000 12 1400 lv 2600 3? 33p0 35 16 38 
40 4l 46 

NOE - 4C0 

NOMIT + 4CO 

NP - 460 

NPP - 4CO 

NPT - 4CO 

NREAC = 4c0 

NS - 460 

NSERT = 4C0 

NSUR - 400 

NSUP - 4C0 

NT - 460 

RETURN <= lt 

SHOCK = 4Cc0 

SP - 460 

SUM - 208 1S5= 16 18 20 52= Sos 57 

TEMP - 24s 27 28: 

TP - 4C0 

VOL, - 4c0 

x - 208 3co Siz 55 57s 

z - 20B 195 22 34= 36 


CEE EEF OE SEER EMER EEF RETO MERE SEMESTER ER EEO ESHME SHEE EE EEO ERE EEE EDEN EEE ERE DERE MEME ED ER EDO 
' 


#-0z00L-9S20 


681-2 


INDE xX 


19 
Lk 


te 
13 


1s 
L6 


Lis 
19 


al 


22 
23 


iw 


AAA 


Ona oo 


SUBROUTINE OUT] 
SUBROUTINE OUTI 
DOUBLE PRECESION G64X 


THE FOLLOWING DOURLE PRECISION TYPE STATEMENTS ARE REQUIRED FOR 
18M 360 MACHINFS ONLY 


DOUBLE PRECISION HSUMeSSUMsCPRsDLVTPsDLVP I +GAMMAS 
DOUBLE PRECISION COEF #SeENeENLNeHO +DELN 


LOGICAL EQL+sFROZ«TPsHPeSP sHPSPsTPSP eMOLES# VOL 
DIMENSION MV(13}¢Z(1053) sHEAD (15) +¥XC5) pYN (5) oF SH (9) »FRHO(3) 


COMMON/POINTS/HSUM (13) »SSUMC13) oCPR(13) DLVTP (13) sOLVPT (13) 

1 +GAMMAS (13) ¢P (26) 6 T (26) 9V (19) sPPP (13) 6WM(13) sSONVEL (13) os TTT(13) 

2 «VLMI139) 5 TOTNON3) 

COMMON/SPECE S/COEF (27070115) oSCLES) eENC115913) sENLN(115) HO (115) 

1 sMELNC135) 086150119) eSUR (11903) eIUSE (215) os TEMP (5042) eSLN(J15) 
COMMON/MISC/ENN sSUMNe TT eS0 sATOM{(3 4101) @L ENT (15) 0A0(15) ROP (159?) 

1 eTMs TLOWs THIDs THIGH e PP ey CPSUMs OF PEQRAT »FPCT »ReRRvHSUBD AC (2) pAM(2) 
2 eHPP{2) yRHI2}e VMING2} eVPLS (2) eWP (2) sDATAI22) eNAME (1545) 
3 4 ANUM(1565) sPECWT (25) sENTH(1S) oFAZ{(15) sRTEMP (15) ,FOX (15) .OENS{ 15) 
& ¢eRHOPeRMW (15) e TLNe CReOXF (15) sENNL eENSAVE*ENLSAV «TRACE sSIZE 
COMMON /NOUBLE/S G{20e21}4 X{20) 

COMMON/INDX/ CONVG + TPeHPsSPeISVe NUPs MOLESsNPeNTeNPTsNLM 

1 ¢NSeKMATs IMAT IG] »NOF sNOMT To IPeNEWR sNSUL tNSUP « I TMs CPCVFR ee CPCVEO 
2 sTONSsNC sNSERT sp USOL op JLIO sKASE gNREAC se EC 9 US] e VOL pSHOCK IT oNF2»CALCH 
3 +TQSAVE sL SAVE s ISUP «+ [SUBs FTNUM 

COMMON/PERF /PCP (22) » VMOC (93) eSPIM(13) eVACE (33) ¢SUBAR (1 3) eSUPAR (13) 
1 ¢APP (13) sAEAT(C13) eCSTReEGL FFROZsSS0eAREA sAWT 

COMMON/OUPT/FMT (30) eFP (4). 5F TCG) FH (4) oF S14) FM (4G) oF VE4) FN (4) 

Lo sFCUG) pF G64) sFRaFMTIS0F 1] oF 20F 3 oF 4S sFSoFL IG) sFMTIQOFAL oF AZ 

2 sFRY FOL FNS) oF RIG) GF AUS) oF TCG) SFMTIXOFO 


EQUIVALENCE (VoNV) 6 (79HO) + (18eF A) 
HEAD=(1H +2A495 (AA sFBReSeIX) oS XFS eF 13,94 XeAl FLA 9F 9,4) 
DATA HRAD/4HU1H s4Hs2AGe2HeS 4H CA2s pSHFB.D o4He IK) d2HeS 9 ZHXy 


1 eGHE 74S eGHoF 14 e4ttede4 2GHXsAl e4HoF 10 eateteF 2GHO.G)/ 
DATA FUEL/SHFUFLS sOXTD/4HOX IDS eANT/ 3HANTS SOX/ THOS oe EZ /2HNOS 

1 SYN/2Hode ZHe2s 2He3s 2Hede 2H0S / oF IS/4HFT65/ 

2 oYX/3He S7eSH 44e3He 3] e3HelGs2HeS Sof 73/4HF 70 3/ 


DATA FRHO/4HRHOee4H G/CeLHC/ 


IF (KASE-NE.0) WRITE (643) KASE "* 
3 FORMAT (SH CASE NO. IA} 

IF (.NOTsMOLES} WHITE (665) | ‘ 
5S FORMAT (77Xe46HWT FRACTION ENERGY STATE TEMP DENSITY/ 

1 LOXeLGHCHEMICAL FORMULA951X»21H(SEE NOTE) CAL/HOL + LOXsSHDEG Ke 

24K 4NGLCO ) 

IF (MOLES) WRITE (616) 
6 FORMAT (79X+SHMOLES+7X%y 33H ENERGY STATE  TFMP DENSTTY/ 
_ 1 10Xs16HCHEMICAL, FORMULA s66X» 7HCAL/MOL 2 20Xs 13HDFG K G/CE Y 


16R90 
14900 
16910 
16920 
16930 
16940 
16950 
JA9A0 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 


17086 
170960 
17100 


“97110 


17130 
300 
17156 
17140 
17170 
17tA0 
17196 
L7200 
17210 
17220 
17230 
17240 
17250 
17240 
17270 
17280 
$7290 
17300 
L7310 
17320 
17330 
“17340 
17350 
17360 
17370 
t7380 
17390 
17400 
17410 
17420 
£7430 


PAGF 


18A 


beO200L 9520 


C ~3 


QE 1-2 


INDE x 


24 
25 
26 
27 
26 
29 
36 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


4} 
42 
43 
44 


4S 
46 


47 
48 


49 
50 


52 
53 


54 
55 


57 
58 
99 


60° 
61 
62 
63°°~ 


dS, 


OOD 


c 
c 
c 


“——"—" CREEL EFMTINPTSFRAOS VY OT 


c 


SUBROUTINE OUTE 


DO 15 N=] sNREAC 
IF (FOX(N) JNE.OXIGO TO 10 
HDi = OXID 
HD2 = ANT 
Go To LI 
10 HN = FUEL 
HN2 = FR 
1] DO 13 JF1l+5. 


TF CNAMF (No J) -EQsEZ,OR NAME (Ned) sFO2IB} =GU TO 14 


13 CONTINUE 
Jsh 
14 JaJ=] 
HEAD (3) =YN (J) 
HEAO CTS YX IG) ’ 
HEAD(9} = F775 : 
IF (PECWT(N) sGEe100e) HEAD(9)SF73 


WRITE (GeHEAD) HN] sHD2» (NAME (Ny JJ) eANUM (Ne JJ) pJJ=b oJ) sPECWT IN) eENTHE 


IN) + FAZIN) -RTEMP(N) »DENS{(N} 
1S CONTINUE - o 
FPC = 1006/().4+0F} 
WRITE{6e20) OF oF PCHFQRAT+RHOP 


20 FORMAT (1HO91SXe GHO/F as FO.494Xs1SHPERCENT FUEL=0F 804 94K 
1 19HEQUIVALENCE RATLO= oF 7.4s4Xe17HREACTANT DENSI TY=9F864//) 


AGVY = 9.80665 
RETURN 


ENTRY OUTZ 
FMT(4)°= FMT (6) 


PRESSURE 


SO EF(RLTe10.) GO TO 60 
CALL EFMT (NPT »FPyPPP) 
‘ 60 10°64 : 
HO CALL VARFMT (PPP eNPT) 
WRITE (QoFMT) (FP (1) oe T3b 04)» (PPP (J) etal NPI) 


TEMPERATURE 


64 DO 65°12) ,NPT © 
NV(I}= TTT 4.8 
65 CONTINUE 
“™  FMTC4YS FMTig 7 ™ i ye 
FMT(S)= FMTI9 


DENSITY 


ene BO-TO Ye. NT hy Scaaleeneeyns 


IF CVLMCE) NEO.) VETIELe/VEM(T) 
70 CONTINUE 


NY iss atlanta aid aaah dee Mca | Ud 


. WRITE COsFMTDCETIT) oFeboa)s (NVI) sJeLeNPT) || 


17440 
17450 
17460 
17470 
17480 
17490 
17500 
17510 
17520 
17530 
17540 
17550 
17560 
{7570 
17580 
17590 
17600 


17610 


17620 
17630 


17640, 


17650 
17460 
17670 
176R0 
17690 
17700 
7710 
17720 
177730 
17740 
17750 
17760 
17770 
17780 
17790 
17800 
17810 
17820 
17830 
17840 
178506 
17A60 
17876 
178Aa0 
17890 
179006 
17910 
17920 


"17930, 
17940 


17950 
17966 
17970 
17980 
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INDExX 


64 
45 
46 
a7 
48 
69 
70 
7) 
v2 
73 


74 


76 
77 
iB 
79 
40 


al 
a2 


83 


4S 
&& 


87 
88 
a9 
90 
91 


92 
93 


94 
95 
96 


oan 


aan Pan AA 


Oan 


ean 


aOon 


SUBROUTINE VUTL 


00 75 I=) oNPT 
(VCE) = HSUM(T) # R 
75 ‘CONTINUE 
FMT(S)= FB 
IF (AeLTs10.) GO TO 76 
CALL EFM (NPT oF HeV) 
FHT(7) = FY 
60 TO 77 
76 FHT(7) © FL 
WRITE (69FMT)(FH(L) oL=1 94) 9 (VC) pJEdeNPT) 


ENTROPY 


FMT (7}=F 4 
77: DO 78 T=} eNPT 
V(r} = SSUM{T) # R 
7A CONTINUE 
WRITE (6oFMT) CFS{T) ofa be4he (V(d) + JE] eNPT) 
WRITE (6,60) 
80 FORMAT { 1H ) 


MOLECULAR WEIGHT 


FMT(7)= F3 
WRITE (OgFMT) CFM(T) oT=194) 9 (WMC) 9a] eNPT) 


(OLV/DLP)T 
FMT(7)=FS 


ITF (EQL) WRITE CGF MT) CF VAT) op T=194) 8 (DLYPT (J) » Jab oNPT) 


(DLV/DLT)P 


FMT(7)= £4 


IF (EQL) WRITE (SsFMTI (FOCI) e fai e4) oe (OLVIP (J) 932] oNPT} 


HEAT CAPACITY 


IF (ReGho1G.) FMTCTIEFL 
OG 8S 1=1,NPT 
V1) = CPR(T) ®@ R 
BS CONTINUE | 
WRITE (GF MT) (FCCTD oe T=1 0G) 0 (V 00) od NPT) 


GAMMA (S) | 


FUT(7) = F4 
WRITE (6 9FMT) (FGCT) ¢T=Le4) 2 (GAMMAS (J) + J=} oNPT) 


SONIC VELOCITY 


FMT(7)= FL 
DO 95 I = 1sNPT 
SONVEL (1) = 


_ ARR AGAMMAS (1) ®TTT (1) /WH (111 88,5 


17990 
18000 
13010 
1Aa020 
18030 
18040 


1RO50° 


R060 
18070 
18080 
18090 
18100 
1at1a 
$8120 
18130 
18140 
18150 
18260 
18170 
18180 
18190 
18290 
18210 
$8220 
18230 
18240 
18250 
36260 
18270 
182A0 
1A290 
18300 
18310 
18320 
18330 
18340 
18350 
1A360 
18AT7O 
183A0 
18390 
18400 
18410 
18420 
18440 
18440 
18450 
18460 
18470 
18480 
18490 
tB500 
$AS10 
18520 
18530 
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97 95 CONTINUE 
98 WRITE C6eFMT) CFL OY) e F204) 6 (SONVEL (J) JE] 9NPT) 
99 RETURN : 
c 
100 ENTRY OUT3 
Cc ‘ 
191 TRA = SeE~6 
102 IF (TRACE NE.0.) TRAS TRACE 
103 IF(oNOT*EQL) GO TO 331 
c 
C MOLE FRACTIONS » EQUILIBRIUM 
c 
104 WRITE (6080) 
105 FMT(?)= FS 
106 WRITE {49320) 
107 310 FORMAT(ISHOMOLE FRACTIONS //) 
108 GO 330 K=1eNS sa 
109 00 315 I=)eNPT 
110 VOT) = EN(Kel) /TOTNET) 
11} 33S CONTINUE : 
112 00 316 J=1,NPT 
113 IF (TRACE.EQ.0.) GO TO 317 
114 IF(V¢I) +GE.TRACE) GO TO 325 
115 B17 IFCVCI) oGEs(SeF-6)) GO TO 320 
116 _ 326 CONTINUE 
117 GO TO 330 
114 320 WRITE {69FMT) SUB(Ko1),SUB(Ks2) SUB IK s3) vF Be (V(T) sT2LeNPT) 
119 GO TO 330 : 
}20 325 FSB(L) = SUB(K +1) 
121 FSHt2) = SUB(Ky2) 
122 FSB(3) = SUB(K+3} 
123 CALL EFMT (NPT sFSB5V) 
124 330 CONTINUE 
125 331 WRITE (69335) TRA 
126 335 FORMAT(B3HOADDITEONAL PRODUCTS WHICH WERE CONSIDERED AUT WHOSE HOL 
1E FRACTIONS WERE LESS THAN »£32.5928H FOR ALL ASSIGNED CONDITIONS/ 
2s) 
127 LINEs"o * 
128 NN = 1 
129 IF{EQL) = NNSNPT 
130 00 350 K=1,NS ~~ we 
131 00 3460 F=1sNN 
132 IF (CEN(Ke1}/TOTN(T)).GE.TRAD GO TO 343 
133. "340 CONTINUE © TUT TT 
134 LINE= LINE+) ; 
135 Z(LINE,J)= SUB{Kel) 
136 — 2ULINE.Z}= SUATKS2)° ~~ aad Pere Cree 
137 Z{LINE»3)= SUB(Ke3) 
138 ©. 343 TF C(LINE.NE.EO) eANDse KeNEWNS) GO TO 350 
139 tF (LENE.EOQ.0F GO To 1600 - 7 
L40 WRITE (69345) ¢ZCLNob} sZ(LN02) oZ6LNo 3) pL Nol LINE} 
141 34S FORMAT 11011%s3A4)) . 
“igp 0 SOONLINES go em ne am es ae Sen 
143 350 CONTINUE 
144 _ LEC NOT HOLES) WRITE (69360) _ 


SUBROUTINE YUTL 


18540 
18850 
14560 
18570 
18580 
18590 
18600 
18610 
18420 
186430 
18640 
18650 
18660 
18670 
18680 
18690 
1A700 
18710 
1Aa720 
18730 
18740 
18750 
1A760 
18770 
18780 
18790 
18800 
18810 
18820 
18830 
18A40 
1AASO 
1a8840 
18870 
FABSO 
.Aa890 
18900 
1A9106 
18920 
18930 
18940 
1A9S0 
18960 
18970 
18980 
18990 


19600 


19010 
19020 
19630 
19040 
19050 
19060 
19070 


19080 


PAGE 
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p-02601-9S20 


£6172 


In OE x 
145 


146 
147 


SUBROUTINE OUT) 


360 FORMAT(7BHONOTE, WEJGHT FRACTION OF FUEL IN TOTAL FUELS AND OF Ox] 


2DANT IN TOTAL OXIDANTS 
1000 RETURN 
END 


) 


19090 
191060 
19110 
19120 


PAGE 


19 


y-O2001-9S20 


b6i-d 


IK DE X 


SYMBOL 


a 

$ 

4 
10 
MW 
13 
4 
1s 
20 
56 
60 
64 
65 
70 
76 
76 
77 
78 
80 
45 
95 
3190 
315 
316 
317 
320 
328 
330 
331 
335 
340 


BoP 
CALCH 
COEF ~~ 
CONVG 


cPCVEQ . 


ea 
1 


SUBROUTINE UUTI 


Pe er rer Soe See eee toe See ee cee See mee Se eee ee Soe ren ee Son cee ae REFERENCES 
- 18WR 19% 
- P0WR 2le 
- 22WR 23% 
7 es 2oH ' 
- 28 3146 
= 3100 334 
- 32 356 
- 2400 414 
- 43WR Gat 
= 49h 
- 49 Sas 
a $1 Sa 
- $4B0 56% 
- 4000 bet 
= 46400 har 
- 68 Tae 
- 7k 758 
- 7500 77H 
= TOWR aoe 104WR 
-  asd0 908 
- 9500 978 
- 106WR Lova 
- 10900 thie : 
a 71200 t168 ; 
= 113 125" 
- 115, 1288 : 3 ft 
- 114 120# iy 
~ 108Pa0 1k7 “119 124% 
= 193 1254 ‘ 
- 1?5WR k26# % 
= 13150 133¢ 
os 132 138+ 
- 140WR 1414 ; 
“ 1320Ne0 138 1436 
- 144WR i456 
- 139' 1464 
- 8CO 
- 9co 
- 1206 ‘ 7 ‘ - 
“ 45= 
~ 9CO 
: [6DA Se mat 
- C0 4awR 
= 12c0 . 
TET BOG ron oe ttt ee ee cet me eee 
- 9CO 
= 12C0 
oe BOO Teen re tei ce re a seem 
- 5CcO 
- 11¢0 : 
So BBB RUT ec ah ae as 
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SLN ~ 8ca 
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SPECES ~ oH 
SPIM = 12ca 14s a Bee zZ FA epee ‘ s 
SSUM - 308 7coO 76 
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TMIN - 9c0 
TOTN - 7co 
TP - 5LG 
TPSP - SLG 
TRA - tole 
TRACE bed 9CO 
TT - 9cO 
TTT - 7co 
v - 7co 
ns 
VACT - 12c0 
VARFMT = 520 
VLM - 7co 
VMIN - 9cD 
vMoc - 12c0 
VoL - 5L6 
VPLS - 9co 
WM - 7co 
WP ~ 9cO 
x - 2D0B 
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SUBROUTINE VARFMT(V¥sNPT) 
SURROUTINE VARFMT (VeNPT) 


OIMENSTON V¢13) 


COMMON/OUPT ZF MT (30) oF P (4) oF T(4) oFHO4) oF SU4) sFM{4) oFVE4) eFDI4) 
L pFCE4) op FG(4) eFReFMTI VF Ll oF2sF SoF4eFSoFL 14) eFMTIGFAE CFA2 
2 FRE GFCIl eFN(G) pFREG) FAG) oF ECS) oF MTOX oF O 


00 45 I=1sNPT 

K= 2*JTo3 

FMT(K) = Fa 

IF (VCE) .GEe10.) FMT(K) = F3 

TF (V(9).GEe100.) FMT(K} = F2 

IF (V(T).GE.10G00.)FMT{K) = F1 

TF (VEE) .GE.1000000,) FMTCK} = FO 
4&5 CONTINUE . me . 

RETURN 

END 


19130 
19140 
19150 
19160 
19176 
19390 
19190 
19200 
19210 
19220 
19230 
19240 
19250 
19260 
19270 
19280 
19290 
19300 
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In oOExX 

SYMAQOL 

45 - 400 
Fa ~ 3co 
Fal - 3c0 
Fae = 3Cc0 
FR - 3c0 
FC - 3c0 
Fel = 3co 
FO - 3c0 
FG - 3c0 
FH - 3¢0 
FY - 3c0 
FL = 3ca 
FM - 3c0 
FMT - 3c0 
FMTI9 - 3c0 
FMTIS3 - 3co 
FMT9OK - 3€0 
FN - 3c0 
FP = 3c90 
FR - 3co 
FRI - 3co 
FS = 3€o 
FT - 3€0 
FY - 3C0 
Fo - 3€90 
Fi - 3c0 
Fe - 3co 
3 - 3co0 
Fa - 3C9O 
FS - 3c0 
1 - 400 
K - 5: 
NPT = AG 
QUPT - 3 
RETURN = 124 
Vv - 1AG 
VARFMT - 14 


lle 


Frnt AnNDOGS 


ba 


2nt 


9s io 


9 10 
9 10 
9 10 


REFERENCES 
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330 


140 


144 
145 


1000 


SUAROUTINE EFMT(NPT, AASV) 


SUBROUTINE EFMTI{NPT sAAyV} 


DIMENSION AAC3)¢ VOT3)« WORFD+ NECE3)s FRMT(7) 


COMMON/OUPT FMT (30) eFP (4) oF T(4) FH (4) 9 FS (4) oF MIG) OF VIG) 9FO(4) 
1 pFCL4) FG(G) SFR eFMTIS OF) oF 2eF FoF SF SFL (4) sFMTIDOFAL FAS 


2 aFRLoFCLeFN(4) oF RI4) pFACG) oF I L4G) eFHT9OXeF 0 


DATA FRMT/AH (1H Hye 3A4 94H 11% 04H 1 30s 4HE 704 54H, 12) 9 TH) ZeFES/4HF63 
V/ sFIB/4Hs 13) oF 74 /4HE Tg AS oF T2/SH eT 2b A FLUX 4H LL XS F2X/ IH oe OXS 


FRMT(S) 
FRMT(6} 
Ji 51 
FRMT (3) 


F7% 
Fle 


Fex 


1F (FMT (4) sNESFMT9X), GO TO 1390 


Ji = 2 
FRMTI{3} 
DO 145 


NE(I) = 


FIEX 


T=J) sNPT 
IF(VCT}eNE.D.) GO TO 140 
WIT) = 0, 


Oe 


GO TO 145 
EE = ALOGLOCABS(V(1))) 


NECT) = EE 


FE = NE¢ 


2) 


IF (EEoLE,O,eAND«FESNESER} NECT}=NE(I)~2 
IF (EABS{NECI))«LT.E0) GO TO 144 


(AALT) s 35103) eCWi dds NE(J) s JUL NPT) 


FRMT(S) = F63 

FRMT(6) = FI3 

WUE) & VITDZE0,#eNF CT) 
CONTINUE 

WRITE (6aF RMT) 

RETURN 

ENO 


19310 
19320 
$9330 


19340' 


19350 
19360 
19376 
19380 
49390 
19400 
19416 
19420 
19430 
19440 
19450 
19460 
19470 
$9480 
£9490 
19500 
19510 
19520 
19530 
19540 
19550 
195460 
19570 
19580 
$9590 
19600 
19610 
19620 
19630 
19640 
19650 
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SUBROUTINE EFMT{NPT AA, V) 


PAGE 


201 


Iw’ OE x 
SYMBOL Pee So oe ere tr te ere rrr REFERENCES er corer errr er tS reer 
130 - 9 12% 
140 - 13 y7e + 
144 ” 71 24% . 
145 had 1200 16 266 ' 
10n0 = eTt 
AQ = 1AG 201 2owR 
ABS ~ 17 
ALOGIO = 7 
EE “ \7= 18 ao 
KFMT ~ 1# ‘ 
FA lod 3co0 
Fai - 3c0 
Fa2 - 3c0 
FB - 3co0 
Fc bad 3co 
FCl “ 3co0 
Fb _ 3c0 
FE - 19= 20 
FG - 3co 
FH - 3co0 
Fy = 3c - 
Fr2 - 4aDA 6 
F13 = 4DA 23 
FL = 3c0 
FM - 3c0 
FMT = 3c0 9 
FMTTS - 3CO 
FMT13 = 3co 
FMTOX ~ 3co0 9 
FN - aco 
FP - 3co 
FR = 3co 
FRMT = ev1 4DA $s 6= A= l= 22+ 23= 26WR 
FRI = 3co : 
FS ~ 3cd 
FT - 3c 
FV - 3c0 
Fo ne ee 
FA ~ 3ca 
FIX - 4DA il 
Fe be 3co 
Fax - 40A~° a" Doe 
F3 - 3co : 
F4 - 3c0 
FS a 5 x % 
F63 = 4DA | 22 
FITS - 4DA S 
t rr nine ¥-1))* nee i Sa 4 ~ "JB TTR yee 19 206 21 24 26WR 
TABS - el y 
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y-Gebut-9526 


c02"2 


NPT 
OUPT 
RETURN 
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SUBROUTINE RUCKET 


SURROUTINE ROCKET 


Cc 
Cc ROCKET PERFORMANCE 
2 DOUBLE PRECISION USQ,ASQ 
Cc ; 
C THE FOLLOWING DOUBLE PRECISION TYPE STATEMENIS ARE REQUIRFD FOR 
c IdM 360 MACHINES ONLY 
c 
3 HOUBLE PRECISION HSUMs+SSUMsCPR eDLVTPeDLVPT eGAMMAS 
4 DOUBLE PRECISION COFF rSsFNsENLN»HO »sDELN 
c 
Cc 
} LOGICAL HP eSPa TPs THE eFROZ»FOL s AREAsSEQL +CALCH, TCEST «ERR 
c 
5 ‘ 
6 COMMON/BLKOO1/IRKTOLs IRKTOZsERRs IN 
7 COMMON/HLKO02/ SILOPT(18} sSTLVAC(18) sACSTHT (18) sAPEXT (1A) 
8 COMMON /POINTS/HSUM (39) 9 SSUM{13) sCPRC39) sDLVEP (13) sDLVPT (13) 
L sGAMHAS{149) oP (26) 07 (26) 9 VC13) PPP C19) pWMO13) pSONVEL (14) s TTT (13) 
2 eVLN(13) sTOTNEY3) 
9 COMMON/SPECES/COEF (2470415) 0S (125) sEN( 115019) ENLN(115) eHOCEIS) 
L sDELNCL15) 946155125) 9SUB(115+3) s FUSE (115) es TEMP (S002) sSLNCLES) 
10 “ COMMON/MISC/ENN» SUMN 4 TT 2 SO eATOM( 36101) sLLMT (15) 080115) sAOP CLS 02) 
Ls TMs TLOWe TMEDs THIGH «PP» CPSUM + OF sEQRAT sFPCT oR ¢RReHSURD AC (2) AMC?) 
2 sHPP (2) sRHO(2) eVMIN(2) e VPLS (2) eWP(2) SDATA(22) sNAME (1595) 
2 sANUM(1595) ePECWT (15) »ENTH(1S} eFAZ(15} eRTEMP (25) sFOXL15) eDENS (ES) 
4 sRHOP,RMW (IS) se TLNeCReOXF (15) sENNLyENSAVESENLSAV »TRACE,SIZE 
i COMMON/INDXZ CONVGe TP eHPeSPsISVe NPPe MOLES eNPeNTeNAT NLM 
L  eNSKMAT s IMAT oe IQ] eNOF eNOMITs [PaNEWReNSUHeNSUPS ITM eCPCVFReCPCVEN 
2 sTONS »NCoNSERT ¢ JSOL e ILTOsKASE sNREACs IC SSE eVOL » SHOCK + IP oNFZ+CALCH 
3 sIQSAVE eLSAVE + ISUP+1SUBs I TNUM . 
12 COMMON/PERF /PCP (22) « VMOC (13) ¢SPIM(13) sVACI (13) »SUBAR (13) sSUPAR (213) 
; 1 sAPP (13) eAEAT (23) sCSTReEGL sFROZ9SS0 AREAS AWT. 
c ; 
13 “DATA AVG/9.B0665/ 
4 TCEST = eFALSE, 
1S 11M =} 
lo NFZ = 
17 APP(}) = i. 
18 EGt = .TRUF, 
19 "RPP = 0 ° ' . 
20 DO 305 151427 
el EF (PCP (1) 6EG,00) GO TO 306 ae 
22 NPP = Tf 
23 305 CONTINUE 
24 306 NPP = NPP+2 
Og RYT NSUBTE-OD oT ws uatwond babyaiatle” ate 
26 NSUP = 0 
OP oles ot FOU SAAD LEVON Bele ay, te oN Dee NB cae ok 
“28 IF (SUBARU) .NE.O.) ~NSUBSNSUA+) 7, 
29 IF (SUPAR (1) sNEe0.) NSUP=NSUP +l 
30 320 CONTINUE 
.. 30 a a a SEL ace Ete Spr Goes Maree et en ns eg Pare Te Sree et - a t 
32 IOF = 0 
33 __ li 2 34d0. 


Ct mene ceeee oon 


20760 
20770 
20780 
20790 
20800 
20810 
29870 
20830 
20840 
20850 
20860 
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20920 
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20970 
20980 
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21050 . 
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21100 
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21170 
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21270 
21280 
21290 
21300 
21310 
21330 
21340 
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34 
35 
36 
37 
38 
39 
40 


4) 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


a2 


53 
$4 
55 
$6 


S7 
58 
$9 
60 
6) 
62 
63 
64 


66 
67 
68 
69 
70 
23 
72 


aoa 


aan ana 


aam 


321 


322 


331 


1332 


333 


334 


SUBROUTINE ROCKET 


LOOP FOR EACH O/F ‘ 


rs] 

TOF = JOF + } 
OF = OXF (TOF) 
CALL NEWOF 

IF (CALCHSANDs TTeEQe0.) RETURN 
IF(T(1)cEQ.0,) GO TO 322 

TY = T{1) at 
LOOP FOR CHAMBER PRESSURES 

DD 998 IP = 1,NP 

TTNUM = 0 

AREA = »FALSF. : 

TF (T(L) EQ Oe eOReTCEST) HPs, TRUE, 

IF ¢T (1) NE eGeeANDe.NOT.TCEST} TP=,.TRUE, 
SP = .FALSE. 
EQL = , TRUE. 
ISUR = 1 
IsuP = 1 

PP = P{IP) 
IPP = j 


LOOP FOR PRESSURE RATIOS 
CALL EQL8RM 
TT = 0 TF NO CONVERGENCE 


IF(CET.NE,O,} GO TO 333 
IF(NPT.LTel} GO TO 1000 
GO TO 900 

IF CEIPP,GT.1) GO TO 195 


COMBUSTION CHAMBER 


EQL = SEQt 

TP = .FALSE. 

HP = «FALSE, | 

SP = . TRUE. 

SO = SSUM(1T) 

CPRE = CPSUM 

TMELT=06 

ITROT = 3 ‘ 
THI = FALSE. 3! Sos OG Sach 2 

APP (2) = C (GAMMAS (1) 420} /20) 48 (GAMMAS (1) 7 (GAMMAS (1) -16)) 
PP = PPP(1)/APP (2) 

TE = 2.*TT/(GAMMAS(1t)41,) 

Isv' = 1 ‘ 

60 TO 870 

USQ_= 2e#(HSUM())*HSUM{(NPT)} © RR 
IF (IPP.GT.2) GO TO 900 


THROAT 


21340 
21376 
21300 
71390 
21400 
21410 
21420 
21430 
21440 
21450 
21460 
21470 
21480 
21490 
21500 
21510 
21520 
21530 
21540 
21550 
21560 
21576 
21580 
21590 


21600- 


21610 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21730 
21740 
21750 
21760 
21770 
21780 
21790 
21800 
21810 
21820 
21830 
21840 
21850 
21860 
21870 
21AA0 
21890 
21900 
21910 
21920 
21930 
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¢ 21940 
73 190 IF{sNOTeTHI} GO TO 191 21950 
r% GAMMAS{2) = 0. 21960 
is GO TO 899. : 21970 
76 191 ASO = GAMMAS(2) #TT#ENNERR : 21980 
{7 DH = (USQ=4Sa) 7aSO : 22030 
a} IF(DH»LT.60.)  DH=-0H 27040 
79 TF (DH»LES0.46-4s0ReITTROTSEG.0) GO TO 899 22050 
80 IF (JSOi.eNE.0} GO TO 925 E . 22060 
41 IF (TMEL TCEQ ete} GO TO 192 22070 
He DLT = ALOG(TMELT/TT) 22080 
43 DD = DLTRCPR(2) /CENNPDLYVTP(2}) 22090 
a4 PP = PP*EXP (DD) 27100 
BS APP(2) * P(IPD/PP P2210 
86 THI = e TRUE, 22420 
a7 GO TO 33) 22130 
aA 925 IMELT = TT 22140 
a9 192 APP(2)= APP(2)701. PANS: RAGA NERMOL TANK E SORHMER CEES NEN? 22150 
90 _ 193 PP = PLIP) APP o2) 27140 
91 ITROT = ETROT=1 27170 
92 60 TO 331 . 22180 
93 B99 AWT SENNATT/ (PPAUSO4# 65) : 27190 
94 PCPLT = ALOG{APP(a)) 22200 
c A ; 22210 
Cc . 22220 
95 90a SV =0 ° 22230 
96 AEATINPT) = ENNSTTTI(NPT) A (PP eUSO#* eS4AWT) 22240 
97 IF CFTeEG.0.) GO TO 860 ; 22250 
98 IF {AREAS GO To AQd 22260 
yo IFCIPP.LY.NPP) GO TO a59 22270 
100 IF (RSUREQ,C,AND.NSUP.EO.0) GO TO REO ; 22280 
101 AREA = «TRUE. 22290 
c 27300 
c PCP ESTIMATES FOR AREA RATIOS 22310 
c 22320 
102 800 IF¢ITNUM.NE.O} GO TO alo 223930 
103 DLNP = 3, 22346 
104 TTNUM = 1 3 27350 
105 ARATIO = SUBAR(ISUR) 22360 
106 | _ _ TF CNSUBsLE.0) —ARATIQ=SUPAR (TSUP) 22370 
107 ELN “= ALOGLARATION ‘27380 
108 IF (NSUASLE.0} GO TO 799 22390 
109 APPL, = PCPLT/(SURAQ( 1SUB) + (10, 5874ELN#42+9.654) SELND 22400 
lo CO TF ¢ARATIO.LT, 1.095" APPLE.O#APPL ~ : 22410 
itl IF CARATIO .GTo20.) APPL = 'APPL/ARATIO 22420 
112 : GO TO 859 22430 
1l3) T°) C7OS IF CSUPARTISUP).UT.2.)° GO 10 805 ~° 7 OT ; : 224640 
114 IF (ISUP GT. DsANDeSUPAR{ISUP-1}+GEe2.) 60 TO B02 22450 
115 APPL = GAMMAS (2) +ELN#1.4— 27440 
1167777" 60 To“es9o°°7™ * te eee ape eia eRe ans | ray thy Ween ee 22670 
117 80S APPL = SQRTCELN® (1.53563.2940ELN) ) ¢PCPLT 22480 
118 Go TO a59 | 224690 
AO seg: ee ee SS foe a ee ee ES OE -- * 33500" 
Cc TEST FOR CONVERGENCE ON AREA RATIO. 22510 
c 22520 


b-02001-9S2a 


£0272 


INOE x 


119 
120 
121 
122 
123 
124 
125 


326 
127 
128 
129 
130 
13) 
132 
133 
134 


138 
336 
id? 
138 
1a9 
140 
141 
142 
143 
144 
14S 
146 
147 
148 
149 
150 
15) 


152 
13 
154 
155 
146 
157 
1548 
159 
160 
16h 
162 
163 
164 
165 
16 


Alo 
809 


OO 


830 


834 


835 


Aa 
84) 


Qo. 


859 


. 660 
a6] 
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SUBROUTINE ROCKET 


CHECK = ,9n004 ; 
TFC(ABS (AEATINPT}= = ARATIO) /ARATIO » eLEe CHECK) 60 TO 830 
DELTAE = (AEAT(NPT) “ARATIO) /ARATIO 

[F (ABS (DUNP) .LT..09004) GO TQ 830 

AEATL= ALOG(AEAT (NPT)? 

TTNUM = [TNUM#] 

IF CITNUM,GTe10) GO TO B40 


[MPROVED PCP ESTIMATES. 


ASQ = GAMMAS (NPT) #ENN@RRETT 
DLNPE = GAMMAS (NPT) *USO/ (USQ=aS@) 


2 DLNP = DLNPE®ELN<DLNPE*ARATL 


APPL = APPL+DULNP 

IF CITNUM.EQs.)} GO TO 859 

TF (APPL LT.0-) APPL = ,00000) . 
APPYNPT) = EXP (APPL) 

PP = P(1P}/APP (NPT) 

60 TO 33] 


ITNUM = 0 

AEAT(NPT} = ARATIO 
TF(NSUB«LE.D} 860 TO 834 
tSUB = ]SUR4) 

IF CISUBsLE.NSUBY 60 TO 806 
Isus = 1 

NSUB = -NSUB , 
IF CISUP«LE,NSUP) 69 TO &00 
60 TO 835 

TSuUP = ISUP+)] 
IF(¢ISUP.LE,NSUP) GO To 800 


1SUP = ] 
AREA = aPFARSEs 
GO TN A6O 


WRITE (65841) ARATIO 
FORMAT (34HODTD NOT CONVERGE FOR AREA RATIO =sFI6,5) 
GO TO 430 


TEST FOR OUTPUT == FND OF PCPySURARsAND SUPAR SCHEDULES OR NPT=13. 


ISV = NPT a oe 

IF(NPT.NES13) GO TO B70 

IF(EQL) (GO TO &61 

cPR(1) = CPRF 

GAMMAS (1) = CPRF/(CPRF~1./WM(1)) 

CONTENUE , eee” ern 
SL2= (2. #RR# (HSUM (1) ~HSUM (21) 188.5 /4VG6 
AW2 = RReTTT(2)/ {1 PPP (2) RWM(2) SSL ARAVGRE2) 
CSTAR = 32.}74"PPP 11) *awe 
GO B61] 1=3eNPT 

IF CIRKTU2.GT.1A) GO TO 8612 


_ SILOPT(IRKTO2) = (2, #RR# (HSUM ( L) “HSUM (1) )) 94 65/AVG 
AW 2 RRETTTCTY/ (Ppp C1) AWM IT) SSICOPT (TAKTO2) BAVGEe2) 
ACSTRECIRKTO2Z) = CSTAR 

_~ SILVAC (IRKT92) =SILOPT(IRKT02) ¢PPA (1) #AW 


27530 
27580 
22590 
27600 
22610 
27620 
22630 
22640 
27650 
27660 
22670 
77680 
22690 
22700 
22710 
22720 
27730 
22740 
27750 
22740 
22770 
227A0 
2a790 
22R00 
22B10 
27820 
22830 
22840 
22850 
27860 
22870 
22880 
22890 
27900 
22910 
22920 
22930 
22940 


22950 ° 


22940 
2?°970 
2P9R0 
22990 
230n0 
23010 
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lo? 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 


179 
1380 


181 
162 
183 
154 
las 
186 
3387 
188 
189 
190 


191 
192 


193 
194 
195 
196 
197 
198 
199 
200 
201 
202 


461) 


8612 
8613 


A622 


AG? FORMAT (LOSHOCALCULATIONS WERE STOPPED BECAUSE NFXT POINT IS HORE T 


Onn 


ATO 


680 


Aaga 


995 


NOANOaAN 


SUBROUTINE ROCKET 


APEXTLIRKTN2) =PPP{T) #16.696 
IRKT02 = IRKTO2 + 1 
CONTINUE 

GO TO R622 

WRITE (608613) 


FORMAT(YONO, OF REQUESTED ISP VALUES FROM LEWES GT 189) 


&RR = . TRUE, 

RETURN 

IF CIRKTOLSEQ,)2) CALL RKTOUT 

IF (TTEQ.0.) AREA=.FALSE. 

IF CoNOTOEQL eANDeTTeEQe De) WRITE (65862) 


THAN 50 DEG BELOW TEMP RANGE OF A CONDENSEN SPECIES) 
IF (ISV.E0.0} GO TO 990 
NP¥ = 2 


SET INDICES AN ESTIMATES FOR NEXT POINT. 


NPT = NPT « } 

IF CoNOTPEQL sANDe (ISV ANE e 1 eGR. SEQL)) 60 TO 880 
IF(ISV.EQe1) SV = el 

CALL SAVE 

IPP = IPP+} 

IF{NPT,EQ.2) GO TO 33] 

IF(.NGT+AREA) APPINPT)=PCP(FPP=2) 

IF (AREA) APP (NPT) SEXP (APPL) 

PR = P{LP)/aPP (NPT) 

60 10 331 


END OF PCP» SUBAR» 4ND SUPAR SCHEOULES.s 


IF (NSUB+LT.0) NSUB=-NSUB 
NPT = 1 


ARE THERE MORE ASSIGNENe 

1) CHAMBER PRESSURES(IP = NP) 

2) CHAMBER TEMPERATURES(IT = NT) 
3) O/F VALUESCIOF = NOF) 


IF (IPLEQ.NP. AND. aT EQeNTeANN TOF EQ.NOF) GO TO 1000 
CALL SAVE . 
TY = TIHTG1) 


998 CONT ENUE 


IF (ITsGEaNT)~GO"10' 9997" * 

Iv = [t+} 

TT = T¢IT) 

“ES forsee Semen ee  e 


999 IF {(IOFeGE.NOF) GO TO 1000 


GO TO 321 


“203-77 ~YOOT RETURN TT eee 


204 


END 


s 


23030 
23040 
23050 
22060 
23070 
23110 
23120 
24130 
Paleo 
23150 
23160 
23170 
23180 
23190 
23200 
23210 
23220 
23230 
23260 
23250 
23260 
23270 
23290 
23450 
23460 
23470 
23480 
23490 
23500 
23510 
235206 
23540 
23550 
23560 
23570 
23580 
23590 
23600 
23610 
73620 
23630 
23640 
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INDE x SUBROUTINE RUCKET 
SYMHOL peed tet tel Cot ee tot Set et et Coe oe te oe or REFERENCES 
190 - 736 
191 a 73 T6t Paar 
192 - al aoe 
193 ~ one 
195 - S6 71s 
305 - ?nnn 23 
306 - Pk 24% 

311 - es* = 

320 - ?700 304 

32l - a4 202 " 

3p2 = 39 41% 200 

331 - 525 87 92 134 186 1990 
333 - $3 Sée 

334 - 43% 

799 - 108 i136 

600 - QR 102% 139 142 145 

802 - Js }2ae 

BOS ” 113 117% 

809 - 1204 

#10 ” 192 1194 

430 oa 1296 122 135% 15] 

834 - 137 1444 

835 - 143 1474 

440 “ 125 1494 

841 - 149WR 150% 

459 - 99 112 1}6 118 130 1s2e 
860 - 97 100 148 154% 

861 - 154 1S7* 

B62 = 177WR 178% 

870 - 70 153 181% 

BAO - 1Aa2 185% 

go9 + - 75 79 Q3e 

goo - 6S 72 95" 

925 - AO 8Be 

990 - 179 1914 

998 - 4100 196# . 

999 - 19? 201* 

1000 = 54 193 20k 203% 

1332 ca 534 

4611 ad 16100 1694 

¥6le al 162 74 

8613 sa 1724WR 1728 

4622 a 170 1758 

A - Os ie nied oh ee eae Z Siw” 45 
ABS ” 120 122 

Ac -~ yoco 

ACSTRT = 7CcO 165= geion Wien de vate - 

AEAT bad 12co0 965 120 121 i23 136= 
AEATL = 123= 428 

ALOG = R2 94. M07, | eB. wk ke ends 
AM - 10¢c0 

ANUM - 10CO 

APEXT = 7C0 IGTHS 2a eee eee ea aes = 
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INDEX 


APP 
APPL 
ARATIO 
AREA 
ASQ 
ATOM 
AVG 

AW 

AWT 
Awe 
BLKO01 
BLKGO2 
HO 

HOP 
CALCH 
CHECK 
COEF 
CaNyvG 
CPCVEO 
CPCVFR 
CPR 
CPRF 
CPSUM 
cR 
CSTAR 
CSTR 
DATA 
bo 
UELN 
DELTAE 
DENS 
OH 
ULNP 
OLNPE 
DLT 
OLVPT 
OLVTP 
ELN 

EN 
ENLN 
ENLSAV 
ENN 
ENNL 
ENSAVE ~ 
ENTH 
EQL 
EQLHRM 
EQRAT 
ERR 
EXP 
FAZ 
FOX 


FeCT 


FROZ 


GAMMAS 
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12c0 
109= 
1055 
5LG 
208 
10C0 
13DA 
164= 
12C0 
1995 
Gt 
Tt 
19CO0 
170C0 
SLG 
1195 
408 
11¢0 
11co 
11¢0 
3DB 
A2= 
10co 
10ca 
160= 
12CO0 
10CO 
Aga 
4DR7 
121 
70CO 
T7= 
103= 
\e7= 
B2= 
305 
3DB 
107 
40B 
408 
10c0° 
19CO 
19CO 
“Toco ~ 
10Cc0 
5LG 
Sze "" 
10CG 
5LG _ 
A ri 
10CO 
10Cca 


SLG 


Reet aa 


“92 66= 


TSO BG 


a POC A oa St oe Cy. FL 


1105 Ms 
106= 107 
1260 43= 
762 77 
ise 159 
166 
93 6 
160 
11co 38 
120 
9c0 
8CO 83 
1S5 156 
62 ts 
16S : 
a4 
9c0 ae 
78 79 
122 128= 
128 
83 
8cO 
8CO 83 
109 195 
9C0 
9c0 
7% 83 
_12C0_ | 18= 
660 173s 
12co 
_8CO_ 66 
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INDEX 
HP - 5LG 
HPP ~ 10C0 
HSURO = 10cO 
HSUN - 3p8 
HO - 4D6 
I - 20D0 
Ic - 11¢0 
IMAT - 11c0 
IN - 6cO 
INDX - 1)* 
Yar - nes 
TONS - 11€0 
Ip ~ 11¢0 
[pp - Sis 
Insave = 11¢0 
ial “ 11¢0 
IRKT01 = 6co 
IRKTOP = 6C0 
1sus - 11¢0 
Isup - 11¢0 
1Sv - 130 
Ij < 11¢0 
ITM - 110 
1jNuM 11c0 
IkoT + 64= 
1uSseé - 9¢0 
JL10 - 110 
Jsot - 11¢€0 
+S) - 11¢c0 
KASE - 11¢0 
KMAT - 11¢0 
LENT ~ 100 
LSAVE = 13CD 
MISC - 10¢ 
MOLES = 11¢0 

. NAME - 10C0 
NC - }1C0 
NEWOF = aq 
NEWR - 11c0 
NFZ - 11cQ 
NLM ~ 11¢0 
NOF - 11¢0 
NOMIT = }1cO 
NP - 11¢0 
NPP ~ 11¢0 
NPT ~  41¢0 

is3 

NREAC = 11¢0 
NS - }31CcO 
NSERT = 1ico 
NsUA “ 410 
NsUP - 11¢0 
NT - 11¢0 
OF - 10CcO 
OXF ” loco 


11c0 


aco 
9ca 
21 


35= 


41nd 
56 


175 

162 
48= 
49a 
69= 
34= 
15= 
42= 
79 


80 


16s 
193 
4160 


16100 


25s 
26= 


44= 


7 
22 
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50 
72 


163 
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106 
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193 
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9a 


$92 
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27D0 
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85 
99 
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113 
1525 
197 
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$63 
28 


201 


99 
1as= 
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13a= 
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179 
198s 
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99 
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14u= 
1442 
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193 
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126 127 132 133 136 
189 192= 
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P 
CP 
PCPLT 
PECWT 
PERF 
POINTS” 
pe 

pep 

R 
RETURN 
RHO 
RHUP 
RK TOUT 
MW 
ROCKET 
RR 
TEMP 
S 
SAVE 
SEGL 
SHOCK 
SILOPT 
SILVYAC 
SIZF 
SLN 
SL2 
SONVEL 
sP 
SPECES 
SPIM 
SORT 
ssuUm 
§s0 
SUR 
SUB AR 
SUMN 
SUPAR 
so 

T 
TCEST 
TEMP 
THI 
THIGH 
TLN 
TLOW 
™ 
TMELT 
TMID 
TOTN 
Pp 
TRACE 
TT 


TTT 
usa 


‘ 


Been prsaertrtvreve ete rvre_ete et ayvrarnrrarritrererere 


1,908 ts Oe pritreeuee 


8co 
1200 
“94s 
10CO 
12* 
By 
10CO 
&CO 
10ca 
aBe 


yaco * 


14Cc0 
175% 
$6CO0 
le 
10CO 
10C0 
408 
1a4% 
5LG 
13C0 
7ca 
7Co 
10CO 
9CcO 
158= 
ACO 
5L6 
94” 
1200 
117 
308 
12C0 
9CO 
12C0 
10CcO0 
12co0 


10CO °- 


8cO 
SLG 
9c0 
5LG 
10C0 
10C0 
_ 10C0 
10C0 
63= 
0c 
_aco 
“7 “6TG" 
1060 
10C0 


i76 
CO 
208 


50 8S 90 
21 La? 

109 Li? 

50= 67= a4= 
67 is9 160 
t74e 203% 

71 76 89 

5c0 

1948 

is S7 182 
L632 — 164 166 
LA6= 

159 

11¢9 46= 605 

aca 41 

2B 105 109 
29 106 113 
él= 

39 40 44 
145 44 45 
68s 73 862 
ey 82 ~~ pas 
“yico 45° Sas 
335 38 40= 
1777 ~"19Se ~ "1992 
96 159 164 

see d® 52 sbh ag 


SUBROUTINE RUCKET 


133 3489 
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93 96 127 
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68 
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INDE xX SUBROUTINE RKTOUT 
t SUBROUTINE RKTOUT 
c 
C ROCKET PERFORMANCE PARAMETERS F 
Cc 
C THE FOLLOWING DOURLE PRECISION ne STATEMENTS ARE REQUIRFO FOR 
c TBM 360 MACHINES ONLY 
c 
2 DOUHLE PRECISION HSUMsSSUMseCPReDLVTP1DLVPT +GAMMAS 
3 MOUBLE PRECISION COEF eSeEN«ENLNSHOeDELN 
Cc 
4 LOGICAL EQLeFROZ +TPeHPeSPsSHOCKs AREA 
Cc 
Ss DIMENSTON NVOE3) 4761094) 
c 
6 COMMON/PO INTS/HSUM (13) 4 SSUM (13) eCPRI139) eOLVTP 413) sDLVPT (13) 
1 sGAMMA5S (13) sP (26h T (26) sY (E31 »PPP (13) oWH E13) oSONVEL (13) 9 TTT (13) 
2 sVLM(13) sTOTN(13) 
7 COMMON/SPECES/COEF (207+ 115) 9S {115) eEN C1159 19) sENLN C215) HO (125) 
i SPELNGIES) ¢(159 115) eSUB (11553) e LUSE CLS) » TEMP (5042) SLN{115) 
8 COMMON/MISC/ENN »SUMNy TT SO vATOM (39201) sLUMT (1S) BOCES) BOP (1S 92) 
1 9 TMs TLOWs TMIOs THIGHSPP + CPSUM,OF sEQRAT oF PCT eR oRRsHSUBO SAC (2) »AM (2) 
2 HPP (2) sRH(2} 9 VMIN(2) » VPLS (2) eWP 12h eDATAL22) »NAME (1505) 
3 sANUM (1545) PPECWT(1S) sENTH (1S) sFAZCES) eRTEMP (1S) oFOXEES) sDENS (1S) 
4& sRHOP,RMW(15) sTLNeCRsOXF (15) sENNL cENSAVE SENLSAV s TRACE 4S17F 
9 COMMON/INDX/ CONVGsTPeHPeSPeITSVe NPPe MOLESeNPeNTaNPT NIM 
1 eNSsKMAT+ EMATs IO] oNOF eNOMET»s EPeNEWReNSUB SNSUP eI TMe CPCVFR +s CPCVEQ 
2 s IONS NC eNSERT pJSOL eJL 10 eKASE sNREAC #10 e551 eo VOL e SHOCK sITeNFZeCALCH 
3 se IQSAVE sLSAVE ¢ I SUP» TSUB sf TNUM 
lo COMMON/PERF /PCR (22) eVMOC (14) ¢SPIM(13) sVACE (13) «SUBAR (15) sSUIPAR (13) 
1 gAPP (13) CAEAT (13) eCSTReEGL oF ROZ #550 eAREA ec AWT 
Ml COMMON/OUPT/FMT (30) oF P (4) oF 114) 29FH(4) oF S14) 9FM 4) oF V4) 0D 14) 
Lo eFCC4) oF G04) oFBRsPMTL3 FL oF 29F3eF4 af SoFLLS) PF MTID FAL FA? 
2 oFRIoFC1 oFN(4) sFRI4) oF AC4) oF ECA) #FMTOX9FO 
12 EQUIVALENCE (VaNV)9(Z+HO) 
13 DATA EXIT/4HEXIT/ 
14 WRITE (6937) 
1S 37 FORMAT (AH) /24X 9 84HTHEORETICAL ROCKET PERFORMANCE ASSUMING EQUILTAR 
“ YIUM COMPOSTTION DURING EXPANSION /) 
16 Go TN 39 
17 39 TFCTTT (1) <EQ.T(IT}) WRETE (6,737) 
18 737 FORMAT (S2X,V2GHAT AN ASSIGNED TEMPERATURE "~~" ) - 
19 TEM = PPP(1)#14.696006 
20 WRITE (6540) TEM 
“21 OUT BO FORMAT USHOPC” = TFAV TSH PSTap UOT 
22 CALL OUT) 
23 NEX = NPY © 2 
oe re PO S620 SG Er rr ee 
2s 842 Vii) = EXIF 
26 WRITE (6048) (VIE) ¢TSleNEX) 
27 ~~ 7 TAB FORMAT (1H0016Xs LGHCHAMBER™ THROAT ™™ 911 (5X94) 5 
C 
C____ PRESSURE RATIOS __ 


ee ee wre me one 


23650 
23460 
73670 
23680 
23690 
23700 
23710 
23720 
23730 
23740 
23750 
23760 
23770 
23780 
23790 
23800 
23810 


23840 
23850 
238h0 
23870 


23900 
23910 
23920 
23930 
23340 
23950 
23960 
23970 
23980 
23990 
24900 
24010 
24020 
24040 
24050 
24060 
24070 
24130 
24140 
24150 
24166 
24170 
24180 
24190 
24200 
24210 
24220 
24230 
24240 
24250 
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INUE xX 


28 
29 
30)Ctiw«w 
31 


32 
34 


35 
36 
37 
38 
39 
40 
4) 
42 


43 
44 
45 
46 
42 
48 


49 
so 
$1 
$2 


$3 
54 
55 
So 


57 
58 
59 
60 
6) 


42 


AAO 


aon0 ona Aan Ano 


NOON 


AW 


200 


202 


SUBROUTINE RKTOUT 


FMT(4) = FMT(6) 
CALL VARFMT (APPeNPT) 


-WRITE (OsFMT) FRM SFR FR eF Bs (APP CJ) eJ=1 NPT) 


CaLL OuT2 


AGY = 9080665 see ieewsed ts . 
00 202 Ks2.NPT 
SPIM(K) & (2,.#RR#(HSUM( 1) -HSUM (KD) #86 S/AGV 


(AW) IN UNITS OF SEC/ATM 


AW = RRFTTTIK) SCPPR(KI& 
IF (KeNF22)G0 TO 200 

CSTR = 320174*#PPP(1) AW 
AEATI2) = le 
VACI(K)=SPIM(K} *PPP IK) #AW 
IF {SONVEL(K) NE ofa) VMOC (KI =SPIMIK) SAGV/SONVEL (K) 
NV(K}= CSTR + ,5 

CONTINUE 


WM(K) #SPIM(K) @AGVEG2) 


MACH NUMBER 


208 


VMOC1(1)=06 

IF (GAMMAS (2) ,EQe06} VNOC(2)=0, 

FMT(7) = F3 

WRITE (6 oF MT) (FNC) of be4) & (VMOC (J) eJ=19NPT) 
WRITE (6,208) y . 
FORMAT (1H ) 


AREA RATIO 


FMT(4) = FMTOX, 

CALL VARFMT (AEAT»NPT) 

FMT(S) = FA 

WRITE (6 sFMTIFAI sFA2eFBsFBp (HEAT (JS) oJE2—eNPE) 


a 
FMT(S) = FMTY3 
FAT(6) = EMTIO 
FMT(7) = FB 


WRITE (6sFMT) CFRIT) o P3b 94) (NV (J) pJ=29NPT) 


CF = THRUST COEFICIENT 


212 


VACUUM IMPULSE ~ 


FMT(6) = FMT (A) 

FAT(7) = FQ 

DO 212 I=? eNPT 

V1) =320174SPIM(I}/CSTR 

WRITE (GsFMTIFCLyEBeFRoFBs (VC) Ja2eNPT? 


_FMT(S)_ = F713 


24260 ° 
2427) 


242AR0 
24290 
26300 
24310 
24320 
24330 
24340 
24350 
24360 
24370 
24380 
24190 
244ano 
24410 
24420 
24430 
24440 
24450 
24460 
24470 
24480 
24490 
24500 
24510 
24520 
24530 
24540 
24550 
24560 
P4570 
24580 
24590 
26600 
P4610 
P4670 
246730 
24640 
26650 
24660 
24670 
24620 
24690 
24700 
24710 
24720 
24730 
24740 
24750 
2470 
24770 
24780 
24790 
24800 


PAGF 


P16 


b-02001-9520 


M22 


ITNOE X 


63 
64 


c 
Cc SPECIFIC IMPULSE 
€ 


310 


c 


SUBROUTINE RKTOUT 


FMY(7) = Fl 
WRITE (HoFMT) CFACTD + E=2 94) ¢ (VACT (J) eJe2 NPT) 


. 


WRITE (GeFMT) CFICT) Fal 94) 9 (SPEM (I) sJz2 NPT? 
WRITE (64208) 


FMT(4) = FA 

FMT(S) = FMTFL3 
FMT{7T) = F5S 
IF(EQL) GO TO 312 
WRITE (ead) 


FORMAT {ISHOMOLE FRACTIONS 47) 


Cc 
Cc MOLE FRACTIONS = FROZEN ‘ 


“TRA = BeEwh 


424 


— 


430 
312 


~ “L000 


“IF (LINEYED.O) GO To 312 : 
WRITE (65426) (ZELNol) eZ(LNe2) oZ(L Nod) eZILNe4) pL N=] pL INE) 


IF{TRACE.NE.O.) TRASTRACE 

LINE = 0 

00 430 K =1eNS 

V(LINE#)) = EN(KeNF7)/TOTNINFZ) 
IF(V(LINE*E) sL1.TRAD GO TO 424 
LINE = LINE*1 


ZtLINEs1]} = SUA(Kel)” 
ZILINEs2) = SUBiKy?)} me, 
Z{LINEs3} = SUB{K,3)} 


ZILINE,4) = V(LINE) 
IF (LINE.NF.4eAND.KeNEWNS) GOTO 430 


FORMAT (1H 0G (3A40F90597X)) - 
TINE = 0 

CONTINUE 

CALL OUTS 

RETURN ~ 

END 


24810 
24820 
24830 
24840 
24AS0 
24860 
24870 
248A0 
24890 
24900 
24910 
24920 
24930 
24940 
24950 
24960 
24970 
24980 
24990 
25000 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 
25120 
25130 
25140 
25150 
a5140 


PAGE 
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70200 1-952G 


Lle-é 


INDE xX SUBROUTINE RKTOUT 
SYMBOL Se ad eal Sol el Set Seal Seal Sel teak Sol ead ak Sod Dod Sek Sea Sok Sod od Sel REFERENCES 
37 - 14WR toe 
39 = 16 L7* 

40 = 2 0WR 214 

48 - 26WR eT 

200 ba 36 39% 

202 = 33D0 42H 

208 - 47WR 45" 66WR 

212 = 59D0 60+ 2 

310 - 7EWR T2e 

312 ” 70 8S 904 

424 - 73 B4e 

426 - AaWR aT 

430 -” 7ong 84 age 

737 - 17WR 188 

s62 = 2400 254 

loan 91* 

A - 7co 

AC ~ aco 

AEAT = ¥0CO 38= 50AG 52wR 
AGV ~ 32= 34 35 40 
AM - aco 

ANUM - aco 

APP - 10CG 29aG 320WR 

AREA Ca 4LG 10c0 

ATOM a &co 

AW - 355. 37 39 

AWT - 10cO 

#0 - acD 

HOP - aco 

CaLcu - $co 

COEF = 30B 7cO 

CONVG - 9co 

CPCVEG = 3co 

CPCVFR = 9c0 

CPR ~ 208 6cD 

CPSUM = &co 

CR ” aco 

CSTR ~ yoco 37 41 60 
DATA ~ aco 

DELN ” 3DR 7ca° 

DENS * aco 

ULVPT = 208 6cO 

OLVIP - 208 6CO 

&N ~ 308 7co 7? = 
ENLN - 3DB 700 

ENLSAVY = aco 

ENN - aco 4 : . r 
ENNL - 8CO 

ENSAVE « aco 

ENTH = BCL . cokes : 
EQL - 4L6 190cO0 70 

EQRAT = 8co 

EXIT .~_ 130A __ 25 | : : oA : 
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Pee ee tee Sen wee ree er et er eee et ee ee ee oe rer 


#-0200 1-9520 


SLe-2 


INOUE x 


54WR 
52wR 
S2wR 
30WR 


&1WR 


&5wWR 
2n= 
4&1WR 


53 
49 


“G6OWR 


S4wR 
koco 
30WR 


63 
45 


69 
6co 
9co 


6CO 
7¢Q 
25 


FA - 11¢0 
FAZ - 8CO 
FAl ~ 11¢0 
FaA2 - 11c0 
FA, - 11¢0 
Fc - 11co 
Fol - 11C0 
FO = 1}co 
FG > 1100 
FH - 11¢0 
FI - 11CO 
FL - 11C0 
FM 7 1100 
FMT - 11CO 

sa= 
FMTI9 > ow 11C0 
FMTia0 0 = 1)CO 
FMTOX = 1160 
FN - 11¢0 
Fox - “aco 
Fp - 11¢90 
FPCT ~ aco 
FR - 13C0 
FROZ ’ - 4L6é 
FRI - 11C0 
FS - Tico ~ 
FT - 11CO 
FY - 11c0 
Fo - 11C6 ~ 
Fl : 11¢c0 
Fe - 11C0 
F3 - ico 
F4 - 11¢0 
FS - 11¢0 
GAMMAS = 208 
HP ~ 4t6 

* Hpp - 8CO 
HSURO sco 
HSUM - 208 
HO = _ 308 
I = 2400 
Ic - 9co 
IMAT - 900 
INDXx = 7 gee 
10NS - 9C0 
ip - 9c0 
1OSAVF 
191 - sco | 
15U8 ~ 9C0 
Isup "7 907" 
isv - 9c0 
IT - 9co 
lt Soca 
1{TNUM = 9co 
1USE - 7c0 


s 


3 
6 


6 


3 
ae, | 
2 


1 


OwR 
a= 


2 


4 
2F0 
6WR 


Sewer 


63= 
88 


46WR” 


SURROUTINE RS TOUT 


55 61WR 6? 


46wR 49= Sls S2wr 53= S45 
64WR 65WR i= 685 69= 
* S6uR "$9D0 60 64WR 65SWR 


$5 
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S6wWR 57= 


b-NeCuL-9S20 


6l2-2 


sues 


46WR 


34 


77 


2400 
v7 


23 
7609 


12£Q 


INDE xX 

THE VARIAGLE= J 
J - 30WR 
JLIQ bed 9co 
JSOL -  _ 9c0 
Js) ad 9c0 
K = 3300 
KASE - 9co 
KMAT - 9c0 
LINE > 752 
LLUT ” 6co 

THE VARIABLE- LN 
LN ° H6wR 
LSAVE = 9cQG 
MISC - Ae 
MOLFS - 9co 
NaMe = 8CO0 
NC - 9cu 
NE ak - 9coO 
NEX - 2R= 
NFZ a 9co 
NLM - sca 
NOF - 9C0 | 
NOMIT - 9co 
NP = 9co 
NPP = 90 
NPT - 9c0 
NREAC - 9co 
NS - 9CO__ 
NSERT = 9co 
NSUB - 9c0 
NSUP - 9C0 
NT - 9cO0 
RY - 501 
oF = 8co 
OUPT - 11s 
ouTh “ Pee 
QUT? hd a1* 
QuT3 - q0* 
OXF - 8cO 
P < 6co 
PcP - 10Cc0 
PECWT ~ aco 
PERF - 108 
POINTS - 64 
pP - 8CO 
PPP ~ _ 6CO 
u - eco 
RETURN = 91# 
RH -~  . aco 
RHOP - 8CO0 
RKTOUT + 1+ 
RAW 8, nw ACO LL. 
RR “ ac 
RTEMP - ACO 
$ reat 308 


SUBROUTINE RATOUT 


-1S USEO REFORE JT [5 OEFINED 


S2ur 


35 


78 


S6wR 


36 


795 


GYWR 


a9 


50 


64¥R 


40 


81 


65WR 


4! 


Be 


~1§ USED AEFORE IY 1S DEFINED 


26WR 


2946 


84 


4s 


3QWR 


5éWR 


323no0 


46wWR 


SOAG , 


7600 


823 


S2wWR 


WW Aa 
a4 as 
, 5GWR 59n0 
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BOWR Ras 
61WR 64WR 65WR 


b-O20UL-9s20 


Oec-2 


ITN DE X SUBROUTINE RKTOUT PAGE 219 


SHOCK - 4LG 9Cc0 

S1zt i 8co 

SLN - 7c0 

SONVEL 4 6CaQ 40 

SP ~ 4LG ~ 9¢0 

SPECFS) = 7# . 

SPIM - 10¢0 34= 35 39 40 60 6SWR 
SSuM - 208 6c0 

$so6 - 19c0 

Sub - 7coO a6 Bl 82 

SUBAR - 10Cca 

SUMN - 6ca 

SUPAR - 10c0 

so - 8CO 

T ~ 6CO \7 

TEM “ 19= 20WR 

TEMP - 7caQ 

THIGH - aco 

TLN - 8CO 

TLOW - 8CU 

™ - eco 

THIN - aco 

TOTN - &CO 77 

TP - 4&LG 9c0 4 
TRA = 73= T4s 78 

TRACE - &CO 74 

TT - BCO 

TTT ~ 6CO 17 35 

v = 6ca 12€9 25= 26WR 60= 61WR 77?= 7a BA 
VAC] - 10CO 395 64WR 

VARFMT = poo Soe 

VLM - 6co é 
VMIN - aco ‘ 

VMOC - 16c0 40= 432 442 46WR 

VOL - 9c0 

VPLS - &CO F 

WM - 6ca 35 

WP - 8CO : 

2 ” 501 12€a 80= 61= 82= aj= _ BOWR 


Cr te ter ot ee er to or oor ce crete et ten mee Oo Sor er Der ee OD Per ee et ret eee ee ee en ee ee eee eee ee aro ny Seer meee Ser een 


p-U2001-9520 


122-2 


InODE xX 


aol a 


HLOCK DATA 


DIMENSION ATEM(3»50) 


BLOCK 


Data 


COMMON/MISC/ENN + SUMN, TT 950+ ATOM (39101) pLLMT (15) «BO (15) BOP (1562) 


1 


2 sHPP (2) sRH(2) 9 YMIN(2) eVPLS(2) ¢WP{2) sDATA (22) pNAME (1945) 
3 ANUM(15 05} sPFCWT (15) pENTH O15) oF AZ (15) sRTEMP (15) sFOX(15) DENS (153 
4 sRHOP »RMW C15) sTLNOCR e OXF (15) sENNLSENSAVEVENLSAV sTRACF pSIZE 

. COMMON/OUPT/FMT (30) oF P44) sF TG) OFH14) FE S(4) FM 64) FV (4) oF DLS) 


1 
2 


EQUIVALENCE (ATOM(1+52) eATEM) 


ATOMIC SYMBOLS+ WEIGHTS» AND VALENCES 


DATA ATOM/ 


evezZzrrrca TAanmoonc&c»y 


2HH + 
2HUE, 9.0122 
2HN » 14,0067 
ZHNEs 20.383 
2HAL» 26,9815 
2HS » 32.064 
2HK » 39.)92 
2HTI» 47,900 
2HMN, 54,9380 
2HNT, 58.710 
2HGA, 69.720 
2HSE+ 78.960 
2HRAy 85.47 
2H2R» 92,220 
@HICs 99.000 
2HPD + 106.400 
2HING 114.820 


DATA ATEH/ 


TAMNMOCODPEPNcKKMe EC KCAMT 


QHTEs 127.600 
2HCS 5 £32.905 
2HCE + 140.120 
2HPM 2 145,000 
2HGO»157.250 
2HHO» 164,930 
ZHYB 173.040 
2HTA + 1A0.948 
2HOS 090.200 
2HAU 1964967 
@HPBe?074190 
2ZHAT #2102000 
2HRA 226,000 
2HPAs231.000 
2HPU 92422000 


_ 2HOK 22494000 


2HF M9253, 000. 


_. INFORMATION USED, 


Le00797s let 


e 2er 
» Der 
pr Oet 
+ Bes 
’ 4a» 
» les 
» bee 
+ Qe 
. aet 
+ Foe 
+ dee 
+ les 
9 aot 
9 Tet 
? Par 
2 Jer 


4os 
ler 
3. 
34° 
Bes 
Bas 
Bee 
Sae 
4a 
3.1 
2e4 
Des 
Gas 
Ses 
Sar 
det 
Nee 


soweaweawerwe ew ene ewe 


@HHE + 
2HB » 10,831 


4e0026s Oar 


’ Jes 


2HO + 15,.9994,~Zer 
2HNAy 22.9898, Les 


2HST» 28.086 
2HCL» 354453 
2HCA, 40.080 
PHV » 50,942 
2HFE, 55.847 
2HCU, 63.540 
2HGE, 72.590 
2HAR, 79,909 
2HSR, 87.620 
2HNB, 92.996 
2HRU 101.070 
2HAG+107.870 
2HSN+ 118.690 


+ Sat 
reles 
4 Zee 
s See 
a Jee 
* Zee 
* hee 
omlar 
+ 26 
, Sea 
9 gee 
oe lee 
o Gee 


BHT 61 26.904Gs~1 08 


2HBA + 1374340 
2HPR+140.907 
2HSM, 150,350 
2HTR+158.924 
2HER+ 167.260 
PHLU 1744997 
2HW +183.850 
2H1R+1922200 
2HHG » 200.590 


* BHAT» 208.980 


ZHAN» 222.000 
BHA» 227,000 
2HU 238.630 
2HAMs243.000 
2HCF 251.000 


9 2et 
o Bee 
«See 
« Jas 
a Dee 
a Jes 
« Ges 
1 Se 
t Qos 
1 Jes 
+ Oet 
e Bes 
+ ber 
5] Ber 
a Bee 


AHO e2e014102. 1e/ 


IN VARIABLE OUTPUT FORMAT 


oFC(4) oF G14) sFRoFMTI3 oF bo F2eF Ss F4eF 5 FL 64) sFMTIDOFAL FAS 
oFRIgFC)oFN(4) ¢FR(S) pFACS) oF I (4) oFMT9OX OF O 


PHLE s+ 6.939 


o THs TLOWs TMIDs THIGH sPPeCPSUMSOF sEQRATsFPCT sReRRs+HSUROeAC (2) BAM(?) 


+ les 


QHC » 12.01315> 4er 


QHF + 18,9984 
BHMG, 24,312 
2HP » 30,9738 
ZHAR, 39.948 
2HSC, 44,956 
2HCR, 51.996 
2HCO+ 58,9332 
QHZNe 65.370 
ZHASs 74.9216 
ZHKRs 83.800 
2HY + 88.905 
2HMOe 95,94 
2HRHs 102.905 
FHCDe 117.400 
2HSBH«121.750 


2HXE «131.300 
2Mi.As139.910 
2HND 1 144,240 
2HEUs152.960 
2ZHDY + 162.500 
2HTMs 168.934 
2HHF 4 178.490 
ZHRE 186,200 
2HPT+195.090 
2HTL+2046,370 
BHPO, 210-090 
AHFR+223.000 
2HTH+ 232.038 


~ 2HNP , 237.000 


2HCM +247.000 
ZHES +254.000 


sthes 
+ 2ee 
Soe 
Des 
Bes 
Jes 
Zee 
2er 
Jee 
Dre 
Bee 
bee 
Jee 
2e8 
3. 7 


Ce ee a ee a ee nd 


Oee 
Joe 
3s 
Bes 
Jes 
Jes 
hes 
Tes 
4a 
ler 
Pes 
lee 
4es 
Ser 
Bes 
Dee 


Pe ee ee ee ee ee a ee) 


32470 
32430 
32440 
32450 
47460 
32470 
32480 
32490 


32510 
32520 
32530 
32540 
32550 
32560 
32579 
32580 
32590 
37600 
32610 
32620 
32630 
32640 
32650 
32660 

32670 

32680 

32690 

32700 

32710 

32720 

32730 

32740 

32750 

32760 

32779 

327R0 
32790 

32A00 

32810 

32820 

32830 

32840 

32A50 

32866 
32870 
328A0 
32890 
32900 
32910 
42920 
32930 
32940 
32950 
32960 


PAGE 
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$-02001~9526 


222-2 


INDE x 


10 


li 


nan 


RLOCK DATA 


DATA FMT/3H(1He SH, 344 +4He AS se ep SHF Oe e2HO os INF 96 s2HO se e SHE 9, oe PHO ee THEY 
Lee 2HO 94 SHES, 6 PHD sp BHF9, AHO oo BHF Ie eNO es BHF Ie sPHl ee SHY, O20 es SHED 
2e92HOe SHES. oZHO eo THEO, ePH ee SHFVaelLHOsih) /e FReF Orb eFPoF 3 oF Ser SS 
SYH = p2HOe 2H} 2 e2H2090H3 so 2HG9 e2HSe/ePMTIS/CHILIS FMT FXSRHIX 9 / FP MTI9 
4/3H199/ ° 

DATA FP/4HPs As4HTM 4°H s1H 4 
LiF T/4HTs® DeSHEG Ke4H e2H = /yFH/4HH» CySHAL/Gs2H 61H / 
2eFS/4HSe CeSHAL/ (94HG) ([KeZH) /4FM/4HMe Me4HOL We2HT oe 1H 7 
SeFV/GH(DLVeGH/DLP,4HIT 92H 3 /eFD/GHIDLVeSH/DLTo2H)PelH / 
GeFC/GHCPe eSHCAL 704H(G) (o> 2HKI SSF G/GHGAMM SHA (Se2H} etH 7 
SeFL/4HSON s4HVFLes4HM/SE ¢2HC / 


INFORMATION USED IN PERFORMANCE OUTPUT 


DATA FRISGHPC/P/¢ FC) /2HCFS 6 FN/GHMACH®4H NUM«SHHER o1H / 
LsFR/GHCSTAS4HRe FeGHT/SEe2HC | /eFI/4HISPa 94H LAs SHSEC/sZHLAS 
QeFA/SHIVAC s4HeL Be s4HSEC/e2RLR / oF A) /GHAE SAS SF A2/IHT/ 

END 


32970 
329R0 
32990 
33000 
323010 
33020 
33030 
33040 
33050 
33060 
33070 
33080 
33090 
33160 
33110 
33120 
33130 
33140 
33150 


Pace 


at 


pruzval-992C 


22-2 


INOE x 


SYMBOL 


Ac 

AM 
ANUM 
ATEM 
ATOM 
BLDATA 
boa 

boP 
CPSUM 
cR 
DATA 
OENS 
ENLSAV 
ENN 
ENNL 
ENSAVE 
ENTH 
EQRAT 
FA 


4 trea vitesttetpirvrs tprescei Qe t PO ttre eeneaerreryrse te epraresaerad 


’ 


BLOCK DATA 


SEM eM EM em eM sm tm emer ewe memsum seme mememtmsmen REFERENCES 


3co 
3c0 
3c0 
201 
3co 
le 

3co 
ace 
3c0 
aco 
3co 
3c0 
aco 
aco 
3cO 
3coO 
3co 
3co0 
4CO 
3ca 
4C0 
4ca 
4co 
4CO 
4CO 
400 
4cCO 
4CO 
aco 
4CO 
4CO 
4CO 
4co 
4CO 
4CO 
aco 
3co 
4CO 
3cO 
4C0 
4CO 
4CO 
4CO 


4CQ ., 


4ca 
4CO 
4C0 
4ca 
4CO 
co 


3c07 


3c0 
3c0__ 


SEQ 
SEQ 


10DA 


10Da 
100A 
ADA 
90A 
100A 
9DA 
9DA 
ona 
LODA 
9DA 
9DA 
3DA 
ADA 
BDA 
8DA 
10DA 


SDA, 


10DA 
TODA 
ODA 
IDA 


apa 
ADA 
- ADA 


TDA 


6DA 


PAGE 222 
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b-G2U0L-9S20 


H22r2 * 


MISC 
NAME 
OF 
DUPT 
OXF 
PECWT 
pe 


HH 
RRUP 
MW 
RR 
RTEMP 
S1 dk 
SUMN 
$0 
THIGH 
TLN 
TLOW 
1M 
THID 
TRACE 
ir 
VMIN 
VPLS 
uP 


I 


NDE xX BLOCK DATA PAGF 223 


treepuscs ee peepee te adetea 


besedrta 


ie | 


3e 

3€o 

3c0 

qe 

3cn 

3c0 

3co 

3co 

aco 

3cu 

3co 

3co0 ‘ 
3c0 
3c0 
3c0 
3c0 
aco 
aco 
3c0 thie 

3C0 . 

3co . 
3co 

3c0 

3C0 

3co0 

3co 


ones eb we dw sub mind mimtwdetemswenemtatwbatebatsimememtat mp msutmtwbateeweh mya tateeases HO MHmsen en eaHaot—e— 


proccoL-9S20 


Geer’ 


INOEX SUBROUTINE IDNOZL (RI sR2¢XX1 1 XX2) PAGE 


1 SUBROUTINE JONOZL (R}EeR2eXX)} pXX2) 
c ONE-~DIMENSTONAL NOZZLE PROGRAM , 
IMPLICIT REAL®R (A-H,0-Z) 
wen REAL#HS RI eAAeKXTSX2 a ere 5 i é 
EXTERNAL FOFRP ao 
COMMON/NPHRC/NPPR (10) 
COMMON/COMO L/TSTAGK » TEX [TK CHEN, EXENe PROP pWTHO] Gy CUGOs 3 
“ZT PARWT +-KCHsSLOP2 + SLOR2,RARC! »RARC2 9 ARF «NOZTYPs INBUGs IDNPRT 
COMMON/CPRNT /CHANGE # X FHe FRI 0 eKPRNT 
COMMON/COMO2/ ETAGyETAP He ALPHA eBLOWsCNSTI CNST2«CNST39CNST4,y 
CNSTS ,CNST6,CNST? «CNSTASCNST9 gCNST1O 9 CPCU yCPG CPL eCPPeCPSe 
DEL 4 DENOM + RMOND 5 DMONUe DNL ST 9 DOMAX #DUMAX #DX ¢ OX ¢EPSEEPS2sEPSMy 
EPSM2 -EPSN»EPSUy ERROR SEULST »FCTR oF XL oF X20F X39 0GeGAMMA GACH, 
GMSSP , GMUG +GMUS « GNLST + GNUM+HOeHOD eHOUs HONX s HUMeHM pHSM eHSTAG » 
HUPX 9? 9 PRG ¢PSTAG » QUED s QUEH+ Re RC eREP oRGAS #RHOpRHOONL oRHOST eRP > 
RTH sSIGMA gSTGX gSOPMy TAUs TAUG o TGs TG0e IMs TP eTSTAG eo TT e UN eG eliGOD 
U6 00 eUGODN y UGOUP + UGDNX + UGUPX » UP @UPO »UP ODN sUPOUP sUPONX ,UPLIPX «UT» 
MPWG 0X eXOeX00 0X} oXAeXTaXF oXMAKeXT XX 
y COMMON/COMO3/ ATABL (3) ¢DY (3) ,HON(S00) sHTBL(S00) eHUP (SNM) ¢RTABL (4) 6 
1” UGON (500) sUGTAL (500) eUGUP (500) sUPON(500) sUPTBL (500) et/PUP (500) ¢ 
2 WORK (33) ¢XON(500) +XTBL (S00) +» XUP (500) 
lo . COUMON/SCOMOS?/ CAY] pCAY2+CAY4 » CAYR + CUED +CUL) eCUF2 eCUE4 sCUER@DYILST» 
1 ELOsEL1 eEL2sELG sGAMRAR + QUAN) sQUAN2» QUANS # QUANG sQUANS eF L.2MHo 
2 UTPReRPLST 


cm PILwNn 


Hy 
DVOUE WA 


i. COMMON/COMOS/ TERR» KsKFLG] sKFEL G2 eKFLGI¢KFLG4 eLFLAG sLINES sNoNDNeo 
1 NTRY eNUP eNDEGeNPTS 

12 COMMON/COMO6/ A0D,A(9} ¢RL (200) oXt (200) eHNELT ¢RAMDER sRMDRK eAR» 

we ce es LU RTHRT*XSAVE ene Awe : AY x 7 

13 RTHER1 

14 RPsR2 

IS. APEKXL : P “ 

16 XG=KX2 

17 CALL PRECAL 

la NPTSS0__. . . é 

19 Ks3 620 

20 TSTAG = 1LeA*TSTAGK : 800 

2 : DO 45 J=bvl0 

22 45 NPPRIT)=1 

23 If CIDNPRTeEQ,.0} GO TO 11t 

24 __ . WRETE (69301) oe 670 

2s 30F FORMAT(1H1.5X%)35HTHE FOLLOWING QUANTITIES WERE 1NPUT/} eee 

26 WRITE (69302) PSTAGsTSTAGK s TEXETK y CHEN rEXEN eGMUSsWTHOLG 5 SIG 690 

os IMAeKPsXGe s,s RP CUGOeNOZTYP »NPTS 

a7 302 FORMAT (15ti STAG PRESSURE=91F 7e2e4HPSIAsLOXs1OHSTAG TEMP=51F 9.3910 710 
HDEG KELVINsOBXsLOHEXIT TEMPsy)1F8.32I0HDEG KELVIN /ISH STAG ENTHAL 720 
___2PYs01F8e399H CAL/GRAMS4Xs14HEXIT ENTHALPY=91F82229H CAL/GRAM 15X01 0 730 


““~SAVISCOSS TY=+1F 8070 09HLOZFT-SECe/® GAS MOLECULAR WEIGHT (CHAMBER) =¢ 
401F95,6HSIGMA=91F 4.3/8 PARTICLE MOLE FRACTION(CHAMBER) =", 

: rare SIF 906s! GAS MOLE FRACTION(CHAMAER) =" s1F9.693X,16HPARTICLE RADIUS=s 
é 1F5.357HMICRONS/ 
7 GH CUGO=9F6,3924X » THNOZTYP=4 11 o28X 0 SHNPTS= 915) 


Bas ke dE (PROP SGT 9120) G0 70 208 8 oe eed oe eet) Leathe eae 819 
29 WRITE (6,303) 820 
30 303 FORMAT(/63H THE FOLLOWING QUANTITIES ARE CONSTANTS FOR ALUMINUM PR 830 


a nen OPELLANTZD oo. 840 
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se 
33 


34 
35 


36 


38 
39 
40 
4] 
42 
43 
44 
45 
46 
47 


4a 
49 


50 
sl 
52 
53 
by 
55 
b6 
ST 
$8 
$9 
60 
6l 
o2 
63 
64 
65 
66 
67 
64 
69 
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74 
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SUBROUTINE TONOZL (Rl sR2—XK%1 »XX2) 


60 TN 310 
305 WRITE (65306) 
306 FORMAY (/63H THE FOLLOWING QUANTITIES ARE CONSTANT FOR BFRYLL TUM P 
YROPELLANT/} 
310 WRITF {69311) CPL + GPS eH MvHS"y TM sPARWT sGMSSP 
311 FORMAT (20H LIQUID PARTICLE CP=stFA.3s1AHFE SQ/SFC SO-~NEG ReBXe1 AHS 
1OLJD PARTICLE CPa),1FAse3e1AHFT SO/SEC SQ-NEG Re/26H LIQUID PARTICLE 
1 ENTHALPY®1E1265523H SQ FT/SQ SEC3Xs24HSOLID PARTICLE FNTHALPY=el1E 
112.SsleHFY S@/SEC SQe/}1H MELT TEMPReIF7eeeSHDEG Re 31X+23HPARTICLE 
2 ATOMIC WEIGHTSe1F6e2s/01Xe15HPART M DENSLTY=91F5.)} 
111 CONTINUE ‘ 
WPWG = XP/X6 
CPMIX =C(CHEN-E XEN) /(TSTAGK~TEXITK) 193261 7/49777,5 
€PG = (CPM]X-XP®CPL) /XG 
ROAS = (1545,.33%32.174) /WIMOLG 
GAMMA®} 20/4 (1,0~-RGAS/CPG) 
PRG = 4e0#GAMMA/ (92 0#GAMMA-5,.0) 
IF CIONPRT.EQ.0) GO TO 119 
WRITE (69312) 
312 FORMAT(/47H THE FOLLOWING QUANTITIES WERF CALCHLATED/) 
WATTE (620333) WPWG eo CPMIX CPG sKGAS GAMMA oPRG 
313 FORMAT(16H PART/GAS RATIO=11F 66 
24 el4XeLIHMTXTUPE CP=e1F 9,341 2HSOFT/SUSECHHOGX,07HGAS CP=e1F9,30012 
BHSOFT/SQSECaRe/14H GAS CONSTANT=e]F8e3e218HSO FTYSEC SN-DFG Re 2X, 
46HGANMA=91F8.69/01X%s12HPRANDTL NO.=e1F 8,6) 
WRITE (601) }8)EPS] sFPSMLATASL{1) sRTABL (1) 
118 FORMAT (SHOEPS=F 6,461] 0X sSHEPSM=FS Gel OXe 1 JNReK TOL (ARS) SFS.492X4 
1)3HR@K TOL{REL}=F?.6) 
119 RP=RP/304H00.0 
EPS2=3.,08EPS} 
EPSN=|,54EPSM 
EPSN2=0-28FPSM 
ATASL (2) =ATABL 11) 
ATABL (3) =ATARL {1} 
RTAGBL (22 =RTAAL C1) 
RTABL (3) =RTARL (1) 
RTOL=0.0]#R2P 
RPART=RP 
RHOS 134633. 056/RGASPPSTAG/TSTAG 
IF CIONPRT.EQ.0) GO To 133 
WRITE (6s13}RHOST . 
13 FORMAT (11HORHO (STAG) =F ALG) 
133 IF (NOZTYP.GT.1) GO TO 1} 
CALL CONICL (CXF sRCoRTHOXT 21} 
GO TO 14 
1 CALL LKUP(XFeRCeRTH*XTol) 
4 IF (GAMMA.GT eed eANDS GAMMAGLTs 1e7) GO TO 19 
15 WRITE (6416) 
14 FORMAT (80HOTHE VALUE COMPUTED FOR GAHMA IS NOT WITHIN THF LIMITS 
LéleOele7)e ‘CASE REJECTED.) ” 
RETURN 
19 RPLST=000 
“25 ‘OSIG=FAFRPIRPARTT ~~" 7 era 
RETURN 
END 
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FUNCTION ARFAR (2) 


FUNCTION AREAR(Z) 

IMPLICIT REAL*A (A=HeO-Z} 

COMMON/COMOS/ TERR eK eKFLGI eKFLG2Z cKFLG3 »KFLG4 »LFLAGOLINE SeNeNONg 
1 NTRYeNUP»NDEGsNPTS 

COMMON/COMNG/ AOL ¢A(9) RL (200) oXL (200) sHDELT sRAMDERSRMORK oARe 

1 RTHRTASAVE 5 

ARF ARS (RADTUS(Z) /RTHRT) ##2-4R 

RETURN 

END 
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A od 4CO 
AOD “ 4C0 e 7 eres 
AR - 4C0 5 
AREAR = i+ 5s 
ca“os - 3e 2 oasis 
COMO - gn 
HDELT > &CO 
TERR = 3CO_ _ yx = 228,22 5 
K “ 3c0 
KFLG) = 3€0 
KFLG2 tad 3c0 = 2 
KFLG3 = 3cO0 
KFLGG = 3C0 
LFLAG - 3cq 
LINFS fad 3c0 
N - 3C0 
NDEG - aco * 

NON - 3ca 
NPTS - 3c0 
NTRY ba 3co.CtidsCi<‘j ; —- P : 
NUP = 3ca 

THE VARTABLE= RAODEUS TS USFD BEFORE IT IS DEFINED 
RADIUS = 5 = . 7 3 
RAMDER = 4f0 
RETURN =~ 6% 
RL = BOO oe aod te ) Sac s > 
RMDRK = 4CO 
RTHRT - 400 5 
Xt = 4C0 ey, : 7 z 
XSAVE fe 4C0 
é - VAG 5 
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BLOCK DATA 


HLUCK DATA 

IMPLICIT REAL®8 (A-H,O-2) 
COMMON/COMOL/TSTAGK » TEXT TK e CHEN + EXEN PROP eWTMOLG,CUGO, 
1 PARWT sRCHsSLOP] sSLOP2,RARCE sRARC2sARF sNOZTYPs [NBUGs IDNERT 
COMMON/TAHIC/INCXs INCYs ISER*eI0+KLO 
COMMON /80B/ KFLG 

COMMON /CPRNT/CHANGE eX TH«F RIO sKPRNT er 
DATA IDKUG/H/ 

DATA IDNPRT/O/ 

DATA FR10/1.58489/ 

DATA NOZTYP/1/ 

DATA CUGO/1.25/ 

DATA ISER/O/+INCX,INCY/24] / 

DATA KFLG/1/ 

DATA KPRNT/0/ 

DATA TSTAGK/3321.0/ 

DATA TEXITK/195740/ 

DATA CHEN /#433.117 

DATA EXEN /1225.4/ 

DATA PROP/1.0/ 

DATA PARWT £101,947 

DATA WIHOLG/{1 9206417 

END 


28890 


2890 
289490 


29260 
29270 
292A0 
29300 
29310 


29470 


29410 


PAGE 


234 


02000 1-920 


GE2-2 


beats ach dicaih a ch tia dmt iol ea Sat Naa ad io Dante aaa, Sonal, Ned adh daa Se, Seed 


INDE x 
SYMBOL 
ARF “ 3C0 
BLUATA .- 1 
BOB - S* 
CHANGE = 6cO 
CHEN - 3CQ | }7DA 
COMO] - 34 
CPRNT = 6% 
CUuGO - 3c0, JIDA 
EXEN - 3c0 18D4 
FR1O - 6ca ODA 
In “ aco, . 
IpkuG = 3co 704 
IONPRT - 3co BDA 
INCX - 4c0 | 12DA 
INCY - 4C0 i2DA 
ISER ~ 4c0 L2DA 
KFLG - sco _ }3pA 
KLO - 4CO 
KPRNT  ~ 6co 14DA 
NOZTYP - 3C0 ___ 10NA 
PARWT oo = 3c6 200A 
PROP - 3co 19DA 
RARC] = 3C0_ 
RARC2 - 3C0 
RCH - 3C0 
SLOP} ” 3c0— 
stop2 = 3co 
TaBIC = 4a 
TEXITK = 3c0, 14DA 
TSTAGK = 3c0 1SHA 
WIMOLG = 3c0 21DAa 
XTH - 6ca 


BLOCK DATA 
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SUBROUTINE CONICL (XeRsRPR+RIDHLP,K) 


IMPLICIT REAL#?8 (AwHeD~2) 


(XeksRPRyROBLPsK) 


COMMON/SCOMO) /TSTAGKs TEXTE TK e CHEN sEXENs PROP EWTMOLGsCUGO> 


1 PARWT «RCHeSLOPL 6 St OP2eRAHC1 sRARCZ¢ ARF eNOZTYP + IDHUGs [ONPRT 


IF (K=7)201309?9 

RTH=RPR 

SLOP? = -DARS{SLOPI) 

SLOP2 = [DARS{SLOF?} 
A=RARCI/USQRT (140+SLOP14#2) 
RI=ERTH+RARCI-A 

X1=(R1L=RCH) /SLOP] 
XT=XE“SLUPLOA 
A=RARC?/DSORT(1.0+SLOP24%2) 
R2=RTHeRARC2=A 
K2=XT+SLOP2HA 

RFSRTH#DSORT (ARF) 

XFaX2e (RFR2) /SL OP? 

KSXF 

R&RCH 

RPRERTH 

ROBLP=xT 

IF CIONPRT.EQ,0) GO TO 29 


WRITE (6224) RCHeRTH SLOP 14 5L0P2 sRARC1 sRARC2yARF 


FORMAT (SHORCH2F764, 6H RTHSF7e4s 14H 
LAH RUPSTRM}=F 604s 


WRITE (6426) XT eX) Ri pX2eR2eXF eA 
FORMAT (4HOXT=F764¢5 7H 
XFoF7.4e7H 
RETURN 

IF {X) 302031431 

R=RCH 

RPR=0.0 

RDALP=0-0 

RETURN 

TF (XX2)3? 932934 

R=RCH+SLOP] 4X 

RPR=SLOP) 

RDALP=020 

RETURN 

AaKToX 

IF (A)G2096536 

B=RTH+RARC) 

R=H=-DSORT (RARCL#H2=A8A) 

RPR=A/ (RB) 

RDALP SC] eO+RPR#H2Z) 7 (RB) 
RETURN i 

IF (X+K2)44 446046 

A=RTH+RARC2 
R=A-DSQRT(RARCAHe2—-AHAy ~ 7 
GQ 10 37 

R=R2+¢SLOP2 4 (K=X2} 
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RNALP=000 
RETURN 
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SUBROUTINE CONST (KS) 


SUBROUTINE CONST (K5W) 

IMPLICIT RFALfPB (AwHeO=Z) 
COMMON/COMD2/ ETAGs ETAP tHs ALPHA eBLOWeCNSTE OCNST2eCNST3eCNST4, 
CNSTSeCNST6eCNST7 + CNSTB oe CNST9 sCNSTILOsCPCOsCPG+CPL CPP eCPS+ 

DF LU DENOM pe DHMOND » OMONU DNLST sMQMAX pDUMAX DX sDX02EPS] sFPSOVEPSMy 
EPSM2sEPSNeFPSUsERRORSEULST pF CTReF XE oF X29FX3_¥G9 GAMMA GMACHS 
GMSSP yGMUG+GMUS sGNLST ¢GNUMsHO sHOD eHOUsHDNX pHLM pHMoHSMe HS TAG, 
HUPX »PoPRGsPSTAG + NUED sQUEHsReRC REP eRGAS *RHO +RHOONL +RHOST RP 
RIHs SIGMA, SIGX SOR e TAU s TAUG a TGs TGOs TMs TP e TSTAGe TT UO eIIGetIGOs 
UG00 sUGOON » UGOUP , UGONX + UGUPX 6 UP» UP 0 UR ODNsUPOUPR sUPDNX os UPUPX + UT + 
WPWG a XoxXO X00 9X) X2eXBeXF eXMAX OX Te XX 
COMMON/COMD3/ ATASBL {3} eDY (3) sHON{S00) sHTAL. (500) »HUP (500) sRTABL (306 
1 UGDN (500) ,.UGTAL (S00) eUGUP (500) eUPDN(S00) eUPTBL (500) «UPUP {S00} 
2 WORK (33) +xDN(500) sXTBL (500) sxXUP (500) 

COMMON/SCOMOG/S CAY} eCAY Ze CAY4 eCAYR CUED » CUE] sCUF 2 CUES sCUER«DYILST1 
1 ELOsELI] sEL20EL4 sGAMBAR ¢ QUAN] ¢QUANZ eQUAN3 # QUANG » QUANS EL 2MH es 
2 UTPReRPLST 

COMMON/COM0S/ TERR Ke KFLG) sKFLG2 ¢KFLG3 KFLG4 eLFLAGsLINGSeNeNDNg 
1 NTRYsNUP sNDEGeNPTS 

IF (®SW)40.2030 

CPP=CPL 

HM=HLM 

GO TO 50 

CPP=CPS 

HM=HSMN 

GO JO 50 

IF (HLM-H)41 041942 

CPP=CPL 

GO TO Se 

TF (H*HSM)43443944 

CPp=CPS 

60 TO 52 

CPP2CPL={(CPL@CPS) # (HLM=H) / {HLM@HSM) 

GO TO 52 

HSTAGSHMeCPP® (TSTAG=TM) 

CNST1=005/ (CPGeWPWGRCPP) 

CPCGSCPP/CPG 

RETURN 
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ALPHA - 3c0 
ATAAL s* 4C0 
BLOW - 3co 
Carr ~ 5co 
CAY} ” Sco 
CcayY2 - 5c0 
CAY4 - 5co 
CNST] = _.. 3C0 
CNST10 «= 3c) 
CNST2 - 3¢€0 
CNST3, = 3C0 
CNST4 - 3c0 
CNSTS ~ 30 
CNST6 | = 3¢0 | 
CNST? - 3C0 
CNSTS - 3CO 
CNST9: = 3¢0 
comoe) = 3 
come3. = Gt 
comn4 = Se 
comos - 6% 
CONST = + 
cPCG - 3co 
CPG - 3c0 
CPL = 3¢0 
cee “ _ 360 ., 
cps - 3C0 
CUER Sal sco 
CUEO - 5¢0 
cue. ~ Sco 
cuE2 = sco 
CUuE4 7 8cd 
DELU - 3co0 
DENOM ~ 300 
OMOND ~_ 300 
DMONY - 3c0 
DNLST - 30 
DQMAX ~ — 3C0 _ 
DUMAX - 3Ca 
Ox - 3C0 
Oxd - 3¢0 
py - 4co 
DYILST = 5c0 
FLO. Lor, 3£0 
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RPLST = Sco 
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RTH ~ aco_ 
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UPTBL ~ 4CO 
UPUP bad 4co 
UPUPX = 300% 
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UPODN = 3c0 
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SUAROUTINE CTRLJ CINTRY) 


SURROUT INE CTRLI (INTRY) 
IMPLICIT REAL®8 (AsHsOZ) 


TH]S RQUTENE DETERMINES WHETHER EQUATION 2 ON PAGE .] OF THE USFRS 


" MANUAL IS PROCEEDING TO A BLOWUP, BLOWOOWN OR Exact SOLUTION. 


COMNON/PH INT/TERM] s TERM29O]FFO,XUST_. 
COMMON/COMO1/TSTAGK » TEX I TK CHEN SE XEN + PROP ¢ WTMOLG »CUGOs 
1 PARWTsRCHsSLOP] pSLOP2 -RARC1 sRARC2sARF eNOZT YP ¢ IDAUG » IDNPRT 
COMMON/COHO2/, ETAG PETAR s Hy ALPHA + BLOWs CNST? 2CNST 2p CNST3AsCNST4,» 
CNSTS eCNST64CNST7 »CNSTBsONSTI®CNSTI Os CPCOsCPGsCPL+CPPsCPSe 

OFLU s DENOM sDPMOND »DMONU DONLST sDOMAX sDUMAX eX eDXOsEPS1] eEPS2sEPSMs 
EPSM2 cLPSNsEPSU ERROR EULST pFCTRoFX] 9 FX2 ¢FX30G GAMMA SGMACHs 
GMSSP yGMUG +GMUS +GNLST  GNUM «HO «HOD sHOU» HDNA pHLM p HM p HSMOHS TAGs 
HUPX sPsPRGsPSTAG, OUED » QUEH» RaRC »REP +RGAS sRHO,RHOONL sRHOST oRP >» 
RTH s SIGMA sSEGX sSQRMy TAUy TAUG 0 TGs TH0s THe TPs TSTAG oT T 9 U0 UG 6UGOs 
G00 9 UG ODN S IGOUP 4 UGDNX sIGUPX 4 UP +URO sURODN + UPOUP sUPDNX sUPUPX »UT» 
B'WPHG a XaX0 9X00 eX X2eXBe KF eXMAX XT XX 

COMMON/COMNS/_ ATABL (3) +BY 03) »HDN (S00) sHTBL £500) »HUP (SON) »RTABL{3) + 
1 UGON(500) sUGTAL (500) stIGUP (S500) sUPON (S003 eUPTRL (500) »IPUP (S00) » 

2 WORK (33) + XDON (500) + XTBL (500) »xUP (S00) 

COMMON/COMN4G/ CAY) sCAY2 eCAY4S sCAYR a CUEG CUE) s CUES eCUE4 sCUFReDYILSTs 
} ELOELY + EL2sEL4 eGAMBAR POUANT »QUAN2 sQUANS «QUANG » QUANS +EL2MHs 
2 UTPReRPLST 

COMMON/COHMOS/ TERR KeKFELGL eS KFLG2 eKFLGSyKFLG4 oLFLAGsLINESsNeNDNe | 
1 NTRYsNUP pNOEG»NPTS. 

DATA DQNEW/1,0E+107 


_ DAMAX = 1,06} 


NTRY=INTRY 
GHACHSNSQGRT (SORM} 


ENSURE THAT THE STORED DATA DOES NOY EXCELO DIMENSIONS 


IQN=s Ne 1 ; 
IF(N.GE<«S0n) GO TO 300 


XTRL (ND) FX 


. UGIBL (N) =UG 


UPTBL (N} =UP 
HTBL(N} +H 


IF MACH GT 1 WE HAVE AN EXACT SOLUTION 


IF (b401-SQRMj 40040019 
IF (KFLG2)22420024 
KFLG2=e1 
G0 10 38 
KFLG2=) 
Dxo2DXx 


= eee one rue . ne nan 


IF (DABS (EULST#DETA) =4e0) 24924023 
EULST=EPSU 


EPSUZDETA™ 


MUST HAVE ATLEAST F13) DATA POINTS 


15780 


19790 
15800 
19810 
15870 


161790 


16190 , 


16200 
16270 


“16230 


16240 
16250 


~ 16260 


16270 
16280 
16290 
16300 


16370 
16330 
16340 
16350 
163460 
16370 
"16380 
16390 
16400 
16440 


16430 
16440 
16450 
18460 


PAGE 244 


yrG2001-9520 


9b2-2 


INOExX 


30 


31 


32 
43 
34 
35 


36 


37 


3A 


39 
40 
4} 
42 
43 
44 
4S 


46 
47 
48 
49 
$0 
$1 


WANAANKOOAGAANG 


- 
-_ 


NMOGONOND AAN O07 aen 


WUOONDA 


wo 


+ 


2 


2 


2 


ws 


mn 
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IF (NK) 3893980741 

START BLOWUP OR DOWN DETERMINATION 

OY{1) ITS SOLUTION TO EQ. 2 

DENOM 1S (M##2 ~ 2) FROM EQ 2 - 
GNUM 1S NUMERATOR FROM EQ 2 


{F OU/OX IS NEGATIVE BLOW OQWN 
IF (DY¢€1)932—¢241552?415 
FIND SLOPE OF DUSDX 
415 IF ((X=XLST1.FQ.0.0) GO TO 2416 
NIFFQ=(DY (1) -DYILST) /¢(x=XLST) 
GO TO 2417 
416 DIFFA=006 
IF SLOPE JS GY 7.5#108+#7 BLOWUP 
417 TF (DEFFQ*+NQMAX) 242 ¢28,2A 
IF SLOPE LT -108#10 BLOW DOWN 
242 IF ¢=DQNEWHDIFFO) 25032,32 
IF DENOM HAS CHANGED SIGN CHECK SOME MOREs IF NOT GO TO 30 
IF (NENOM*PNLST) 26026030 
TF NUM CHANGED SIGNo=--EXACTs IF NOT ALOW UP 
TF (GNUM#GNLST} 40540528 
BLOW=] 
ONLST = DENOM 
GNLST = GNUM 
OViLST = DYth) 
XLST = X 
GOTO G2 


CHECK NUMERATOR SIGN CHANGEs IF IY HAS CHANGED RLOWDOWNe 
If IT HASNT GO TO 36 AND CHECK SOME HORE 


+ TF (GNUM#GNLST) 32932436 

* BhoWa=) © 
ONLST = DENOM 
GNLST_=_GNUM 


ween OVILST ER DVET) a geet 


"maa 


XLST = X : 
wel E EXeGE RT) GOTO 4200 soph y ak et tages wees 
IN CERTAIN CASES OSCILLATIONS WILL OCCUR AND ERRONEOUS ALOWUP OR O 
_ INDICATIONS WILL RFSULTs IN ALL INSTANCES THE CaLCULATED MACH NUMB 


16470 
16480 
16490 
16500 
16516 
14520 
16530 
16540 
146550 
16540 
16570 
16SA0 
14590 
16600 
[4610 
16620 
14640 
16640 
16650 
£6660 
16670 
E6680 
$h690 
16700 
16710 
16770 
16730 
16740 
16756 
167460 
16770 
164780 
16798 
16800 
t6A10 
16820 
16870 
16840 
16850 
146R60 
16870 
L6BA0 
14890 
16900 
16910 
16970 
16930 
16940 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
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SHOULD. NOT RE GREATER THAN AN EQUIVALENT ISENTROPIC MACH NUMAFR 
FOR A BLOW DOWN SOLUTION, 

MACHR DETERMINES THE ISENTROPIC MACH NUMBER AND THE FOLLOWING 
STATEMENT CHECKS THE RESULTS. _ : 


CALL MACHR (R «RTH» GAMMA, TMACH , GMACH) 
TF (GMACH.GT,sTMACH) RLOWS) 0 
GO TO 42 


If DU¢DX GT.10¢¢10 BLOW UP» IF NOT RESET AND RETRY. 


IF (OY (1) -DUMAX) 38928928 
ONLST=DENOM 
GNLST=GNUM 
DYILST=Dy (2) 
XLST=X, wi ie ae ae 
GO TO 50 

IF (LFLAG}40446,40 


. BLOW=0 = 


202 
303 
& 


50 
300 
301 


IF (SGRMsGT01.0.ANDXaLTeXT) BLOW = 160 

IF (IDBUG,ER.0) GO TO 46 

WRITE (69302) _. Saxe . 
WRITE (6,303) RyRTHsGAMMA, THACH, GACH 

FORMAT (SXe23HR+RTHsGAMMA s TMACH »GMACH) 
FORMAT (SXsSCIFIO0795X) 1. _ 

INTRY=2 

NTRYS ENTRY 

RETURN 

WRITE (65301) 

FORMAT(* EXCEEDED 500 ITERATIONS JN CTRLL OF INNOZ MODULE®) 
STOP 

END 
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17050 
17060 
17070 
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17110 
17320 
17230 
17340 
17154 
17160 
17176 
17180 
17150 
17200 
17230 


17220 
17236 
17240 
17280 
17260 
17270 


17330" 


17360 
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2415 
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ATARL 
BLOW 
CayYR 
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CHEN 
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COMa4 
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CPCG 
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36 
3A 
71 
46 
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41 
ao 
16 
14 
73WR 
66WR 
67uR 
3) 
42 
3% 
Sco 
4co 
6ca 
560 
7co 
7co 
7c0 
7co 
4CO 
sco 
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Sco 
5¢co 
5cD0 
sca 
sco 
sco 
sco 
ae 
Se 
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27 
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398 
34 
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37 
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30 
39 
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T4¢ 
6AG 
694 
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364 
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400 
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62 
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634 
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CPO - 5c0 

CPL - 5co 

cpp - 5co 

cps - 5c0 2 : 
CTRL] = 1 

CUER - 7€0 

CUEQ - 760 a ge oahicd 3 in 
CUE} - 7c0 

CUE2 - 7c0 cae 
CUE4 oe ARO Swe i abet ee. RS ‘ Sh, foe 
CcuGo “ 4co 

DAHS - a? 

DELU - 5¢0 Lee aree . 

VENOM = 5C0 a8 4) 48 57 

DETA - 26= 2? 29 

DIFFQ  - 3¢003=—_ «6. 3s. 35s 36 37 

DMGND- = 5c0 

UMCNU ~~ 560 , 

DNLST - SCO 38 |. 4] 48= 57s 

DQMAX = 5c0 10= 36 

DONEW = ODA 37 

DSQRT «= | yee = 

DUMAX “ 5c0 S56 

Ox - 5CO as 

Oxa ~ sco 255. cae Sues. 3 . 
oY - éco 31 33 43 50 56 59 
DYILST = 7co 33 435 505 59= 

ELO - 7Co = es . 7 7 ‘ cae 
EL1 - 7c0 

EL2 - 7C0 

EL2MH + 7c0 _ 

EL4& - 760 

EPSM - 5c0 

EPSM2 = Sco 

EPSN - 5c0 

EPSU - 5co 28 29= ; 
EPS] - Sco 

EPS? - 5co 

ERROR = Sco 

ETAG - §ca 26 

ETAP - 5c0 26 

EULST <= 5¢0 2? 20= 

EXEN - 4c0 . . _ = 
FCTR - sco 

FX) ~ Sco 

Fx2 - 5cO tif Sa. ck Sees! oeels as = F 2 
Fx3 - SCO 

G - sco 

GANRAR © 7co : = 7 

GAMMA = Sco 53aG 67WR 

GMACH = 5c0 12= §3aG 54 67uR 

GMSSP) = 5cO Phat 7 7 
GMUG - 5c0 

GMUS - 5c0 

GNLUST = sco... 39 |. 42 AG 492 38= 
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GNUM - 5c0 39 42 46 49 58 

H - 5¢0 18 

HN - 6co 

HONX - 5cO 

HLM - 5cO 

HM - §c0 ‘ 
HSM ~ sco 

H§TAG = 5cO 

HT BL - 6CcO 18s 

UP - 6CO 

HUPX ~ 5CO 

HO - 5co 

Hon - 5c0 

HOU - 5¢c0 

IDBUG - 4CO 19 65 

IDNPRT + 46c0 

TERR ~ RCO : 
INTRY = 1AG i 70= Tt 

K - sca 30 

KFLG] = aco 

KFLG2 9 = aco 21 22= 245 

KFLG3 0 + aca 

KFLGG = « eco 

LFLAG + aca 62 

LINFS = aco 

MACHR = 53% 

N - aco 13= 14 15 16 17 18 30 
NOEG - 8CO 

NON - RCO 

NOZTYP = 4C0 

NPTS - aco 

NTRY ” 8CO ll= Tz 

NUP - aco 

OPUT - 19% 

Pp - 5co 

PARWT = 400 

PRG - 5co 

PRINT = 30 

PROP ~ 46CO 

PSTAG) - 5c0 

QUAN] = « 7co0 

QUAN2 ~~ 7c0 

GUAN3 = 7co 

QUANG = 7co 

QUANG ~ 7co 

QUED - 5¢cO 

QUEH - 5¢o . 

R - Sco 5IAG 67WR 
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GU - 5¢c0 
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uP - Sco 
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UPDNX - Sco 
UPTBL “ 6co 
UPUP ~ 60 
UPUPX - 5c0 
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UPODN = 5c0 
UPQUP - sco 
UT - 5co 
UTPR - 7co 
uo - Sco 
wORK - 600 
WPWG - Sco 
WIMOLG = 4c0 
K - 5¢c0 
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“XF - sco 
XLST - 30 
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1 _ SUBROUTINE CTREZCINTRY) _ 17350 
2 IMPLICIT REAL®R (AsHs092) ; 

3 OIMENSTON TOY(3) 17390 
4 _ COMMON /CDX4/ DX4 17710 
5 COMMON/COMO2/ ETAGSETAP ey ALPHA sRLOWSCNST 1 sCNST29CNST3+CNST4» 


CNSTSsCNST6eCNST74CNSTOeCNST9 ¥CNST1OeCPCGsCPGsCPLsCPP yCPSe 
NELUsDENOM sDMOND »DMONUsONLST pDQMAX sDUMAX 2 DX eNXOrEPSI +E PS2sEPSMe 
EPSH2 sEPSNsEPSUPERROR yEULST sF CTA aFX} oF X2 9F X30G64GAMMA ¢GMACHs 
GMSSP 4GMUG sGMUS pGNLST + GNUM eHO eHOD pHOUsHDNX sHLM HM eHSN eHSTAGs 
HUPX oP sPRG¢PSTAGsQUED, QUEH«AyRCyREP» RGAS +RHO»RHOONL sRHOST sRP >» 
RTHs STIGMA ¢SIGX ¢SORMg TAUs TAUG 9 TGe TG FMo TP eo TSTAG 9 TT oUN cUGelIGOe 
116.00 eLIGODN op LIGOUP 6 IGDNX »UGUPX +» UP eUPO pUPODNs UPOUP eUPDNX «UPUPX UT s 
WPWG eX eXOeXO0s Xi oX2eXBaXF eXMAKOXTEXX 
6 ” COMMON/COMO 37 ATABL (3) sDY (3) eHDN (500) sHTBL (500) sHUP (500) sRTABL (3) 5 
1 UGDN(S00} »UGTBL (500) sUGUP (500) sUPDN(500) +UPTBL (500) ePUP (S00) 
ae WORK (33) + XON(500) eXTBL (509) eXUP (506) 
? COMNMON/COMO4G/ CAY] CCAYZ» CAYS SCAYR s CUED ¢CUE 1 »CUE2 sCUE4 sCUERSDYILSTs 
1 ELOsEL1sEL2¢EL4 5 GAMBAR QUAN] » QUAN2 + QUAN3 » QUAN4 , QUANS «EL 2MH s 
2@ WIPReRPLST 


‘TNO FUNe 


6 COMMON/COMOS/ JERRsK sKFLG] KFLG2eKFLGI sKFLG4 pLFLAGoLINES sNoNDN, 
1 NTRYsNUP+NOEG NPTS 

9 _.. NTIRY=SINTRY on Mtcud Pine be, ee ae eS Le 17940 
10 TOY(3) = THY C2) 17970 
1 THY(2) = TO¥¢1) 17980 
12 TOYCL) = D¥t}) ts sh 17990 
13 CALL OPUT . 18000 
14 GMACHSDSQRT {(SORM) 

15 IF (GMACH,LT.0.94) GO TO 200 _ e a Jec8 <5 A026 
16 DO 100 T=1e3 16030 
l7 DO 110 J=1,3 1AQ40 
18 CHECK =DABS{TNY{ I) -THY (dd) 

19 IF (CHECK .GTeie) GO TO 200 18040 
20 Jin CONTINUE 18070 
21 100 CONTINUE ‘ . 1880 | 
22 BLOW = 0,0 P 18090 
23 200 CONTINUE 16100 
24 : IF (KFLG4} 26017+26 1130 
25 17 IF (UG}2B8+tB8.18 16126 
26 18 TOGO=XX=XK 16130 
a7... IF {TOGQ) 26726919 : ey : . 18146 
28 19 DUMMY= (OX4eX) =X . 

29 TF (DUMMY) 26926920 

30 28 IF(TOGO-“DX ) 2Pp22024 _ . Eo, © ane ee. . 18160 
31 22 DX sTOGO 1al7o 
32 24 RETURN 183860 
33 p GR CONT INGE pF Fe Gm ate Le ees ake AC 

34 INTRY=2 . 

35 NTRY=INTRY 1Aaz00 
36 ; OYILST=DY QL) _ eee wes ue : 7 1a2l0 . 
37 RETURN 1a220 
38 28 WRITE(6929) UG 

39 _  __ 29 FORMAT(! UG_1S LESS THAN ZERO IN CTR 12 OF, IDNO7 MODULE! /# UG=" 4615 : 

3.8} 
40 sToP 
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STOP 
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SUBROUTINE DERTV 


SUBROUTINE DERTEV 
IMPLICIT REAL#B (AeHeO-2) 
COMMON/PRINT/TERM) s TERM2 sDIFFOsKLST 


COMMON/ COND] /TSTAGK ¢ TEXT TK e CHEN sEXEN + PROP + WTMOLG + CUGOs 
1 BARAT UREN ALO (otanedRaRC)sqanbevary S000! Ke DAUM niet 


DIMENSION UGSAV C2} 
COMMON /BOA/ KFLG 


COMMON/CONN2/ ETAGPETAP He ALPHA sALOWyCNST! #CNST2+CNST39CNST4 >» 
CNSTSyCNST6sCNST7 sCNSTAyCNST9 »CNSTI10 sCPCOsCPG eCPL +CPP +CPSs 
NELUs DENOM sDMOND sDMONUyDNLST sOQMAX sDUMAX #DX eDXO2EPS1 + FPSAVEPSM, 
EPSM2.EPSNsEPSU+EPROR EULST eFCTR oF X1 sFX2 0F K39GeGAMMA yGHACH 
GMSSP 4GMUG + GMUS + GNLST + GNUM +H HOD sHOUsHONX sHLM HM SHSM pHSTAG+ 
HUPX +P ePRG »PSTAGs QUED sQUEH+R + RC eREP #RGAS #RHOsRHOONL sRHOST «RP» 
RTH s SIGMA «STGX sSQRMe TAU s TAUG s TGo TOs TMs FP eo TSTAG + TT 9U0 UG atiGO» 
UG 00 »UGODN »UGOLIP »UIGNNX +UGUPX »UP sUPO pUPOON pb UPROUP sUPONX pUPUPX »UT» 


Swart wnn 


WPWG eX eXOeXND eK) oe KAeXBsXF oe XMAX XT KX 


COMMON/COMO3/ ATABL C3) sOY (03) eHON(500) eHTAL 1500) eHUP (S09) @RTARL {3} 6 
L UGON (500) sUGTAL (5003 eIGUP (S00) eUPDN (500) *UPTAL (500) ePUP(S00}¢ 


2 WORK (33) sXON(500) sXTBL (S00) #XUP{S00). 


COMMON/COMN4G/ CAY] eCAY2 sCAY4 sCAYRsCUEO CUE] eCUFZ »CUES +CUFRINYILSTs 
bt ELOsEL] sEL2,EL 4 + GAMAAR «+ QUAN] + QUANZ s QUAN3 » QUANG ¢ QUANS + FL2MH¢ 


2 UTPR»RPLST 


COMMON/COMOS/ TERR eK sKFLG] eKFLG2 oKFLGIeKFL OS oLFLAGOL INES oNsNONG 


1 NTRY yNUP SHDEGsNPTS 

DATA TEST/=180.216/ 

LFLAG=9 

UG=UGO+E TAG 

UP=UGO+E TAP 

IF (UG.LT.9,0 OR. UPsLT.0.0 ) GO TO 50 
IF(N.LT.600) GO TO 190 

GO TO (100,200) .KFLG 

IF COCL OL FUG) MUGSAV(I2)}.L T2020) KFLG = 2 
UGSAVI1) = UGSAV(2) 

UGSAV{2) = UG 

CONTINUE 

UGSUSUG#UG 

TAUG= (20 S4UGSO+WPWGY{HSHSTAG +0.5*UR@UP) }/CRG 
TGsTSTAG+TAUG ‘ P 

IF (TG.iT+0.0} GO TQ 70 

TGSAV = 1G 


DETERMINE VISCOSITY AND PRODUCT OF GAMMASROT 


GNUG=GMUS * (TG/TSTAG) © ALPHA 
GRY=CNSTS*TG 


LKUP FINOS LOCAL RaAnIUS 


GO FO (16017) sNOZTYP 

CALL CONICL (%¢ReRPR»RDBLP »2) 
Go TO 18 

CALL LKUP (X sR sRPReRDALPo2) 
CONTINUE 

IF (PSTAG) 21020421 

QUEH=140 
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14350 
14360 
14370 
14400 
14410 
14470 
16430 
14440 
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14490 
14540 
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14550 
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14570 
14580 
14590 
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14610 
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4k 
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47 
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so 
$1 


$3 
54 


56 


S7 
$4 
39 
60 
61 
62 
63 
4 
65 
66 
67 
68 
69 
70 
Tk 
T2 
73 
T4& 
7S 
To 
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Ban 


500 FORMAT(*CERROR IN DERIVt/t ARGI=¢sE15e89# ARG2xteE15.Ret GMPst, 


23 


. FIND REYNOLDS NUMBER 


SUBROUTINE DERSV 


QUED=3,0 
GO TO 24 


EEND PRESSURE AND DENSITY. ite 


P=CNST9*®UGDO/UGRTG/TGO# (RCO/R) HH2 
,RH0=4633,056/RGASHP/TG | __ 
ABNV=DABS (UG*UP) 


REP=2. O# ABNVERPORHO/GMUG 
_GMPSABDV/DSORT (GRT} 
IF (REP=0,09001} 20420922 


EQUATION 9 ' 
Z52 0040 e4594REP HHO 55 
QUEH=27 (2.06, 848GMP#Z/REP) 

IF (GMP~0.00001)202.202+23 


FQUATION 6.2) LL, : a4 
ARG1=~00427/GMP H44.639~3.0/REP #40288 

ARGZ=-1] o2S4REP/GMP 

ARG3= 160 +0,15#REP#80,687 

ARG4S= 160 +3.82°GMP/REP 

IF (ARG16GT,TESTsANDsARG2,GT.TEST! GO TO 2353 


IF (ARGEOLT «TEST AND 6 ARGZ, LTeTEST) GG TO 2359 * 


IF (CARG1 «LT TEST»ANDsARG2,GTeTEST) GO TO 235) 
IF (ARG) 661, TEST AND ARG2,LT« TEST) GO TO 2352 
WRITE (69500) ARGL sARG2,GMP,REP 


$ELSeAs? REPSI*1E15,8) 
GO TO 202 


2350 GUFD= ARG3/ARG4 


235) QuUEeD= 


GO TO 2400 
GO TO 2400 


2392.QUFD= ARG3#().04DEXP(ARG]) 1 /A4RG4 
Go T 


2353 QUED= 


Oo 2400 


2400 CONTINUE 


24 


25 


26 
a7 


2a 
28s 


~ "“TpsTM 


FCTR=CNST2@GMUG/UP 
OY (2)5] sS*QUED# (ETAG-ETAP) #FCTR 
LIF CHLMoH) 25927526 
TP=TMs (HeHLM) /CPL 
GO TO 285 

IF (HSMWH) 27927528 | 


60 TO 285 

TPSTM¢{HeHSM)/CPS = 
TAUSTPATSTAG 

DY (3) =CNST3#QUEH# (TAUG=TAU) YF CTR 


TERMIRZORUGARPR/R __ 





ARG3/ (160+ (3.82¢1.28"DE XP (ARG2) | 4GMP/REP) 


ARG3# (1 eO#DEXPLARG1II/ (1004 13.8241 .284NEXP (ARG2) ) #GMP/REP) 
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14870 
14880 
14B90 
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14920 
£4930 
14940 
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14960 
14970 
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14990 
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150L0 
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1S50AG 
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15120 
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15150 
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151706 
15180 
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50 


60 
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83 


200 


210 
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240 


SUBROUTINE DERIV 


TERM22WPwGe (NY (3) /CPG = (LIGCNSTG9UP) #DY (2) /RGAS) *UG/TG 
SQRM=UGSU/GRT 

DENOM=SQRM=1.0 

GNUM=TERM2¢TERMI] 

IF (DENOM*F PSM} 34929429 

IF (DENOM-4,.0*EP5M) 30930434 . 
TF (KFLG3) 315305031 zt 

IF (DABS (GNUM/TERMI)-EPSN) 31031532 

IF (D¥ILST+3,E+38)315+3160336 

OY CLI =DYILST 

LFLAG = } 

RETURN 

IF (NENGM) 344314346 

DY ¢1)=GNUM/DENOM 

IF (PY(1))38,36036 

RETURN 

IF (DUMAKeNY (192400460036 

TF (DYILST=$1,.€ +38) 315942942 

IF (DENOM) 16444444 

DY (1) sDUMAX 

RETURN f 


THIS SET OF FQUATIONS WILL ATTEMPY TO BAIL OUT THE SOLUTION 
IN THE EVENT OF LARGE OSCILLATIONS WHICH MIGHT CAUSE NEGATIVE 
VELOCITIES OR TEMPFRATURES. 


UG = (UGSAV(1) * UGSAV(2)1/2.0 

UP = 0,998UG 

EYAG = UG=uGoO 

EYAP = UP#UGO 

If CIONPRT.EO.0) GO TO 10 

WRITE {6960) UGsUP 

FORMAT (SXs29HWARNING NEG VELeFEXED VEL AEs 2F 1062) 
GO TO 10 

1G = 0.95*7GSAV 

IF (IONPRT.E0.0) GO TO 15 

WRITE (6,83) TG 

FORMAT (5X¢20HWARNING NEG TEMPsTG2s1F 10,2) 
WRITE (66300) NeNONe XeDX 

60 TO 15 r 

LF CWIG+001) .GTeUGSAVI2) AND. (UG*0.1) 1 T-UGSAVIIE)} GO TO 130 
UGF IX1=DABS (UG=UGSAV U1) } 

UGF 1X2204HS (UG*UGSAV(2)) 

UGSLOP = UGSAV(1)"UGSAVI2) | 

IF (UGFEXI@UGFIXZ) 21092405270 

UG = UGSAV(1)-0.) *UGSLOP 

UGSAV{1) = UG : : 
ETAG = UG - UGO 

GO 10 130 

UG = UGSAV (2540, ¢UGSLOP ~ 

UGSAV(2) = UG 

EYAG = UG = UGO 

GO TO 430 

UG 2 (UGSAVIL) ¢UGSAV(2)) 7/220 

ETAG = UG = UGO 
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GO 19,130 re 3 s £5740 
FORMAT (SXe]0HN NON X OXe2C11L0eSX)e2CEF1551005K)) 15780 
END 15760 
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315 i AG BI+ 95 i 

316 = AG bas 

500 = 55WR ~° S68" 
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UPDN 
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XX 
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FUNCTION DRDX(Z) 


FUNCTION DRDX (7) 
IMPLICIT REGLYA (A#HeO~Z) 


COMMON/COMOS/ TERRsK eXFLG1 eKFLG2 oKFLGI aKFLG4 sSLFLAGeLINES PNaNDNe 


1 NTRYsNUP sNDEGeNPTS 


COMMON/COM06/ A0D+A(9) ORL (200) aXL (200) sHDELT sRAMDER SRMDRK 9 ARG 


1 RTHRTASAVE 
CALL GETAS(Z) 


” FLJSNDEG 


DROXSFLUta (NDEGE1) 

JENDEG Serer en Pesce 
00 20 I=2eNDEG 
FLJ=FLUW2e 0 
DROXSDRUX*Z6FLIHA CI) 
JeJ-1 
RETURN 
END 


8490 


8550 
8560 
as7o 
asao 
asaa 
a600 
8610 
8620 
8630 
8640 
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SYMBOL 
ao 
A 


AOD 
AR 
COMOS 
COMV6 
URDX 
FLJ 
GETAS 
HNELT 
I 
IERR 
J 

K 
KFLGI 
KFLG2 
KFLG3 
KFLG4S 
LFLAG 
LINES 
N 


NDEG 
NON 
NPTS 
NTRY 
NUP 
RAMDER 
RE TURN 
RL 
RMORK 
RTHRT 
AL 
XSAVE 
Z 


pte t tbeoered 


petve?tettetrpaaveavnre 
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reread fet Set So eet foe ere te Serre. eres ere REFERENCES 


$00 
4C60 
40 
4co 
a 
qh 
1* 
6a 
oo 
4€0 
9po 
aco 


3co 
3co 
3c0 
3c0 
3c0 
3co 
aco 
3co 
3cO0 
3co0 
3co 
aco 
3co 
400 
13# 
4C0 
460 
4C0 
4CO 
4CO 


1AG* 


126 
7 


sw 


3 


SAG 


1] 


7 8 900 
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INOE xX 


WN we 


BNO 


109 


Bw DMD hw 


FUNCTION FOFRP (RPART) 


FUNCTION FOFRP(RPART) 

IMPLICIT REAL®8 (4=HeO=Z) 

COMMON/ELKD06/RTOIOF sRIQIVE sRTQIVT 
COMMON/COMO 1 /TSTAGK s TEXT TK s CHENSEXEN s PROP 9 WIMOLGeCUGOs 
1 PARWT skCHs SLOPE sSLOP2,RARC1 »RARC2 + ARF eNOZTYP » IOBUG + IDNPRT 
EXTERNAL DERIV 4 CTRLI + CTRL? 
DIMENSION Y¥{3) 
COMMON/CPRNT /CHANGE + THX 2FR10.KPRNT 
COMMON/CON02/ ETAG+ETAPsH+ALPHAsRLOWs CNST1 sCNST2+CNST3sCNST4 >» 

CNSTS_¢CNST6_CNS1T74CNST8¢CNST9_CNSTIO sCPCUsCPG»CPL»CPP+CPS, 

DELUsDENOM,OMOND + DMONUsONL STs OOMAX @DUMAXeOXeDXDsEPS) «FPSPeEPSM, 

EPSM2 ¢EPSN sEPSUsERRORsEULST sFCTReFX) sf X20F X39GeGAMMAsGMACHs 

GMSSP 9 GMUG + GMUS 9 GNL ST ¢ GNUM e RO e HOD s HOU pHDNX «HLM HM pHSM + HSTAGe 

HUPX +P sPRG + PSTAG sQUED » QUEH +R »RCeREP sRGAS #RHO+RHOONL sRHOST oRP + 

RTH SIGMA sy STGX sSQRMs FAUy TAUG p TG2 FG0s The TP oe TSTAG eo TT U0 UG eUGOs 

UG 00 s UGOON + UG OUP sUGDNX sUGUP X + UP s UPO + UPODN» UP OUP, UPDNX »UPUPX UT» 

WPWG eX eX eXOO eX] oX2yXIoXF oXMAK eXT XK 
COMMON/COM03/ ATABL (3) eNY £3) +HON (500) eHYBL (S00) sHUP (SQN) eRTABL {3} 6 
1 UGON(500) sUGTAL (S00) stIGUP (500) sUPDN (500) sUPTAL (S500) sUPUP (500), 

2 WORK (33) sXDN (S00) eXTBL (500) + XUP (500) 

COMMON/COMD4/ CAYE sCAY2sCAY4 + CAYR eCUE0 sCUER sCUE2 pCUE4 sCUEReDYILST» 
} ELO,EL) sEL2,EL4yGAMBAR, QUAN] eQUANZ »QUAN3 + QUANG s QUANS yELOMHe 
2 UTPR»RPLST 

COMMON/COMOS/ TERR eK sKFLG] eKFLG2 ¢KFLGI eKFLG4 eLFLAGSLINES sNeNDN, 

t NTRY eNUP sNDEGeNPTS : 

EQUIVALENCE (ETAGeY(1))9(ETAPG¥(2)) 9 (He ¥(3?) 

NAMELTS1/CUTPUT /CNS 12 ¥CNST3sCNST4 ¢CNSTS pCNST6¢CNST7 sQUANL eQUAN2s 
SQUANS » QUANG ¢CAY] pCAY2 + CAYR OUT 9 TT 9 CAY4 sCNSTB9EL( ELL EL 2 VEL SQUANS + 
$CUE 0 + CUE) sCUE2 5 CUER s CUE 4 sGAMBAR ¥ CNST10 yEL2@MH sUTPReUINCRSCINITs 
$DISC+UGO 

NPASS=0 

RP=RPART 

REWIND 8 

REWIND 9 

ERROR=0.0 

LINES=0 

X0=0.0 —— 

X1=-10001.0 : 

X2=-10001.0 

X3=Xx0 

DYILST=1,6939— 

NLSW=] 

KFLG3=0 os eh Sante yeas fe 

CNST2=3,0/7GMSSP/RP RHO : ; 

CNS T3=CPG/PRG : 

-ENST43 16072 eO/GAMMA ‘ 

CNS TS=GAMMARRGAS : 7 

CNSTA=10/G/ (WPWG+1 20) 

.CNST7=RGASHCNST6, 

“QUAN1=1.04WPWG 7 ¥ , os 

QUAN2=CPG+WPWG#CPL 

QUAN3=CHG+WPWGSCPS 


CAY1=QUANI /QUAN? 


_ GAY2=(1.0°WPWG* (CNSTS*CAY1# QUANG +1.0))/CNSTS 
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20930 


20970 


71280 


21310 
21320 
21330 
71340 
21360 
21380 
21390 
21400 
21430 
21440 
21450 


21470 
21480 
21490 
2rs500 
21510 
21520 
21530 
21540 
21550 
21560 
71570 


yr UecoL-9SeG 


DL2-2 
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39 CAYR=CAY2/CAY} 21580 
40 UT=DSORT {TSTAG/ (0.S54CAY14CAY2)) ; 
41 TT=TSTAG@0,.5¢CAY) UT #82 21600 
42. CAYS =CAYRUDLOG (Cay2#UT #82) eNLOG (UT) 
43 CNST@=R THO SPEDE XP (CAY4-CAYR®DLOG (TSTAG) ) 
44 ELO=—QUAN24 (TM=TSTAG) /WPWG : 21630 
45 FLI=SQUAN] /WPWG 21640 
46 EL2=QUAN]# (1.0+CNSTS/CPG) /CNSTS/TN 21650 
4] EL4=® CAY4-CAYR#DLOG{TM) *EL2/CAY1# (TM=TSTAG) 
48 QUANS=EL0+HLM-HSM 21670 
4g CUE O=WPWG#OUANS /OUAN36TM 21680 
50 CUE L=QUAN1/QUAN3 21690 
51 CUE2= (1 60+ WPUG# (CNSTS#CUE] #CPS/CPG+1.0)) /CNSTS 23700 
52 CUER=CUE2/CUE] , 21710 
63 CUEG= EL4¢EL2/EL1] #QUANS +CUER®NLOG (CUE O=CUL1 ELI #QUANS) 
54 GAMBAR=QUAN2/ (CPG+GAMMASWPWG#®CPL) GAMMA 21730" 
55 CNST1O=GANRAR/ (GAMBAR~1.0) 21740 
‘6 EL2MH= 1.0/DSOQRT(EL2) ; 
ST UTPR=DSORT (CUE O/ (0, 5#CUE} +CUE2) ) 
58 CALL CONST (0) 23770" 
59 UINCR=0«S#EPS) 21780 
60 DELU2Z=4.0 y 21790 
61 IF (RP#RPLST} 13412013 , 
62 12 UGO=UZERO 21810 
63 DE U=EPS} 21820 
64 EPSU=EPSUZ - 21830 
65 GO TO 18 21840 
66 13 CINIT=UT#IRTH/RC) #928 (CAY2PUTHH2/TSTAG) #@CAYR 21850 
6? DISC=1.0-2,0#CINIT##24CAY2 /TSTAG 21860 
68 IF (DISC) 149146615 21470 
69 14 UuGO=2000.0 : ; 21880 
70 DELU=500.0 21890 
71 GO TO 16 ; 21900 
72 1S UGO=(1.0-DSQRT (DISC) ) “TSTAG/CINIT/CAY2 
73 DELU = 0,1¢UG6. , 21920 
74 16 EPSU=0,0 21930 
75 _ TF CLONPRT.NE.O) WRITE {690UTPUT) : 

c : . 21940 

Cc START VELOCITY CALCULATIONS 21950 

Cc 21960 
16 138 KFLG1=0 = > 21970 
7 19 X=XO . ‘ 21980 
18 UGOOSUGO 21990 
79 ETaG=0.0 a ‘ ‘ . 22006 
80 ETAP=-EPSU . 22010 
al UPO=UGO+ETAP 22020 
a2 IF (UPO) 1903419031908 cs i 27030 
43 1903 ETAP=-UGO+,01 22040 
84 upo=0.0) 27050-, 
‘BS 1906 “CALL CONST (0) ~~~ ~ : 7. ‘ 27060 
46 TAU=9CNST1° (UGO%92+WPWEAUPO8S2) 22070 
B7 TGO=TSTAG*TAU 22080 
ba CNSTO=PSTAG4 ( TGO/TSTAG) S8CNST10 ; : 22090 
ag IF (TGO~TM)191+1914192 22160 


90 191 CALL. CONST (1) 22110 
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95 
96 
97 


93 


100 
101 
102 
103 
104 
165 
106 
107 


308 


109 
110 
Vik 
112 
113 
114 
11§ 
116 
117 
118 
119 
120 
12k 
122 
123 
124 
12S 
126 
127 
128 
129 
130 


131 
132 
133 


FUNCTION FOFRP(RPART) 
— TAUS+CNST)# (UGO482 +WPWGSUPO 442} 

TGO=TSTAGSTAU 

CNST9=PSTAGS (TGO/TSTAG) *#CNST1O 
192 HRHM+CPPR(TGOeTM) 

IF ((TSTAG-TM) #(TGO=TM} ) 19391939194 
193 WRETE (691932) 
1932 _ FORMAT (7SHOMELTING OCCURS IN THE CHAMBER» PROGRAM IS UNABLE TQ HA 

‘INDOLE THIS SITUATION./* ERROR IN FOFRP OF I0NO2 NODULE*) 

CALL EXIT < 
194 |. KFLG2=0 Saat olan ie acl o 2 eee Shoe Ss 

Dx=0x%0 

DX2 = DXO 

EULST=000__ a Aer aA ae : z - 

N=0 

ISTAT = 194 

IF (TOBUG.EQ.0) 60.70.3941 _. . AG 

WRITE (6932465) ISTAT 

WRITE (623060) UGOUPsUGODNeEPSUsEULST otGO sUPDsUG00 > TAU se TG eCNST9eH 

LeDXeDXO eXXoXF sE TAGE TAP HO ; bs 
3245 FORMAT (SXel17HCALLING RKS4 FROMs 115} 
c 


C .. CALL RKSF4 WITH INJTEAL VELOCITY GUESS» DETERMINE WHETHER BLOWUP 
c BLOWOOWN OR EXACT (BLOW=41o=160} 
Cc 


1941 CALLAKSF4 (DERTY sCTBLI 6Y DY eATABL eRTABL WORK» 9DX 939.091 ¢NTRY s TERR) 
IF{TIHBUG,EQ.0} GO TO 1942 
WRITE (603746) BLOW ‘ 
3246 FORMAT (5X,6HOLOW =01F10.5) 
1942 TF (BLOW) 205195424 


195 X=x0 
ETAG=0,0 a ‘ Z = 
ETAP=-EPSU 


UPO=UG0+ETAP 
_. IF (UPO)1953—4195651956 

1953. ETAP=-UG0 

1956 CALL CONST (0) 
FAUS=-CNST 12 (UGO##2+¢WPWEEUPOBa2) 
TGO=TSTAGt TAU 
CNST9=PSTAG* (TGO/TSTAG) *#CNSTIO 

196 “CALL CONST (1) ers 
TAUS=CNST1# (UGO4#2+WPWGHUPO REQ) 
TGORTSTAG+TAU 
CNST9=PSTAG# (T60/TSTAG) ®#CNST10 

197) HeHMeCPP#(TGO-TM) 
TF (¢TSTAG=7M)* (TGO=TM) 1939199952 


c 
c REPLACE OL0 BLOWDOWN WITH NEW SOLUTION 
CL - . SS ee wren . . eer ow - . os 
20 CALL REPLCE(1) : . 5 
IF (KFLO1L}23s22030 
22 KFLGL==] 


c 
c INCREMENT TO TRY FOR A BLOWUP SOLUTION AND TO 19 TO TRY AGAIN 
Cc : 


22120 
22130 
22140 
22150 
22160 
22170 
22160 


22200 
22210 
22220 
22230 
22240 
22250 
22260 


22270 
222A0 
22290 
27300 
22310 
22320 
22330 
22340 
22350 


22360 
22370 
22380 
22390 
22400 
22410 
22420 
22430 
22440 
22450 
22460 
27470 
22480 
22490 
22500 
22510 
22520 
22530 
22540 
22590 
22560 
22570 
22580 


22600 
22610 
22620 
22630 
27640 
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134 
135 
136 
137 
138 


149 
140 
14) 


142 
143 
144 
145 
146 


147 
148 
149 
150 
151 


152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
‘164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 


FUNCTION .FOFRP (RPART) 


23 IF (UGO=50.0} 23102320232 


23. 


UGO = UGOFCUGO 
Go TO 19 


232 UGO = UGO+DELU 


Oana 


GO TO 19 


REPLACE OLO BLOWUP WETH NEW RBLOWUP SOLUTION 


24 CALL REPLCE (2) 


anaAo 


30 
3005 


301 IF (DABS (EPSU“FULST) =20,0) 3015230159302 
3015 IF (DABS ((EPSUMEULST) /UPO)~.1N0} 32193214302 


302 
c 
c 
c 


3025 
303 


304 


305 
306 


IF (KFLG1? 30026027 
KFLGL=) 


REDUCE YNITIAL VELOCTTY AND TRY FOR A BLOWUOWN SOLUTION 


UG0=UGO-DELU 

IF (1360) 29429919 
DELUSO.S¢DELU 
UGOSUGO+DELU 

GO TO 28 


WE NOW HAVE A BLOWUP AND A BLOWDOWN SOLUTION. THIS LOOP (30-32) 
WILE GET INITIAL VELOCITIES WITHIN EPS] OF EACH OTHER 


CONTINUE 
IF ({UGQUP*NGODN=-EPSI)301+3028 5302 


X=XO 


MOVE THE INITIAL VELOCITIES CLOSER AND ESTASLISH NEW CONSTANTS 


UGO=0 .S* (UGDUPsUG0NN) 

UGOO=UGO 

ETAG=O.0 

ETAP=-EPSU 

UP D=UGO+ETAP 

IF {UP0)3025430255303 
ETAP=-iG0+.01 ~ 

uPD=0,01 

CALL CONST (0) 

TAUE==CNST1® (UGO#424WPWGSUPOFH2) 
TGO=TSTAG*TAU 

CNSTS=EPSTAGS (TGO/TSTAG) ##CNST10 
IF (160-7) 304430493905 ~~ ~ 
CALL CONST (1) 
TAUS=CNST1# (UGO# #2+WPWGAUP0SH2 } 
TGO=TSTAG+TAU : 
CNSTO=PSTAG4 (TGO/TSTAG) ##CNST10 
H=HM+CPP# (TGO=TH) 


IF C(TSTAG@TM) @(TGO=TM) ) 19321930306 * 


KFLG2=0 
OX=DX0 
Dke = pxo : 
N=0 

ISTAT = 304 


P7650 


22670 
27680 
22690 
27700 
22710 
22720 


27740 
22750 
227640 
22770 
22780 
22790 
22600 
22610 
22620 
228630 
22840 
22850 
22860 
22870 
22880 
22890 


22920 
22930 
22940 
22950 
22940 
22970 
22980 
22990 
23000 
23010 
23020 
23030 
23040 
23050 
23060 
23070 
23080 
23090 
23100 
23110 
23120 
23130 
23140 
23150 
23160 
24170 
231A0 
23190 


PAGE 
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v~u2c0L-9S¢6 


CL2-2 


INDE X 


176. 
177 
178 


179 
$40 


18} 
182 
183 
144 
18S 
136 
187 


188 
1B9 
190 
191 
132 


193 
194 
195 
196 
197 
198 
199 
200 
701 
ave 
203 
204 
205 
206 


206 
209 
210° 
@ll 
ele 
2i3 
214 
Pils 
216 


FUNCTION FOFRP{RPART} 


IF {[DBUGEQs0) GO TO 307 
WRITE (643245) ISTAT 
WRITE (643060) UGOUPsUGOON+EPSUs€ULST »UGO »UPO yUGO0s TAUs TGOsCNSTO¢H 
LyDX sDKOaXX pXF pETAG pETAP SHO 
3060 FORMAT (6(?X%9 161509) 26 (2K 01 E1559) 2H (2K 9 FE 1569) ) 


CALL RKSFS TO DETERMINE IF NEW SOLUTION E> BLOWUP OR DOWN 
307 CALLRKSF4 (MERTVeCTRL1 oY oDY SATABL sRTAGL oWORK OX eX 039001 NTRY¥eIERR) 


REPLACE APPROPRIATE SOLUTION WITH NEW VALUES AND GO BACK TO 30 
TO DETERMINE WHETHER INITIAL VELOCITIES ARK WITHIN EPS! OF FACH OTH 


Haan aaa 


IF {1DBUG,E0.0) GO TO 308 
WRITE (643246) BLOW 
308 [F (RLOW)31 9195932 
3] CALL REPLCE()) 
60 TO 30 
3e CALL REPLCE (2) 
60 10 30 


c 
3 SELECT EITHER BLOWUP OR DOWN SOLUTIONS 
3 


ca FLAG=Dy (1) 

X=XO 

IF ¢FLAG) 32293229323 
322.  UGO=UGOUP 


GO 10 324 a . 
c 
c RECOMPUTE CONSTANTS 
Cc 


323 UGO=UGODN 

324 wuG00=U6D 
ETAG=0,0 
ETAP=~EPsSU “*, , 
UPO=UGO+ETAP 
IF (UPQ)32409324063241 

3240 ETAP=-UGO+.01 
UPQ=0.01  * 

3241 CALL CONST (0) 
TAUS~CNST1# (UGO# #24 WPWGSUPOFE2 | 
TGO=TSTAG+TAU 
CNST9=PSTAG# (TOO/TSTAGL#ECNSTIO 
1F  (1G0*TM} 3242 + 324253243 

3242 CALL CONST (1) 


TGN=TSTAGSTAU 

CNST9=PSTAG* (TGO/TSTAG) &®CNST10 
3243 HeHM+CPP4 (TGO-TM) Yi 

IF CCTSTAG=TH) © (TG0*TH) 193919993244 
3244 KFLG2=9 

Ox=Dx0 

Ox? = oxo 

N=0 

_ ISTAT=, 324 


telanen e ae pie Sere ae weer ow - 


23200 
23210 
23220 
23230 
23240 
23250 
23260 
23270 
23280 
23290 
23300 
23310 


23320 
23330 


23390 


23370 
23380 
23390 
23400 
23410 
23420 
2.3430 
23440 
23450 
23460 
23470 
23480 
22490 
23500 
23510 
24520 
23530 
239460 
23550 


23560: 


23570 
23580 
23590 
23600 
23610 
23620 
23630 
23640 
23450 
23660 
23670 
23680 
23690 
23700 
23710 
23720 
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pr0Z00t-9528 


pLe-z 


INOE xX 


PL? 
Pia 
ra 


220 


221 
222 
223 
224 
22 
226 
227 
228 
229 
230 
231 
232 


233 
234 
235 
236 


237 
238 


239 
240 
24} 
242 
243 
244 
245 
246 
247 
2448 
249 
250 
251 
2ba 
253 
254 
ass 


FUNCTION FOFRP(RPART} 
TF (INBUG.EN.0} GO TO 3247 
WRITE (643245) ISTAT 
WRITE (693060) UGOUP sUGODNsEPSUsEULST PUGOsUPO sUGO0s TAU s TOGO +CNST99H 
beDXsOX0GXX eg XF pF TAG oF TAP HO 
CALL RKSFS TO DETERMINE WHETHER SOLUTION “STILL ALOWS UP OR POWN 
‘3247 CALLAKSF4 (DERIVeCTRLE + Y sDY sATABL #RTABL pWORK 4X 4DX1 300d 1 sNTRY» TERR) 


IF IT DOES GO YO 33 IF NOT GO BACK TO 18 AND RETRY 


AMON AAO 


IF (I0B8UG.EQ.0) GO TO 32468 
WRITE (623246) BLOW 

3248 IF (BLOW) 32591959927 

325 IF (FLAG) 32943299326 

326 CALL REPLCE(L) | 
60 10 33° 

327 IF (FLAG) 326328329 

328 CALL REPLCE(2) | 


60 YO 33 
329 DELU=DELu2 
_ , DELUZ=06S#NELU2 ; . 
“ * Go To i8 : 
Cc 
c ARE INITIAL LAGS WITHIN & FT/SEC OF EACH UTHER 
c 


33 IF (DABS (EPSU@EULST) =4.01331 93314402 
331 UZEAROSUGG 
4 EPSUZ=EPSU + ee eo es i, es ae 
RPLST=RP 


GETXX WILL FIND AN X SUCH TH4T UGUP AND UGDN ARE WITHIN EPS2 


oan 


CALL GETXK | 
IF TERROR) 40,532260 


RESET INITEALS FOR INTEGRATION TO XX 


WO AO 


32 -X=x0 
UGO=0 +5 * (UGOUP +UGODN) 
UGOd=UGO™” 

ETAG=0,0 
ETAP=-EPSU 

“UPOSUGOsETAP OO mE, se os oe Are 
IF (UP0}332593339333 

3325 ETAP=-ub9 : 

pa aes gx. pater te. oe he 4 lacs 
333, CALL CONST (0) 
TAU==CNSTL#(UGO##2+WPNG#URO##2) 
 “""TGOETSTAG + TAU ae 
CNSTO=PSTAG® (TGO/TSTAG) #8CNST10 
IF (1GO-TH) 33603345235 

334°" CALL’ CONST’ U1" SRA emg > “Seana Meret” Sete 

TALE GHST LA LuShenasURNehUBOEne) 

TGO=TSTAG+TAU 


23730 
23740 
23750 
23760 
23770 
237R0 
23790 
23800 
23810 
23820 


23830 
23840 
23aS0 


23870 
23880 


23900 
233198 
21920 
23930 
23940 
23950 
23960 


23380 
23990 


24030 
24020 
24030 
24040 
24050 
24060 
26070 
240A0 
24090 
24100 
24110 
24120 
24130 
24440 
24150 
24160 
24170 
24180 
24390 
24200 
24210 
24270 
24230 
24240 
24250 
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256 
257 
258 
259 
260 
261 
262 


263 
264 
205 
66 
267 


26a 


269 
270 
2nh 


272, 


213 
274 
275 
276 
277 
278 
219 
280 
261 
282 
233 
284 
285 
286 
2A7 
288 
289 
290 
291 
292 
293 
294 
295 


296s: 2 


FUNCTION FOFRP{RPART) 


CNST9SPSTAG® {TGOSTSTAG) ##CNSTI1O 
335 H=HM+CPPO(TG60~TM) 


IF ((TSTAG=TM) #(TGO=TM)) 19341939336 


336 .KFLG2=0 . wie - 
Dx=0x0 ‘ 
DxX2 = OXO 
 NeQ. 


BOAOAa 


4 — KFLG3=] 
ISTAT = 34 
JF (1OBUGsEGe0} GO TO 34b 
WRITE (693245) ISTAT 


KFLG3 INDICATES INTEGRATION TO A SPECIFIED POINT 


WRITE (663060) UGOUP»UGODNeEPSUPEULST +UGOe UPO UGO0 s TAU es TG0eCNST9 4H 


an) DX OXO XK o AF pETAG RETAP + HO 


CALL RKSF4 AND INTEGRATE TO XX 
CTRL2 WIL}, CAUSE OUTPUT 


“ “IF SIZING RUN “GO Ta 60 7 


AAD BOA 


IF (IOBUG,EN.0) GO TO 342. 
WRITF (653246) BLOW 
342 IF (KFLG4)60+344060 


Oona 


344 IF (BLOW) 345+700,345 
700 CONTINUE 
345 KFLG3=0 
XOSXX 
UGOUP sUGUPx 
UGODN=UGONX 
UPQUP=UPUPX 
UPOUNSUPONX 
HOUSHUPX 
HODSHDNX . weak Gk nde 
IF (UGOUP-UGOON) 800+899+899 
A800 UGOUPSUGDNX 
UGODN=UGUPX ROE. le, Se eee 
UPOUP=UPDNx 
UPOON=UPUPX 
. HOUSHONX — 
HonpsHUPX 7 oD yd. 
899 UNIFF=uGeuP 
TOUFFS1G-TP 
35 CALL’ INIT 
ISTAT = 35 
—OxX2 = OX |, 
TF C1OBUG.EQ.0) 6G TO 351° 7 
WRITE (693245) ISTAT 


STORE VALUES aND RESUME [NTEGRATION AT K=kx 


341 CALLRKSF 4 (MERI VeCTRL2+YsD¥ 2 ATABL PRTABL WORK eX eDXe 3p Oel NTRYSTERR) 


_-WRITE (693060) _UGOUP sUGODN»EPSU sEULST #UG0+UPO »UGO0 + TAUs TG0 + CNST9 eH 


24240 
24270 
24280 
24290 
24300 
24310 
24320 
24330 
24340 
24350 
24360 
24370 


24380 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 
24480 


24490 
24500 
24510 
24520 
24530 
24540 
24550 
246560 
24970 
24580 
24590 
24600 
24610 
24620 
24630 
24640 
24650 
24660- 
24670 
24680 
24690 
24700 
24710 
24720 
24730 
24740 


24750 


26760 
24770 
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297 


2948 
299 
300 
36} 
302 
303 
304 
3u5 
106 
307 
308 
309 
310 
31i 
312 
3)3 
314 
315 

- 316 


317 
ais 
319 


420 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 


333 


FUNCTION FOFRPCRPART) 
Leh X OX aXXo XF vETAGs TAP HO 
INTEGRATE TO BLOWUP sBLOWNNWNs OR MACH GT 120 
352 CALLRKSFS (MERTVeCTRLIsYsDY sATARL eRTABL eHORK 0 X 6 fX 9 3450+] sNTRYs TERR) 


GO TO 38 IF BLOW UP=-<IF BLOWDOWNs REPLACK HLOwNOWN SOLUTION 
AND SET INTTIAL CONDITIONS TO INTERPOLATED VALUFS 


Saad ann: 


IF (INHUG.EN.G) GO TN 352 
WRITE (643246) BLOW 
352 TF (HLOW) 36550038 
36 CALL REPLCF(}) 

362 X=XO 

UGOZUGOUP 

UP O=UP OUP 

HOsHnU 

ETAG=0.0 

ETAPSUP0«UG0 

H=HO 

KFLG2=0 $ ‘ 

OX=Dx0 

0X2 = oxo 

N=0 

ISTAT = 362 

IF (INBUG.EN.0) GO TO 362k 

WRITE (693245) [STAT 

WRITE (643060) UGOUP sUGODN sF PSUs EULST eUGO SUP 0 o(IG00 2 TAUs TG0sCNST9 9H 

1s0XoDOX0 eXXoXF cE TAG SE TAP eG 


INTEGRATE TO BLOWUP OR BLOWNOUN 


oon 


3621 CALLFKSF4 (DERI VsCTRL} s¥ DY sATABL + RTABL s WORK 6X 9X 439091 NTRYs TERR) 
IF {IDBUG.EQ.0) GO TO 3672 
WRITE” (693746) SLOW 


aoOnn 


IF IT STILL SLOWS DOWN INCREASE UNTIL 17 ALOWS UP 


3622 IF (BLOW) 368:50937 
368 IF (UGOUP=100.0) 3699370+370 
369 UINCR = 0.5¢EPS). 
GO TO 373 
370 IF (UGOUP=1000.0) 3710372¢372 
373} UINCR = 06.014UGOUP 
GO 10 373 
372 UINCR = 10.0 
373 UGOUP = UGOUP*UINCR 
UPQUP=UPOURP+UINCR 
HOUSHOU+ 0. 6666674QUEH/OUED® TDIFF /UDIFFeCPG/PRGHUINCR 
CALL REPLCE GLY © : 
GO 10 362 


REPLACF BLOW UP SOLUTION 


OaAga 


37 CALL REPLCE{2) 


247R0 


24790. 


24800 
24810 
24820 
26an40 
24840 
24850 
24860 


24870 
248R0 


26900 
24910 
24920 
24930 
24940 
24950 
24960 
24970 
2469A5 
24990 
25000 
25010 


25020 
25030 
25040 
25050 
25060 
25070 
250AR0 


25090 
25100 
25110 
25170 
25140 
25140 
25150 
25160 
25170 
25180 
25190 
25200 
25210 
252706 
25230 


25250 
25260 
25270 
2520 


PaGF 


e7s 


p-betot-9Sz0 


212-2 


INDE x 


334 
335 
336 
337 
338 
339 
. 549 
Wi 
342 
343 
344 
345 
346 
347 
348 
349 
350 


35) 
382 
343 
354 


355 
356 
357. 
358 
359 
360, 
Bel 
362 
363 
364 
365 
466 
367 
368 
369 
370 
37k 
372 
373 


374 _ 
3/5 
376 

. 3. 


38 


36 
2 


FUNCTION FOFRPIRPART} 


GO TO 40. a 4 ive aa. teh MS yd 
CALL REPCCE{2)— . 
X=X0 


_ UGOZUGODN 2 te 7 idee ah al she 3 


UPO=UPOON ; 
HO=HOO 


wot TAGSO9 0. 2s oo oe at se de sesths eaten Bi aoe 2 


ETAPSUPO-UGO 
H=HO 


op eee PINE LGR Oe no: 2 eS eS. ee Cea eles ages : - 


OX=DX0 

OX2 = 0X0 

ww NEO 

ISTAT = 382. 
IF (IDB8UGeEQ.0? GO TO 383 


» ~~ —» WRITE, (623245) [STAT 


aan 


3 CALLRKSF4(DERIV«CTRL 1 eYe 


"TF (OGODN-100,0) 399440094600 
0 IF (UGDDN-1000.6) 4012402,402 © 


2 UINCR = 10.6 


WRITE (604060) UGOUP + UGOONs EPSUsEUL ST + UG0 sUPO 9LGO09 TAU TGO oCNSTI9 6H 
1sDXePXOeXAeXF oE TAGSETAP CHO 

INTEGRATE To SEE TF IT BLOWS UP OR DOWN 

DY sATABL sRTABL WORK eX oDXe3e0eleNTRVeIERR) 
IF {TOBUG.EN.0) GO TO 3A4 

WRITE (633246) BLOW 

IF _{FLOW) 39,450,398 


IF IY SLOWS UPs DECREASE UNTIL I7 BLOWS DUWN 


UINCR = 0.S#EPS] 
GO TO 410 


UEINCR = 0.01 *UGODN 
GO TO 410 


UGOON=YGUDN-UINCR 


_ UPOQN=UPODN-UINCR 


HOD=HOD-0 . 66666 74QUEH/QUED# TD IFFZUDIFF &CPG/PRGAUINCR 
CALL REPLCE (2) 

GO .TO.382 |. 
CALL REPLCE()) 
CALL INIT 
USTAT = 40 
OxX2 = OX 
IF (ENBYUG.EO.N) GO TO 4000 

WRITE (693245) ISTAT 

“YRITE (603060) UGOUPs UGOONsEPSUsEULST 6UG0 UP 0 6UG004 TAUsTGOsCNST94H 
2eDXeDXO0eXX + XF cE TAG ETAP SHO 


“INTEGRATE TO BLOWUP OR DOWN 


4000 CALLRKSF4 (DERIVsCTRL1 +¥ sDY eA TABL ¢RTAGL s WORK »XDX 2 390e Ll eNTRYs FERR) 


#001 IF (8L0W)41 950042 


~~ JF (IGBUG.EG.O) GO TO 400. 
WRITE (693246) ALOW 


ee eee ed wwe ee oe as 4 semnmue « 


25300 


283270 
25336 
25340 
25350 
25360 
25370 
25380 
25390 
25400 
25410 
25420 


” 25430— 


25440 
25450 
25460 
25470 
25480 
25490 
25500 


25510 
25520 
25530 
25540 
25550 
25560 
25570 
25580 
25590 
254n0 
25610 
29620 
25630 
25640 
25650 


25670 


254690 
25700 
25710 


25770 
25730 
25740 
25750 
25760 
25770 
25780 


25790 


_258n0 
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Sere 


INOE X 


378 
379 
380 


381 


382 
363 
344 
3A5 


aa6 
WT 
388 
aAag 
390 
391 
392 
393 
394 
395 
296 
47 


398 ° 
4399 
400 


40} 
402 


403 
404 
405 
406 
407 
408 
409 
416 
411 
4l2 


413 


ala 
4ls 
416 
417 


“FUNCTION FOFRP(RPART) 
41 CALL REPLCE(1} 
GO TO 43 
42 CALL REPLCE (2) 


IF INITEAL VELOCITIES ARE CLOSE GO TO 44, IF NOT» TRY AGAIN 


1) 


IF (UGOUP-UGQDN~EPS1) 44144040 


GETXX FINDS A VALUE OF X SUCH TRAT UGUP AND UGNOWN ARE-WITHIN EPS2 


FONaAaOFaAdIN 


> 


CALL GETXX 

IF (ERROR) A0,49460 
CALL INIT 

GO 10 34 


- 
¢ 


GET REANY FOR FINAL INTEGRATION 


yonaa 


0 X=x0 : 
ETAG=0.0 
ETAP=UP0-UG0 
H=HO 
b2 XX=XF 
KFLG2=0 
DX = Ox? 
DXO = OX 
N=0 
KFLG3=} 
IF (10BUG.EO.0) GO TO SS 
“"""GRITE (653060) UGOUPZUGODNsEPSLeEULST eUGO »UPOZUGO OS TAUs TGO eCNST9 +H 
boDX oMXOOAX s KF PE TAG oF TAP HHO 
55 CALLRKSF4 (DERIVeCTRIL2 9 ¥sDY eA TABL ORTABL pWORK eX eDK 3909] oNTRYSTERR} 
60 IF {SIGMA}99,602999 
602 WRITE (8 }DUMAXsGMACHeARTIOsUPOUGs TGOTPsVACT cOPTI sRHOGAsRHOPQePGN» 
1wG 
REWIND 8 
WRITE (9 )DUMAXsARTIO*GMNL Us Te VACINL sOPTINUeRRTONL sPRIONL »RTOIVe 
WRTOIO 
REWIND 9 °° 
LINES=0 
IF LLDNPRT~EQ.0} GO 10 72 
62 READ ( 8) XsGMACHsARTIO,UPOUG, TGOTRs VACT se OPTI #RHOGG sRHOPOsPGOs WG 
IF (X@QUMAX)63, 72563 
63 LINES=t INES} 
IF (LINES) 6456468 ae 
be LINES=50 
WRITE (606) 
66 FORMAT (141 e46X5 "LAG CASE*// / 
} : 100H x M age UP/UG oe rivacd) | re 
* g0PT) ROG/RNGS ROP/ROPS F/PSTAG 
68° WRITE (6270) XsGMACHsARTIO’ DPOUG+TGOTEs VACTsOPTIoRHOGO, RHOPO pPGO 64 
1G 


70 FORMAT (1H oF BS eFBe4eFAedy2FGeh o2F Oe SBF I9eSeF RL eS) 


“~ 60 °TO 62° 
72 LINES=0 
74 READ ( G)X+ARTIOGMNL pUsTe VACINL SOP FINL #RRTONL »PRTONL oRTOEVeR TOTO 


25820 


25840 
25850 
P5840 
25870 
25HA0 
258906 
25900 
25910 
25920 
25930 
75940 
25950 
25960 
25970 
259AR0 
25990 
26000 
260)0 
26020 
26030 


26040, 


26050 
26060 
26070 


26090 
26110 
26120 
26130 
26149 
26150 
26160 
26170 
26180 
26190 


26200 
26210 
26220 
26230 


26250 


P6260 
26270 
26280 
26290 
26300 
26310 
76320 
76330 


“26080 °° 
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418 
419 
420 
42) 
422 
423 
424 
425 
426 
427 


428 


429 
430 
431 
432 
433 
434 
435 
. 436 
437 
438 
439 
440 


FUNCTION FOFRPCRPART]I 


IF (XsGT eX eANDsNPASS,EQ,0) GO TQ 1000 


7444 IF (X=-DUMAX) 76+ 99476 


80 


62 | 


84 


se ‘Xo 
LIHT 6X 6H (VAC) + 3X e6HI (OPT? 92X oBHROZ 


76 RYOIOF = RTOIO 


ATOIVE.= ROW. oe - - 
IF CIDNPRT.EG,0) GO To 74 . 
LINES=LINES~} 

If (LINES) 78278,82 _ 


78 LINES=50 


WRITE (6%80) 
FORMAT (2H1 943% 2RTHNO LAG CASEZ/4X» 


Bee GRAAL rex ELHU SAX. 


HX 2 8X 
ROSTG+2X sGHP/PSTG» 


2 
Os 
ZIXsLOHIZIREF (V) I/IREF (O}) 


——YRETE (6984) XeGMNL eARTEOs Us Ts VACINL eOPTINLsRRTONL» PRTONL sRTOIVeRT 


1030 
FORMAT (1H oF BsSeF BeSeF Be deF 95) oF Ise eek Fede 2F9e5seF 1005) 
..60 J0.74, | eheok Dy sds 


99 FOFRP = SIGK=SIGMA 


IF (SIGMA)99229999992 


992 IF (IDNPRT.EQ,03_60 TO 999. 


994 
999 


1009 RTOIVT=RTOLY 


WRITE (63994) RPsFOFRP 

FORMAT (4HORP= IPE1L2e66eS5XelZ2HDFCT (SIGMA) SOPF964} 
RETURN See EAS ate 
NPASS=1 

GO FO 7444 

END 


26340 


26360 


26380 
26390 
26400 
26410 
26420 
26430 
26440 
26450 


26470 


26500 


26520 


PAGE 
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INDE xX FUNCTION FOFRP(RPART) PAGE 279 
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COMMON/TABIC/INCXsINCYsISER.ID+KLO 
COMMON/COMD2/ E TAGs ETAPsHeALPHAsRLOWsCNSTI eCNST2 sCNST3sCNST4y 
CNSTS ¢CNST6sCNST7 «CNSTAsCNST9eCNST10 sCPCGsCPGrCPL sCPP sCPS» 
DELUyDENOM sAMOND sDMONU SONLST » DQMAX pDUMAX OX eDXOSEPSL eEPS29EPSMs 
EPSM2 sEPSNrEPSU ERROR PEULST sFCTRef X] oF X20F X39G 1 GAMMA eGMACHy 
GMSSP 4 GMUG » GMUS + GNLST eGNUM + HO + HON HOU» HONX sHLMy HM s HSM gHS TAGs 
HUPX oP «PRG oPSTAG  QUFO ,QUEH +R eRC eREP +RGAS RHO s PHOONL @RHOST oRPs 
RTHoSIGMA sy ST GX ¢SQRM eo TAUs TAUG s TGe TG0 e THe TPO TSTAG 1 TT eUl0 UG HUGO 
UGO0 sLIGOON + UGOUP 4 UGDNX sUGUP X PUP SUP O s UP ODN CUP OUP sUPDNX sUPUPK eliTs 
WPWG eX eXOe KOO eX] aXAoXBeXF eXMAK EXT eRX 7 
COMMON/COMO3/ ATAHL (9) sOY (3) pHON (S500) sHTBL (500) pHUP (500) sRTARL (3) 
1 UGDN (S00) pUGTEL (500) eUGUP (500) eUPON (500) sUPTAL (500) eUPUP (500} » 
2 WORK (33) +XON(S00) + XFBL¢S500) XUP (S00) 

COMMON/COMOS/ IERR,K eKFLGL KFLG2 sKFLGI,KFLG4 LELAGe LINES ¢NoNDNg 
L NTRYeoNUP +NDEGeNPTS 

X5KY 

TSER=0 6 

WUGUP=TAB 10 (Xs XUP eUGUP 9K eNUP »NERR} : 

IF (NERR=1) 26920924 

WUGUN=TAB 10 (Xo XDNs UGDN» K »NON sNERR) 

IF (NERR|1) 264422524 

F OF X=WUGUP=WUGDN=EPS2 

XY=X 

RETURN . 

WRITE (6426)NERR 9X 

FORMAT (41H INTERPOLATION ERROR (IN ROOTS), NERR=IL/ ' 

1 0 X=*,E15,8/t FRROR FROM FOFX IN I0ONOZ MODULES} 
FOFX=0 

ERROR=) 

RETURN 

END F 
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SUBROUTINE GETAS(Z) 


SUBROUTINE GETAS(Z) 

IMPLICIT REAL#A (A-Hs0-2) 

DIMENSION W{200) sELE (9510) 
COMMON/COMOS/ TERRs Ke KFLG1 eKFLG2eKFLG3 KFLG4eL FLAG LINES Na NDNe 
1 NTRYsNUP pNDEGsNPTS 

COMMON/COMNG/ ADD 1A (9) oRL (200) XL (200) eHDELT sRAMDER sRANRK 9 AR» 
1 RTHRT eXSAVE ’ 
IF (2=XSAVE} 12240512 
XS5AVE=2 3 

S0=0,0 

S1=0.0 

$2=0.0 

$3=0,.0- 

S4=0.0 

$5=0,0 

S6=0.0 

$7=0.0 

DO 28 1514NPTS 

OxsDABs (2=xL{I)) 

IF (DX"R¥DRK) 14414020 
WETIS120£(1.NPANDENXAHA) » 
DO 15 KT=164 

W(TdoWw CT) a2 
KWEXL CPD AWCED 

AXWSXWEXL (T) = 
XXXW=EXXWAXL CT) 

S0=S0+wll} 

St=S1+xl! 

S2=S2+xXXw 

S3=S3+XXXW 
S4=S4+XXXWHXL (1) 
SS=SSe+W( 1) #RE (1) 
S6=S6exXWeRt {1} 
S7T=S7¢XXwWeRL (1) 

CONT INUE 

51=S1/HUELT 
HSQ=HDELT*HDELT 

§2=$2/HS0 

§3=S3/HSQ/HDELT 
$4=554/HS0/HSO 

ELE (1e13=50 

ELE {1+2)=S} : 

ELF (201}=S1t 

ELE (h+3)=S2 

ELE (202)=S2 

ELF (3.1)=S2 

ELE (233)=S3 

ELE (392)2S3 

ELE (3033584 

ELE (194)2S5° “ 

ELE (294) 5SH/H0ELT 

ELF (3e4)=S7/HSQ 

CALL MATS(FLEeAs3 “+1 9MERR} 
IF (MERR) 30934530 

WRITE (693207 __ 
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~~ PQ 36 JEL) 
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40_ 


A(JIEA(UI DOTY 
OIVSDIVOHDELT 
RETURN _ 

END 
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SUBROUTINE GEFXX 


SURROUTINE GETXX 

IMPLICIT REAL#B (AsHeO-Z) 
EXTERNAL FOFX 

DIMENSION SOLN(3) 

COMMON/TAUIC/INCX Ss INGYs ISER* IN eKLO 
COMMON/CONO2/ FE TAGs E TAP s He ALPHA sALOWsCNST1 eCNST2 eCNST 3eCNST4e 
CNSTS+CNST6,5 CNST7 eCNST8 + CNST9sCNST10 eCPCOrCPG CPL sCPPeCPSs 
OFLUsDENOMs DMOND sMMONU e DNLST s OOMAX sOUMAX eDX sDXO9EPSI pFPS2,EPSMy 
EPSM2 yEPSMNeF PSUs ERROR VEULST sFCTR OFX) sFX29F X34GeGAMMA sGMACHy 
GMSSP »GNUG »GMUS + GNLST eGNUMeHO HOD sHOU sHONX sHLHgHM »HSMyHSTAG 
HUP X oP oPRG»PSTAG , QUED sQUEH sR sACe REP «RGAS PRHO»RHOONL »RHOST RP oe 
RTH e SIGMA, STGX + SORMs TAUDTAUG + TGs TGOs The THs TSTAGe TT #U0eUG SGD» 
UG00 sLUGOONs UGOUP sLIGONX + UGUPY «UP. UPO eUPDDN sUPOUP sUPDNX eUPUPX UT. 
WPWGeMaXOe KOM eX] sXA2eX Te XF oXMAX OXT aXX 
COMMON/COMD3/ ATABL (3) 6DY (3) sHON (500) sHTAL (500) eHUP (590) eRTABL (3). 
1 UGDN{S00} eUGTAL (500) sUGUP {500} sUPON (500) PUPTBL(S00) o JPUP{500) 5 
2 WORK (43) + XON (500) eXTBL (500) eXUP (500) 

COMHON/COMOS/ TERReKoKFLGE eKFLG2 eKFLGI eKFLGS sLFLAGOLINES sNeNDNe 
tL NTRYeNUP »NDEG eNPTS 

IF (XUP (NUP) -XDN(NDN}) 20920922 * 

XMAX=XUP (NUP) 

GO TO 24 

AMAX=XON (NDN) 

TF (UGUP (1) =UGON EL) -EPS2) 30026526 

WRITE (6,28) UGUPI1L) .UGDN{(1} sEPS2 

FORMAT (10K} UGUP(1)=F10.4013Hs UGDN{(1}=F10.4935H. THEIR OTF 
IFERENCE EXCEROS EPS2=F7.4/* ERROR FROM GEYXX IN IONOZ MODULE*> 
ERRUR=1 

RETURN 

OMONUS0.0 

1SER=0 

WUGUP=7 AB 10 (XMAX » XUP SUGUP ¢ KK sNUP eNERR) 

IF {NERR#1}46932-46 

OMOND=0-0 

WUGDN=TABID (XMAX » XON eUGDNeK eNONSNERR} 

1F (MERR@1146¢34546 

IF {(WUGUP<WLIGDN~FPS2}40.40935 

XTOL>e01* (XMAX-X0} 

Cal ROOTS4 (XO s XMAX oF OF XoXTOL 100900227 TSOLNeSOLN) 

If (ESOLN~1) 36942936 

WRITE (6s3A)TSOCN 


mL US Tow 


3H FORMAT(24H1 ERROR IN' ROOTS, ISOLN=]1/* ERROR FROM GETXX IN IDNOZ M 


S$ODULE*} 
ERRORE] ~ 
RETURN 
SOLN(1)=XMAX 
XXSSOLN(TY " 7 OO Sa 
DMOND=0+0 
UGDNK=TABLD (XX KD sUGONK gNON sNERR) 
ISeR=] © 
UPDNX=TABLD( = - KX eXMN2UPONsK sNDNyNERR) 


_ HONX =TABENE AX s XDNHDNeKSNONSNERR) 


IF (NERR=-1)946:44546 
DMONUS0 «0 
ISER=O 
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46 FORMAT (30H] 
SDNOZ MODULE*) 
ERRORS) 

.-. RETURN... 
END 


XXeXUP PUPUP eK eNULPeNERR} ° 
XX @XUPsHUP »K sNUP »NERR} 

IF (NERR~ 1} 46450046 

WRITE (4948) NERR 
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UMPLICTT REAL®B (4-H»0=Z) 

COMMON/COMO2/ ETAG+F FAP eH eALPHA s BLOW» CNST1 eCNST29CNST3yCNST4e 
CNSTSsCNST6 eCNST7yCNSTBeCNS TF eCNST1 Os CPCUsCPGrCPL CPP yCPSs 
DELUeNENOMs DMOND sDMONU sNNLST »OQMAX sDUMAX 9DX +DXDeEPS] »FPS2sEPSMy 
EPSM2,EPRSNsEPSUsERRORSEULST oF CTRoFX1 sFK2eF X30Ge GAMMA 4 GMACH « 
GMSSP _GMUG 6 GMUS GNLST e GNUMsHO eHOD sHOUs HDNX ¢ HL. Me HM HSM oe HSTAG ¢ 
HUPXePsPRGsPSTAG eQUEDs QUEH +R eRC sREP s RGASSRHO»s RHOONL +RHOST SRP» 
RTHeSIGMAsSIGX sSQRM se TAUg TAUG a TGs TG0 et TMe TPs TSTAGe TT eUGeUGSUGOe 
UGO0 stIGOONs UGOUP stIGANX @lLIGUPX PUP eUPO eUPDDNSUP OUP sUPDNX 9 UPUPX UT s 
WPWG eX oXOeXOOeK) eXZeKBeXF eXMAK XT a XX 

COMMON/COMN3/ ATABL (4) eDY 43} eHON{SO0) sHTBL (500) sHUP (S09) sRTABL (3) » 
1 UGON(500) »UGTAL (500) eUGUP (500) eUPON (S00) sUPTHL (500) »UPUP (S00! + 

2 WORK (33) +XON(500) sXTBL (S00) »XUP {500} 

COMMON/COMOS/ TERR«KsXFLG1] KFLG2ZoKFLG3eKFLGSG pLFLAGeL INES eNeNDN>, 


Cw OWS A) ow 


1 NTRY eNUP sNDFGeNPTS 
X=X0 
UG0=9e5* CUGOUP *>UGODN) 
UP G=0.5* {UPOUPeUPODN) 
HO20¢5% (HOUSHOD) 
FETAG=0,0 
ETAP=UPO-UG0 
H=HO0 
KFLG220 
QOX=Dx0 
N=0 
RETURN 
END. 
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ComM03 = 4 
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cpp -  _.3¢0 ; 7 
CPS “ 3c0 
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DUMAX - 3C0 

Ox 7 3co0 14 

Oxo a 3co 14 
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EPS? = 3CO 

ERROR ” 3co0 
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&TAP - 3c0 lis 

EULST - 30 
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FX - 3co 
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6NUM | = 3c0,_. 
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H = 3co 12s 

HON - 4co 

HDNX - 3co 

HLM = 3C0 

HM = 3C0 

HSM - 3c0 

HSTAG - 3co 

HTBL - 460 

RUP ~ 4c0 

HUPX - 3co 

Ho - 3co “g= }2 
Hob - 3C0 9 

HOU = 304 9 

IERR - sco 

INIT - Le 

K - 5ca 

KFLGL + sco 

KFLG2 = - sco 135 
KFLG3 - 5c0 

KFLGG + 5CO 

LFLAG = 5¢0 

LINES = = 5co 

N - 5C0 los 
NDEG - Sco 

NPN ~ Sco : 
NPTS - 5c0 

NTRY - sco 

NLIP - 5¢0 

p - 3co 

PRG - 3c0 

PSTAG - 3c0 

QUEN ~ 3¢o0 

QUE - 3co 

R - 3co 

RC - 3co0 

REP - 3c0 

RETURN 16# 

RGAS - 300 

RHO - 3co 

HHOST) = 3c0 

RHOONL = 3co’~ . F 
RP “ 3c0 

RTABL = 4C0 

RTH - 36 a - 
SIGMA - 3ca 

SIGX ” 3co 

SORM - 30 

Tau - 3co 
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TM - 3c0, E 
P - "305 
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wibos SUBROUTINE LKUR (XK eRe RPRIRDHL A phe? 


1 SUHROUTINE LKUP (XX sRRePPRENDALP 5K) , Sn4o 
2 IMPLICIT] HFAL@R (A~H»O-2) 
3 TOMMONAC COL STSTAGK + TEXE TK s CHEN EXEN sPRUP eWTMOLG eS CUG Is 

) PARWT shy SLOP] pSLOP2 eHARC] PRARCA ARF MOL FYE: [DAUGs FONPPRT 


“ DIMENSIGN RP (200) eRPRIM (290) S7H0 
2 EXTER AL RANIUS » ORDX » AREAR 5 S710 
6 DIMENSTON SOLN(2) S740 
? COMMON/COMOS/ TERR aK eKFLGL eKFLG2 sKFLG3 eKFLG4 AL FLAG LINES sNoNONs 

1 NTRYeNUP pNDEGsNPYS 
8 COMMON/COMDG/ ADD¢AL9) RL (200) +XL (200) eHDELT sRAMDER + RMDAK AR 

1 RTHRTeASAVE 
) IF (KK=-2)20%50590 
10 20 NOEG=2 
tL IF (NPYS-NDEG=1)36) 39938 6160 
le 36 WRITE (6,37)NPTSeNDEG 6170 
13 37 FORMAT (1SHONUMBER OF POINTS (+16043H) IS LESS THAN THE ORDER OF A 6180 


EPPROXIMATION (¢16027H) PLUS ONE. CANNOT PROCEED. 7) FRROR FROM 1K 
QuP IN TONO7 MONI t) 


14 CALL EXIT 6200 
1S 38 ENPTS=NPTS 6240 
16 HOEL T=XL (NPTS1 /(ENPTS-1.0) 6250 
17 ENS NDEG 6260 
1a RAMDER= (EN+2,0} SHDELT 6270 
ly AND=061058/RAMDERH&2 #2A0 
20 RMORK=2 « 259#RAMDER 6290 
24 XS4VE=1.E°38 7 : 6300 
22 DO 384 I=ieNPTS 6330 
23 RPRIMCT) SOROX (XL C1) oan0 
a4 "TT RM ARa0, 07 marae A . Zz ‘ ; 6350 
es IF {XMAX=XL(1} ) 3834384 9384 6360 
26 383 XMAK=XL(T} 4370 
27 384  RP(I)=RADIUSIXLEIN) 7 63R0 
24 IF (IONPRT«EQ.0} GO TO 392 

29 WRITE (653R2) 6310 
30 382 = FORMAT (36HICOKPUTED (SMOOTHED! NOZZLE GEOMETRY) 6320 
31 389 WRITE (6+ PA) EXLO1) eb eNPTS) 

32 28 FORMAT(9HOX VALUES/(¢ #,AF 12,59) 

33 "WRITE ¢6) 30) (RPTL) eT} eNPTS) 

34 30 FORMAT(LOHORP VALUES/(t *s8F1205)} 

35 WRITE (6)3892) (RPRIM(E) Lek yNPTS) 

36° °3892 FORMAT (10R PRIMF VALUES'/ (8 +68F12.5)) 

3? 392 D=XL{NPTS) 6530 
3B 46 XTOL=0.00014D 6540 
"35 5°" “CALL ROOTSS (0 e0oXMAKSORDKGXTOL 6009 0002eI1SOLNs SOLN} 3 6550 
40 IF CISOLN~1247e49s47 6560 

41 47 WRITE (6,48) 6570 

“427 7" "5 “FORMAT (1SH=CANNOT FIND THROAT/® ERROR FROM LKUP IN IDNOZ” MODULE *} : 

43 CALL EXIT - 6590 
44 49 XTHSSOLN(L} 6600 
45 TO RRERADIUS ETOP Te : , ~ 6640 
46 RPRERADLUS (XTH) : . : 6620 
4? _, RTHRT=RPR 6630 
48° ° " RDOBLP#xTH ™ TTT Ts ciceeaes ‘ - $640 
49 IF (IDNPRT«E0.0) GO TO 496 


50 WRITE (60495) XTH»RPR 
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5} 
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bd 
54 
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ST 
58 
59 
60 
6} 
62 
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65 
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4Y 
76 
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72 
73 
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7S 
76 
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78 
79 
3d 
61 
He 
83 
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495 FORMAT(IZH-THROAT AT (pF 6e4etHe F042] H)) 
496 CALL ROOTS4 (XTHe XMANAREAR s XTOL +00 200 22s TSOLNeSOLN) 


491 
492 


493 


50 
ma) 


5} 
52 


55 


ce ag 


60 


70 


92 


02 


90 


IF { ISOLN-134915493+49] 
ARENDSAREAR ( XMAX) a 
WRITE (62492) AREND 
FORMAT (S9H=CANNOT FIND EXIT. AREA RATIO AT MAXIMUM INPUT X VALUF 
}IS _F7.3¢* ERROR FROM LKUP_IN TONOZ MODULE!) ays 

CALL EXIT 
XX=SOLN(1} 
XLST=1,£+36_ 
RETURN 

IF (NOZTYP-})502+502<51 

RETURN ¥ 

IF (XX#XLST)52070252 

CALL GETAS(XX} 

FLISEN : S { 
RR=A INDEG4]) 
RPR=FLIA(NDEGS)) 
HeNDEG, . 
FLJU=SFLJ=1.0 
RRERRYOXK+A (JU) 

TE §J1160 460958 P 3 : ‘ 
RPRERPR*XX+FLURA (5) 

J=J~1 

GO To 55 
XLST=XX 
RLSTRRR 
RPLST=RPR 
RETURN 
RR=RLST 
RPRSRPLST 
RE TURN 
CONTINUE 
RETURN 
END 
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SYMBOL Smee embed memsmemseseswsmbotuintetasode REFERENCES abe whee bet be de dm se bas meweasn sn tatnsabad 

20 - 9 1o# 

28 = Siw 328 

34 - 33WR 34% 

36 7 VW 12% ‘ 

47 “ 124R 13% 

38 = i 15% 

46 - We 

47 - 40 ole 

4A = 414R 4a" 

49 - 40 441 

$0 - 9 61# 

51 bad él 63% 

52 - 63 64% 

$5 bad 69% 7% 

5a ~ 71 Ta* 

60 | - rRl TS 

fo - 63 79% 

90 - 9 826 

92 - age 

392 ~ eouR 30% 

383 ” 25 26% 

384 - 22b0 25 27a 

aAa9 = 31% 

392 - 78 3746 

491 - 53 5a 

492 - SSR S6* 

493 - 93 Sas 

49S - SOwn Sis 

496 - 49 Sas 

$02 - 61 62% 

3A9? = 3SWR 368 

A - 6cO 66 67 70 72 

AOD “- ‘ACO 19= 

AR - ACO 

AREAR - SEX S2a6 54 

AREND a 54> ~ SSwR 

ARF al 3¢c0 

CHEN - 3co 

COMO} = 3% 

coMos - T* 

COMDS - Ae 

cuco - 3co pce 

D - ate 38 

ORDK - SEX 23, 39AG 

EN - i= ta ~ 65° 

ENPTS i 155 16 

EXEN = 3co0 

EXIT - 144 43 “57 Fr : 

FLJ ~ 65= 6? , &9= T2 

VETAS - 64% 

HDELT = #CcO L6= 18 . e mn : 

I - e2b0 23 2s 26 27 J1WR 33WR I5SWR 
- 3c0 


Tpbus 


t-U200L-9S20 


60E-2 


Iu DE xX 
IONPRT = aco 
JERR - 7co 
ISOLN - 29AG 
J - 68= 
K ~ 7c0 
KFLG} = 7C0 
KFLG2 - , a 
KFLG3 - 7cO 
KFLGS - 70 
KK - LAG 
LFLAG - 7co 
LINES - 7€0 
LKUP ~ 1* 
N * 7c0 
NDEG - 7€0 
NON - 7c0 
NOZTYP = 3co 
NPTS - 7co 
NTRY ~ 7co 
NUP - 7c0 
PaRWT - 3c0 
PROP - 3c0 
RADIUS ~ SFX 
RAMNER = BCcO 
RARC] - 3c0 
Rakc2 - 3co 
RCH -~ aco 
RkDBLP' = 1AG 
RETURN = 604% 
RL - aco 
RLST = 76= 
RMDAK = Bcao 
ROOTS4 - 394 
RP - 4b] 
RPLST' = TT= 
RPR - 146 
RPRIM - 4DI 
RR bed 1AG 
RTHRT - BCO 
SLOP] ~ 3ca 
SLUP2Z - 3c0 
SOLN . 4p! 
TEXITK ~ 3co0 
TSTAGK = 3C0 
WIMALG = 3c0 
XL - &CcO 
ALST = 49= 
XMAX - 24s 
XSAVE - Bca 
XTH ~ 44> 
XTOL = 38= 
xX ~ 1AG 
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16 
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SUBROUTINE MACHR(RINTP RST eGo THACH»GMACH) 
IMPLIC!ET RFAL#8 (A-HeO-2) 

GAMM=sG-1.0 

GAMA=GAMH/2.0 

GAMB=G+1.0 

GAMBASGAMB/2.6 

GAME X=GAMBR/GAMM 

XM=GMACH 

ICTR=0 i 
GEX=GAME X~1.0 

AP=(HST/RINTP) #42 

IF (AP.GT.0.97)G60 TO 380 

AHDC=2, 08 AP AGAMA ?GAME X/G6AMABR 
BLIP={1s0*GAMA*XM® #2) /GAMBH 

XNASKM= (CXM=APEBLIPRHGAME X) 4 (Le O-ABDCOXMEHL [PHUGE X) } 
TEST=DABS (XNAWXM) 7 
IF CTFST=,00391309130.120 

XM=XNA 

ICTR=ICTR+} 

IF (1CTR=25)110+1105380 

IF {XNA LOT aba De OReXNACLT.020)G0 TO 380 

TMACH=XNA 

RETURN 

TMACH=GHACH 

RETURN 

END 
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26540 
26550 
26560 
26570 
26580 
26590 
26600 
26610 
26620 
26630 
26640 
26650 
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26700 
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26750 
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INOUE xX 
SYMHOL Dal Ral el al al celta el ela lanl dees Rel heed ah deat taal lal eat each oath dad REFERENCES Re wombs dew betud wb embers detutusutetetud 
316 - 14 20 f 
120 - 17 1Be 
130 = (1? 21% 
380 = 12 20 at 24% 
ABDC ee ]3= 5 
AP i. l= 12 3 15 
BLIP = 14= 1S 
DABS - ¥6. # M be. 3 . 
G - JAG 4 5 
GAMA - 4= 13 14 
GAMB = 5= 4 ff. 
“GAMAB = 6= 7 13 14 
GAMEX Cd q= bo 13 1s 
UANM - 3+ 4 7 
GEX - 10= 15 
GMACH = LAG 8 24 
ICIP - 92 }9> 20 ' 
MACHR - 1# 
RETURN - 23% 2S . 1 
RINTP = WG, jl 
RST - 1AG 11 
TEST “ 16= 17 
TMACH * WAG: 22s 24= si - : - 
XM - gs 14 15 16 18s 
XNA - 155 16 18 2) 22 
Pe eR ERE ERE eb E mbt tm be bebe be babe bed toto te tm totter te tet etetatetae tet detetatetntnrebeoutaetate 
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SURROUTINE MATS (AeXeNeMeMATERR? 
IMPLICET RFAL#A (AH«0=Z) 

DIMENSIUN A(9o10) 0X(991) 

MATERR=0 

MM=N eM 

00 15 TSéesN : 
IT=I-1 

00 15 J=lsII 

TF (A(T 9591901599 

IF (DABS CA (Je J) =DAAS ACE J) 9312510610 
RaAlT se SISA{ Ie J) ; 
GO TO 130 

RaAl( de D/A (16d) 

Da 12 K=)eMM 

BaA(Jek) 

Aldrt)sACT eK) 

A] eK) eb 

dJaJek 

NO 14 K=JJe4M 

ACT eK} CACTI K} RHA (JeK) - 
CONTINUE 

EF (DABS (A (N9NDD@1,0N=10) 16elGet? 
MATERR=)] 

RETURN 

NN 28Is1 om 

KK=N+ J 

AX (Ne DSA (Ne KK) ZA (NON) 

0O28I=2eN - 
JJ=N=Te} i 

B=0-0 

Il=N-Te2 

BO 25 K=T1,N 

B=R ACIS eK YX UK ed} 

IF (OABS (A [ tJe JJ) } 1200910) 16916025 

Xf de ID= (ACSI eKK) MAD ZA (Sed) 

RETURN 

END 
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88460 
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8930 
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SUBROUTINE PRECAL 
IMPLICIT RFAL#B (A=HsO0=2) 

COMMON/COMO2/ FTAG EAP sHe ALPHA sALOWsCNSTLOCNSTAeCNSTI,CNST4s 
CNSTSeCNST6_¢CNST7yCNSTB+CNS [9 e¢CNSTI10sCPCLeCPGsCPLeCPP CPS» 
DELUsDENOMs OMOND sOMONU DNL ST eOQMAX 1 DUMAX PDX eDXOeEPS] eFPS2;EPSMs 
EPSM2 sEPSN+EPSUSERRORCEVULSTaFCTReF XL oF X29F X3 9Ge GAMMA ¢GMACHe 
GMSSP 9GMUG »GMUS ¢GNL ST + GNUM HO sHOD FHOUsHDNX sHLM pH pHSMeHSTAG? 
HUPX eP ¢PRG »PSTAG sQUED »QUEH +R eRC eREP +RGAS RHO »RHOONL sRHOST eRP s 
RTHsSTGMA+sSIGX +SORMs TAU s TAUG TG eTGOs TMs TP eTSTAGe TT 2U0 sUGelIGOe 
UG00,UGODN,UGOUR sUGDNX pUGUP Xp UP sUP 0 + UP ODN eUP OUP» UPDNX »UPUPX UT, 
WPWGeXeXO o XO0eXL XA eXBoXF aXMAXK oXT XX 

COMHMON/COMO3/ ATABL (3) eDY (3) eHON(S500) eHTBL (500) sHUP (S00) »RTABL (3) 
1 UGON (500) sUGTAHL (500) sUGUP (500) sUPDN (S500) *UPTAL (500) sUPUP (500) ¢ 

2 WORK (33) +XON(500) ¢XTBL (S00) eXUP{900) 

ALPHA=0 26 
ATABL(])=0,00} 
CPL2A503.3 
CPS=8410,7 
DAMAKR7 eSE+7 
DUMAX=300000,0 
0xX020.001 
EPS}=0,1 
EPSM=0,008 
EPSU=0,0 
Ga32.174 
GMUS=0,00005 
GMSSP=249,.7 
HLM=4 9 7944N07 
HSM=3,S5978007 
PSTAG=}000,0 
RTABL {1)=0.000001 
SIGMA=000 

THES 16700 
RETURN 

END 
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SYMBOL twee meme sng ewemendatmtetetetesetadatwia REFERESCES eee eee eee ee err 
ALPHA = 3c0 Se 
ATARL ~ 4CO 6= 
BLOW - 3c0 , 
CNSTI - 3co 

CNST}O 3co 

CNST2 - 3c0 

CN5T3 - 3CO 

CNST4 - 3coO 

CNSTS - 3CO 

CNST6 - 3co 

CNST7 co 3caQ 

CNOTH - 3cO 

CNST9 - 3CO 

cConn2 - 34 

COMN3 - Ge 

CPCG - aco 

CPG - 3co0 

CPL = 3ca T= 
cee ~ 3co0 

cps = 3cO §= 
DELU ~ 3c0 

DENOM - aco 

DHOND - 3ca 

OMONU - 3CO0 

DNLST - 3c0 

DQMAX om 3co 9a 
DUMAX - 3co 10= 
DX - 3c0O 

DxO - 3caq lle| 
OY - 4CO 

EPSM - 3co 132 
EpSm2 - 3ca 

EPSN = 3co0 

EPSU - 3ca l4s . 
EPS) = 3ca las 
Eps? = 3co0 

ERROR - 3ca 

ETAG - 3ca 

ETAP - 3¢co 

EULST - 3co 

FCTR - 3¢0 

FX. - 3c0 * 

Fx2 bed 3co 

FX3 be 3c0 

6 - 3ca 15= 
GAMMA - 3ca 

6MACH - 3ca 

GMssP =’ 3CQ 7s 
GMUG - 3c0 

GMUS - 3c0 1l6= 
GNLST - " 3c0° a 
ONUM - 3c0 

H = 3coa 


ve 


b-02061-952¢ 


See~2 


FNUE x 

HON - 4CO 
HDNX ~ 3co0 
HELM - 3cO 
HM - 3co 
HSM 7 3ca 
HSTAG - 3co0 
HTB - 400. 
HUP - 400 
HUPX - 3c0 
Ho ~ 3c0 
HOD - 3c0 
HaU - aco 
P - 3c0 
PRECAL - be 
PRG - . 3co 
PSTAG = 3co 
QUED - 3c0 
QUEH - 3co 
R = 3ca 
RC - 3€0 
REP - 3c0 
RETURN = eae 
RGAS - 3c0 
RHO - aco 
RHOST = 3co 
RHOONL «= 3c0 
ke = 3c 
RTARL-.  - 40 
RTH - 3cO 
SI®MA - 3c0 
SIGx - 3C0 
SQRM - 3co 
Tau - 300 
TAUG - 3C0 
56 = 3c0 
T60 - 3co 
™H - aco 
TP - aco 
TSTAG - 3co 
TT = 3c0 
UG - 3co 
UGDN - 4CO 
UGONX - 3co 
UGTBL > 4cO0 
uguP - 4c0 
UGUPX = 3c0 
uGO = 3C60 
UGODN = aco 
UGOUP = 3C0 | 
uGDO - 3co 
UP - 3ca 
UPON - 4CO 
UPDNX ~ 3c0 
UPTRL = 4C0 
upup_ = 4cO . 
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‘ 


UPUPX ~ 3C0 
UPO - 3C0 
UP ODN = 3C0 
UP OUP a 3co0 
UT - 3co0 
uo id 3c0 
WORK ic 4C0 7 
WPWG - aco 
x - 3C0 
xON - 400 
Xt = aco 
AMAR - 3¢0 
AT ra aco 
ATBL = 4CO . 
xUP © 4CO 
AR ie 3ca 
xo = aco 
xno = 3c0 
x4 - 3coO 
“22 - 3ca 
x3 i 30 
Ce Sel Meal Tad Reels Beal Seed Mad Bittle Raed Deel heath tel Dl ead ee Ae dieed EF EER Rhee hom EE ehh FOE EES we MOREE EMEMENE MENS 
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1 _ FUNCTION RADJUS(Z) A340 
2 IMPLICIT REAL®8 (A-He0-Z) 
3 COMMON/GOMNS/ IFRReKeKFLG] eKFLG2 es KFLGSeKFLG4 @LFLAG sLINES Ne NDNe 
1 NTRY eNUP eNDEG»NPTS 
4 COMMON/COMNG/ ADD eA (9) sRL (200) a Xt (200) sHDELT sRAMDER + RMDRK yARy 
1 RTHRT»XSAVE 
5 CALL GETAS(2) A4OO 
6 RADIUS=A (NDEG* 1) AG10 
7 J=NDEG R420 
8 .. 00 20 TehsNOEG | aan 8430 
9 RADIUSERADIUS*7 4A CJ) A440 
10 20 Jale1 A450 
1} RETURN | 7 : 8460 
12 END B470 
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Ie pe x 


SYMHOL 


20 

A 

AGD 
AR 
comos 
COM0EG 
GETAS 
HOFLT 
I 
TERR 
J 

h 
KFLGY 
KFLG2 
KFLG3 
KFLG4 
LFLAG 
LINES 
N 
NDEG 
NDN 
NPTS 
NTRY 
NUP 
RADIUS 
RAMNER 
RETURN 
RL 
KMDRK 
RTHRT 
aL 
XSAVE 
Z 


@¢eretrneetetaev pee td tae ee tras tc seesceune 


&D0 
4€0 
46c0 
4co 
34 
4 
St 
4CO 
ADO 
3C0 
T= 
3coO 
3c0 
3co 
3c0 
3co 
3c0 
3co 
3c0 
3C¢0 
3Cc0 
3c0 
3¢0 
3C0 
1¢ 
4co 
114 
4CO 
4C0 
4CO 
4€0 
4¢0 


FUNCTION RADIUS {Z) 
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104 
6 9 
3 10= 
& 7 “B00 
6= 9= 
SAG 9 
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1 _ SUBROUTINE REPLCE CL) 
2 IMPLICHT REAL®& (AWHyO~Z) 


L=]+ REPLON é % ee : 
LaPs REPLUP ’ 


Oana 


3 _ COMMON/COMO2/ ETAGSETAP +H» ALPHA sBLOW sy CNST! eCNST2 ¢CNST3,CNST4» 
CNST5 aCNST6 sCNST7 eCNSTS CNST9+CNST10 sCPCOeCPGrCPL CPP yCPS+ * 

DE LUsDENOMs DMOND »DMONU eDNLST sDQMAX sDUMAX OX #DXOVEPSI + FPS2 fF PSMs 

EPSH2 FEPSNe FPSUsERROR gEULST gFCTR oF X11 FX29F X3 9G GAMA pGMACH> 

GMSSP «GMUG + GMUS «GNU ST oGNUM ¢HO sHODeHOUyHONK +HLM pH pHSM »HSTAGs 

HUPX eP sPRG + PSTAG e QUEDsQUEH sR PRC» REP 1RGAS > RHO RHOONL +RHOST RP y 

RTHeS1GMA,SIGX»SORMsTAUsTAUG 9 TGs TGO1TMeTPoTSTAG TT oU0sUGrGOs 

UG 00 GOON » UGOUP s LIGDNX « UGUPX pUP s UPC eUPODN + UP OUP sUPDNX »UPUPX UT» 

WPWG 6 X 9X0 eXO0eXE 9X2 aXBeXF eXMAX A XT OXK 

4 COMMON/COMO3/ ATABL(3) pO (3) eHDN (500) sHTBL (S00) sHUP (500) eRTARL (3) 
1 UGON (500) ,UGTRL (500) »GUP (500) sUPNN (500) +UPTBL (S00) sUPUP (500) » 


2 WORK (33) eXDN (500) »X TAL (500), XUP (500) 


ewe ne wwe 


5 COMMON/COMOS/ TERR«KsKFLG)] eKFLG2 sKFLG3 gKFLG4 gL FLAG eL INES oN sNON 
L NTRYsNUP »NDEGsNPTS 

6 GO YO {100305 el 

7 10 UGODN=u60 7 * 

Py UP QDM=uPO : 3660 
q HOoD=HO 3670 
10 NONSN G ; ae, 36A0 
ls. 00 20 7=1sNDN 3690 
12 XONCE}SATHL OT) 3700 : 
i3 ~ UGDN(1) =UGTBEL ET) a =e . 2 gt . 3710 
14 UPDN(1T) =UPTBL EI) 3720 
15 20 HDN(T) =HTBL CT) 3730 
16 RETURN ; 3740 
17 30 UGOUP=UG0 : 

18 uPOUP=UPO . 4240 
19 HOU=HO : 4250. 
20 NUP=N 4240 
21 DO 40 1=)+NUP 
22 XUP (I) =XTHL OE) 42n0 
23 UGUP (1) #UGTBL (I) P 4290 
24 UPUP <I) sUPTAL (1) 4300 
2s 40 HUP(E) = HTBL(T) : ; . 

26 RETURN 4320 


2? END 4330 
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INOE xX 


SYMROL, 


10 

20 

30 

40 
ALPHA 
ATABL 
BLOW 
CNSTI 
CNST1O 
CNST2 
CNST3 
CNST4 
CNSTS 
CNST6 
CNST7 
CNSTB 
CNST9 
CoMo2 
COMD3 
camas 
CPCG 
CPS 
CPL 
cpP 
cps 
DELU 
DENOM 
DMOND 
OMONU 
UNLST 
DOMAX 
DUMAX 
Dx 
Oxo 
OY 
EPSM 
-LPSMH2 
£PSN 
&PSU 
EPS! 
EPS2 
ERROR 
ETAG 
ETAP 
EuLst 
FCTR 
XL 
Fx2 
Fx3 


& 

GAMMA 
GMACH 
GMSSP 


a ee ee 


6 
1100 
6 


2100 


’ 


3co 
4C€0 
3co 
3co 
3ca 
360 
3c0 
3co 
3ca 
3co 
3c0 
3co 
3co 
3H 
ae 
oh 
3co 
3co 
3¢0 
30 
3co 
3c0 
3c0 
3C0 
3ca 
300 
3c0 
3ca 
3co 
3co 
4C0 
3c0 
3C0 
3c0 
3c0 
3co 
3c0 
3c0 
3¢c0 
3C0 
3c0 
3c0 
3co 
3C0 
3c0 
3c0 


300° 


3co 
3c0 


Oe ee Te en er er ee ae eee ee ee ee eee ee 


7? 
198 
175 
ase 
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PORTE EMH MEK FEE MOSHER EMHHMEM EMG EHD dSDE HOWE RH 


-02001-S5¢e0 


LEe~e 


10 


20= 


26% 


INOEX 
GHUG - 3C0 
GMUS - 3co 
GNLST - 3co 
GNUM - 3¢0 | 
H - 3CcO 
HON ~ 4CO 
HONX - 3co 
HLM - 3co 
HM - 3co 
HSM = 300... 
HSTAG - 3C0 
HTBL - 4 CD 
HUP - 4co 
HUPX - 3¢c0 
HO ~ 3€0 
Hop bed 3co 
HOU - 3c0 
I - 1100 
IEXR ~ 5C0 
4 “ §cO 
KFLG1 = sco 
KFLG2 ~ $co_ 
KELG3 - Sco 
KFLO4 - sco 
Li “ LAG 
LFLAG ~ 5c0 
LENES - sco 
N = §cO 
NDEG ~ sco 
NON - 5co 
NPTS - 5co 
NTRY - Sco 
NUP - §cO 
Pp ~ 3c0 
PRG = 3co 
PSTAG ~ 3c0 
QUED od 3c. 
QUEH - 3CO 
R - 300 
RC ~ 3co0 
REP - 3ca 
REPLCE ~ 1* 
RETURN = 16* 
RGAS - 360 
RHO - 3co 
RHOST - 3cO0 | 
RHOONL = 3co 
RP “ 3ca 
RTARL - 4co 
RTH - 3c0 
SIGMA - 3co0 
SIGxX ~ 3C0 
SQRM “ 3¢0 
TAU ~ 3c0 
TAUG - 3co0 
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25 


19 


13 14 15 2100 2e 23 24 25 


20 
1100 


21no 
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$-02001-962q 


eee~2 


T6 
TGu 
1M 

TP 
TSTAG 
TT 

UG 
UGDN 
UGDNX 
UGTAL 
UGUP 
UGUPX 
UG60 
UGODN 
UGOUP 


UGON 


up 
UPDN 
UPDNX 
UPTAL 
uPUP 
UPUPX 
UPD 
UPONN 
uPoUP 
ut 

Ud 
WORK 
wPWG 
x 
DN | 


INDE x 


3co 
3c0 
3co0 
3€0 
3c0 
3C0 
3C0 
460 
3c0 
4cO 
4co 
3co 
3Co 
3cO 
3co 
3ca 
3co 
4cO 
3co 
4c0 
4co 
3co 
3co 
3Ccoa 


3co 


3cO0 
3CO0 
4C0 
3c0 
3Ca 
4CO 
3ca 
3ca 
3ca 
4ca 
4CQ 
3c0 
3C0 
3co0 
3c0 
3ca0 
3c0 


13s 


13 
23= 


L?= 


24s 


1B= 


l2= 


12 
22= 


23 


17 


24 


18 


22 
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2 IERR = «1 


106 
1000 
3 

10 


bl 


120 
121 
110 


122 
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SUBROUTINE RKSF4(DERIVeCNIRL e/¥/9/DY/ 9 /ATABS a /RTABS of W/ 97 K7 9 /DKL 8 


SUBROUTINE BRBE SURREY SONI Bbind YAg/ RYH IY BEAD LRA SO PIORE DET NE 
$ Ne [FVD es ERKPe/NTRY/+/IERRZ) 
IMPLICIT REALS&8 (A-H,O0~2) 
COMMON /COX4/ Dx4 
COMHON /BOA/ KFLG 
COMMONS CPRNT/CHANGF + XTHsFR1O sKPRNT 
QIMENSTON ¥(9)+D¥ 63) eATAB(3) PRTAB(3) 9H (33) 
DIMENSION SRTAB(3} 
DATA ICNT/2/ 


. DATA CON2/3.E<07/ 2 TF LAG/O/ 


DATA NNSN1 pN2eN3eNS 9NS/30609812915918/ 
bo 991 I=},3 

SRTAR IT) =RTAB(T) : . 
INDEX=0 

XSAV=X 

xST = X 

DXST = DX 

TERR=0 

OXTH=0,0 

INTR = 0 

IF (OXST} 35293 


KFLG = 1 

OO 1000 TsheF 
RTAB(1I) =SRTABIT} 
RETUAN 

CONTINUE 

NTRY=] 


C CLEAR WORK AREA 


00 11 [F2e21 


Wi} = 0. 
wei) = Dx 
CALL DERIV 
KSTAT = ]} 


1F (KPRNT.LT.99} GO TO 110 

WRITE (66120) KSTAT 

FORMAT (12H CALL CNTRL+1T4) 

WRITE (651221) DX eDXSTs FEMP1 + TEMP 9X4 pOX2 +E OFLAG ¥ eDY sATABGRTAH OW 
FORMAT (5(2X%e]E15.9}} 

CONTINUE 

IF «KPRNT.GT.99) WRETE (65 122}NTRY oFLAGeINIR, IBKP 

CALL CNTRLINTRY) 

IF (KPRNT»GT.99) WRITE (G0 122) NTRY CFLAGS INIRs IBKP 

FORMAT (7H NTRY=slI3s2Xe6HFLAG seh FGe2eGXe6HINTR =e) 1392Xs6HT RKP 
259113) 

TF ONTRY=2)_ 139100012 

TERR=2 
KFLG = } 
RETURN | 
CONTINUE 
W(2d=X 

00 16 T=isNN 
K=14N2 
WELD EYED 
WiK) eOY (1) 


18280 
183n0 


14320 
18340 


18350 


18410 


18450 
18460 
1A470 


18510 
18530 
18540 
iassa 


18580 


18700 
1A720 


18740 
18750 
18760 
18776 
18780 
18790 
1aAand 


38440 
18aS50 
1ABAD 
1R870 
188R0 
38890 
318900 
18910 
1a920 
18930 


18970 
19070 
19080 
19090 
19100 
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InN E xX 


o3 
54 
55 
56 
5? 
58 
5? 
60 
61 
b2 
63 
64 
65 
66 
o7 
68 
oY 
(ai) 
71 
72 
73 
74 
Th 
?é 
77 
78 
9 
ao 
al 
#2 
83 
84 
as 
86 
67 
88 
&9 
90 
YL 
92 
93 
Ne 
be) 
96 
97 
98 
99 
$00 
10) 
102 
103 
104 


1uS 
106 


4 
V7 


160 


VS 
1A 


19 


zn 
2) 


ea 
36 


31 
313 
314 
3S 


~# 
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SUBROUTINE RKSF4(DFREIVeCNTRL 9/Y/e/DY/ op SATARS a /RTAB/ 9 ZW 9 7X Oo /DK/ 


CONTINUE 
OXGSNX/4. 

DX2sDK/25 

NTRY=1 

DO 170 I=1.NN 

L=Tens 

Wik) OY (1) #DX4 

VCP) =WOTe3) WEL) 

CONT TNUE 

XBX+D XG 

CALL DEREV 

D0 175 [=1sNN 

YET) SDX48D¥(T} © WIT +3) 
DO 19 T=1eNN 

JST 9NS 

W(S)= OX2"DYCI) « Wid 


-CONT ENUE 


CALL DFRIV 

DO 20 E=leNN 

K=T+NS 

TEMP = OX24DY(T) 
YCLJ=TFMP + WtT+3) 
WiK) = TEMP « WK} 
CONT ENUE 

GO TO 30 

DO 2? J=leNN 

J=ELeNS 

W(J)= DKX#DYIT) » WE) 
CONTINUE 

X = XePX4 

CALL DERIV 

OO 31 T=leNN 

JETens 

WiJ) = (OXG4DYCT) © WiUI)736 
YI) 3 WES) # wtTe3) ” 
CONTINUE 

CALL DERIV 

IF CICNT-1) 33¢93,315 
W(3)5W(2) 

DO 32 f=1eNN 

J=IeN1 

K=T+N2 

Lelen3 

MstoNnd 

NM=1+N5 ” 
WC) =WOTs3) 

WIL} =WtK) ~ 

WOM) SWCMMD 

CONTINUE 

ICNT = ICNY=} 

60 TO 15 

ICNT = 2 


E=0. 
DO 38 T=)eNN 


19110 
19120 
$9130 
19140 
19300 
19310 
19320 
19330 
19340 
19350 
19360 
19370 
19380 
19490 
19410 
19420 
19430 
19440 
19450 
19460 
19470 
19480 
19490 
19500 
19510 
19520 
19530 
19540 
19550 
19560 
19570 
19580 
19590 
19600 
19610 
19620 
19640 
19650 
19660 
19670 
19680 
19690 
19700 
19710 
19720 
19730 


19740 . 


19750 
19740 


19770 . 


197A6 
19790 
19830 
19840 
19850 
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b-02CGl-9¢z0 


SEE-Z 


INOF xX 


107 
108 
109 
1)0 
1h} 
tle 
113 
114 
115 
136 
ll? 
118 
119 
120 
12] 
122 


123 
324 
125 
126 
127 
128 
129 


130 
131 
132 
133 
134 
145 
136 
137 
13a 
139 
140 
141 
142 
143 
t44 
145 
146 
147 
148 
L149 
150. 
191 
152 
153 
154 
iss 
156 
157 
198 
159 
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37 
38 


SUBROUTENF RKSF4&(DERTVeCNTRL e /¥/¢/DY/ sp SATABS e /RTABS SWS gp LX 9 /DX/ 5 


VET eNS 

K=l4¢Nng ’ 

M=]4¢N2 

L3E+ng 

TEMPL = DARSCRTABLTD8Y(1)) + DABS(ATAB(I)? 

IF(TEMP1} 68+68936 

TEMP = W(K) o WOE) © COCGSAWIM) © WELD © OYLT))/60)40X) 
TEMP = DASS{ TEMP) /TEMP1 
IF (CTEMPWE) 38038137 
EsTEMP edt Ae 4a 
INDEX=1 

CONTINUE 


.WULd = DX 


IF (EeGTele} GO TO 54 
IF (EeGTe.75) GO TO 49 
IF (EsGE+.075) GO TO 40 . 


C INCREASE 0X AND CONTINUE 


40 
405 


KFLG = 1 

NX = DX#FRIO 
CONTINUE 

AO 41 I=LeNN 
KE, +N} 
Z12W(K) 
Zas¥(T) 


c Test FOR CHANGE IN HIGH ORDER Y VALUES 


41 


42 


43 
44 


440. 


46 


47 


4a 


IF (2t6E0,22) GO TO 41 
IFLAG = } 

CONTINUE 

2} = Wt) 

z2 = X 

IF ¢23,€0.22) GO TO 42 
IFLAG=] 

IF (YFLAG.EQ.0) GO TO 2 
IFLAG = 0 

W(N4S+]) = INDEX 

WING+2)=6 

KSTAT = 44, 

IF (KPRNT,LT.99) GO TO 43 
WRITE (65120) KSTAT 
WRITE (69121) 0X eOXSTs TEMP) o TEMP 0X4 sDX2 Es FLAG VeDY sATARSRTAB OW 
CONTINUE 

CONTINUE 

IF (KPRNT.GT.99) WRITE (6e122.NTRYsFLAGs INTRe IBKP 

CALL CNTRLINTRYD 

IF (CKPRNTeGT.99) WRITE (661 22)NTRY eFLAGS INTRe IBKP 

IF (NTRY-3) 4545201 - 

IF(NTRY@1) 136139100 

IFCINTReNEO) GO TO 47 

DXTM=Dx 

INTR = 1 

Ox = 0,0 

GO TQ S2 

IF(NTRY.EG.4) GO TO } 

IF (OXTMNE oO) DX=MXTM 

GQ T0440 | 
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19910 
19920 
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19970 
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20000 
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20026 
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20060 
20090 
20100 
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29240 
20150 
20160 
20170 
20180 
201890 
20200 
20210 
20230 
20240 
29250 


20280 
20290 
29300 
20310 
20320 
20340 
20350 
20360 


20380 


20410 
29420 


20450 
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C DECREASE DX AND CONTINUE 


ad 


DX = DX/FRIO 
GO TO 40 


C REPEAT LAST STEP 


52 


$3 
54 


60 


610 
61 
62 
63 
65 


64 


1002 


xX = WO3) 

Wi2) = Xx 

DO 53 I51sNN 

J=IeNl 

KaleN2 

L=T#Nje 

Y(r) = Wt) 

W(T#3) = {I} 

DY¢I) = wil) 

WK) = BY(T) 

CONTINUE 

Go TO 17 

— = £410, 

px = DX/FRIO' 

IF(EeL Tole) GO TO S2 

GO TO 54 

TEMP) = XST + OXST 

TEMP = DABS ({TEMPL=X)/x) 

TF (TEMP .GT.CON2} GO TO 15 

KSTAT = 61 

IF (KPRNTLYe99) GO TO 6)0 

WRITE (6,220) KSTAT 

WRITE (Os1Z21)0X,0XSTe Tew Ls TEMDsDXS DADE SEL AG HVA BYSATABDATHANS 
CONTINUE 

IF (KPRNT.GT.99) WRITE(6+L22)NTRY oFLAGeINIRe IBKP 
CALL CNTRLINTRY) 

TF «KPRNT.2G67T.99) PULTE AOS DESIR SE Le arene 
IF(NTRY93) 6295241 

IF(NTHY*GT,1) GO TO 100 

XST = XST + DXST 


DX = woh) 
GO 70 13 
TERR = i 
KFLG = } 


OO 1002 1[=193 

RTAB (IT) *SRTABII} . 
RETURN 

END 
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SUBROUTINE ROOTS4 (4yAsFUNCT sAASXeREL Xs ABSYeNe ESOLNsSOLN) 


SUBROUTINE ROOTS4 (Ay A eFUNCT sABSX sRELX e ABSY eNe ISOLN» SOLN)} 


IMPLICIT REAL#8 {(AwN»0-7) 
EXTERNAL FUNCT 
PIMENSYON SOLN(2) 

REAL LOWER 

ERR=D. 

EFLG=0, 

ROOTIEO. 

ROOT2=0. 

TWOOLT=6,0 

IF (R-ad205130022 
LOWERSA 

UPPER=A 

GO TO 24 

LOWER=A 

UPPER=6§ 

FXUP=FUNCT (UPPER) 

IF (CFXUP.NE.Oe} GO TO 245 
XY=SUPPER 

6O TO 156 

F XLO=FUNCT {LOWER) 

IF (FXLO.NE.O.} GO TO 25 
XIZLOWER 

GO TO 150 

IF (NeLE,20) GO TO 26 
TS0LNaS 

GO To 150 

OL TA=UPPER-LOWER 
OXMIN=DLTA/2,40N 
TWOPCT=0 ,02#DLTA 
FHNDT=0202%WOPCT 


IF (FXLO/FXUP.LE.0.) GO TO SO 


OLTA=0.5#DLTA 

J=1 

ABSUP DARS(FXUP) 
ABSLO = DARS(FXLO) 
ABSYMN=ABSLO 
XATYMN=LOWFR 
YMNSF Xt O 


rat 


IF (ABSLO.LE,ARSUP) GO TO 29 


ABSYMN=ABSUP © 
XATYMN=UPPER 
YMN=F XUP 
ROOTI=XATYMN 
ROOT2=YMN 

GO TO 32 
Ja2%J 
FLAST=FXtLO 
XLASTSLOWER 
X=XLAST¢DLTA 
00 36 I=leu 
FOF XSFUNCT (X} 


“IF (FOFX/FLAST) 46956034 


FLAST=FUFX 
XLAST=X 


93A0 


9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
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9550 
9560 
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SSAG 
9590 
9600 
9A10 
9620 
9630 
96406 
9650 
9660 
9570 
9680 
9690 
9700 


9730 
9740 
9750 
9760 
9770 
97680 
9790 
9800 
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9820 
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9840 
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9840 
9870 
9RR0 
9850 
9900 
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69 
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16 
77 
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BS 
R6 
u7 
88 
Bg 
90 
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93 
D4 
95 
96 
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11d 


36 


37 


38 


381 


384 


386 


. RM=KATYMN 


_GO TO 37, 


SUBROUTINE ROOTS4 (AsBeFUNCT + ABSXFRELX eG ABSY ss ESOLNsSOLN) 


ABSYCSDABS (F OFX) . 

IF (ABSYCeGT.ZARSYMN) GO TO 36 
ABSYMNSABSYC 

XATYMNEK 

YMN=F OF X 

X=XLAST*TWODILT 

TWODLT=DLTA 

OLTA=0.54OLTA 

IF (NLTA.GE.DXMIN) GO TO 30 
IF (XATYMNEQs LOWERS ORs XATYNN,EQ, UPPER) GO TO 395 
XLOSXATYMN~ TWOOL T 

YLOSFUNCT (XLO} 


YM=YMN 

XUPSXATYMN¢ TWODLT 

YUP=FUNCT {xuP) 

NX} =XN-XUP 

DX2=XUP-xLO 

OX3=XLO~-KM 

TISYLO/DX3/Dx2 

T2=YM/DXE/DX3 

T3=YUP/0K2/0%) 

AdAc~T]+-T2-13 

IF {AAEQse0.) GO TO 39 

BBall? (XM+XUP) 4+T24% (XUP+XLO} + T3% (XLO+XM} 
=-0.S¢by/ aa 

IF (XsLESXLO,ORSX.GEeXUP) GO Fa 39 

£ OF X=FUNCT (X} 

OLTA=XUP-X 

XLAST=XLO 

FLAST=y¥LO 

IF (FOFX/YLO}) 40956438 

IF (DABS (YM) LE DABS (FOFX)) GO TO 384 
IF (X.G6T.XM) GO TO 382 

XUP=XM 
YUP=YM 
XM=X 
YM=FOF X 
GO TG 37 
XLO=XM 
YLO=YM 
60 JO 38] 

1F (X%sGT.XM) GO TO 3A6 
XLOBX 

YLO=F OF X 


XUPsX 

YUP=F OF X 

GQ TO 37 

X=XLo 

FOFX=YLO 

IF (DABS (YM) .GTeDABS(FOFXI} GO TO 391. 
Xam 

FOFXSYN 

IF (DABS (YUP) .GE «DABS (FOFKI}IGO TO 392 
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SUBROUTINE RONTS4 (Ae sFUNCT sABSK PRELX Pe ABSY oNo ISOLN* SOLN} 


X=XUP 
FOF X=YUP 


IF (DABS(FOFX) sLEsABSY) GO TO 56 


ROOT1=X 

ROOTA=F OFX 
ISOLN=0 

60 TO 150 

TSOLN=2 

XLO=X 

YLO=FOFX 

KUPEX*! e00014@DLTA 


IF (XUPeGE.UPPFR) GO TO 42 


YUP=FUNCT (XUP} 
GO TO 44 
KUP=UPPER 
YUP=F AUP 

KRF 1=1 

GO 10 70 
ROOT2=xI 
XLO=xXLAST 
YLO=FLAST 
MUPEX 

YUPR=F OFX 

GO TO S2 
TSOLN=1 
XLO=LOWER 
YLO=F XLO 
XUP=UPPER 
YUP=F xUIP 
KRETs2 

GO TO 70 
ROOTI=xI 

6O TO 150 

IF (X,£0.0.} GO 10 62 
XPLE=X 
FACTR=1e0061 
JRET=1 

60 TO 66 
XPLE=X 
FACTR=029999 
JRE T=2 

GO TO 66 
ISOLN=2 
ROOT] =X 
RaNT2=x 
YI=FUNCT (xX) 
GO TO 150 
EFS=0.0001 4 {UPPER=LOWER} 
XPLE=EPS 
FACTR=1-0001 
JRETH3 

GO TO 66 
XPLE=~EPS ~ 
JRETES 
XPLE=FACTR#XPLE 
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SUBROUTINE ROOTS4 (ArBs FUNCT »ABSX*RELX sABSY + Ne ISOLN*SOLN) 


_ FXPLE=FUNCT (XPLF) 


IF (FXPLEsEQ.0-) GO TO 66 

IF CAF XPLE/FLAST) «LT s 00} GO TQ 64 
GO TO (58960464760) wURET | 

XR XPLE 

FOF X=FXPLE 

GO TO 40 

IF (YLO.NE.0.) GO TO 72 

XT=XLO 

GO 10.118. 

IF (¥YUP.NE.O.) GO TO 74 

XT=KUP , 
GO FM 318 
DLAST=1.£+38 
CALL OVERFL IL) 
_ DLTAXSXLO=xXUP_ : s 
X 1=XUP 4 YUPSDE TAX? (YUP*YLO) 
FRACT={XT»XUP) /DLTAX 


_ CALL OVERFL (L) 


IF (LeEQ.1) GO YO 132 
FLAG=O, 

IF (FRACT.GI.0.02) 60 TO 78 
FLAGaI, 
X1=XUP 
¥IsYUP 
GO YO 62 
IF (FRACToLT.0.98) GO 70 an 
FLAG=-1+5 

X1=XLO 

YyI=¥LO 

GO YO #2 

YISFUNCT (XT) 

IF (YI,E@eMe) GO TO 119 
IF {FLAG EQ ated GO TO 86 

OL TASXUP~XLO 

IF (DLTA.GT.TWOPCT) GO TO AG 
_OLTASO, LO#DeTA 

“IF (FLAG, LTe0e) GO TO A4 
XM=XUP=DLTA 

60 TO 92 = 

“XM=XLO4+DLTA 

60 TO 92 

IF ({OLTAXSFHNDT}.GT.0,} GO TO Ba 

XM=0.5% (XUP*+XLO) : 

FRACT=DABS { (XM=X3) ZOL TAX) 2 
_IF tFRACT.GT.G.1) GO TO 92 a aoe 

“TF (YI.LT.0.) GO Ta'90 Sire tea ot 
IF (¥LO}108s1100110 

IF £¥L0111051089108 

YM=FUNCT (XM) 

IF (YM.EQ.0.) GO TO 120 

DxexMexD 7 ‘ . 
IF COYM/YT)aL7.0.) GO TO 96 
IF (YM.LT.0.) GO To 94 
IE (Y¥L0)10291002100_ _ 
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SUBROUTENE RONTS4 (As eFUNCT > ABSXeREL XS ABSY eNy ESOLMySOLN} 


IF (¥LO) 2001025102 

IF (DX.LT.60.) GO TO 98 

XLO=KI 

Yt.o=YI 

GO TO 104 

XLO=XM 

YLO=YM 

GO TO 108 

IF (OX9110+1060106 

IF (0X}104,1040108 

XUPSXM 

YUP=YM 

Go TO 112 

XLO=XM 

YLO=YM 

GO FO 112 

XUP=XT 

YUP=¥I 

GO TO 112 

XLO=X]T 

YLO=YI 

OL TA=xXLO~-XuP 

TF (€OLTA*ABSX) eGT.G.) GO TO 116 
IF (OLTAWNFeOLAST) GO TO 114 
EFLGe1l, : 

GO TO 136 

OLAST=DLTA 
XMAG=DMAX1 [DABS (XLO} DABS I XUP)) 
IF ((COLTA/XMAGORELX},.GT.0.) GO TO 116 
IF CLABSY=DAHS (YUP) 1.GT.0.0) GO TO 116 
IF ({ABSY@DABSCYLO) DeLTe0e0) GO TO 76 
XTSXUP* YUP (XLO-XUP} 4 (CYUP-YLO) 
YESFUNCT (XT) 

GO TO (46954) +KHET 

XI=XM a 

GO Ta 419 

ISOQLNS3 

60 Ta 150 

TSOLN=4 

If (FFLGeNF.0.) ISOLN=ISOLN 
SOLN(1) =ROQT] 

SOLN{2)=RONT2 

RETURN 

END 
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FUNCTION TABLD(XeXAs VAsK NN TERR) 


FUNCTION TARID (Xs As YAoK sNNe TERR) 
IMPLICIT REAL#A (A+H,O~2) 


REAL#4 LUM ‘ 
Cc. . TAB}D PERFORMS POLYNOMIAL INTERPOLATION ON A TABLE 
c ’ WITH ONE INDEPENDENT VARIABLE. 


COMMON /TABIC/ INCXsINCYsISERsIDeKLO 
_ DIMENSION XAC1) oYACED 9X (6) o¥¥(6} 
Cc TEST FOR K OUT OF RANGE 
IF (Kk eGTeS .ORe Kel Tek? GO TO 499 
_ NENN ote 
OUMGNE=1.000 
DUM =DSIGNIDUMONE + XA CINCX+)9=XA(1)) 
1D = IFIX (NUM) oa ; goatee) a 
IF (ISER} “1003100+90 7 ; : 
90 IF {(XsEQeXL} GO 10 341 
WOO ALeX” : Beda, Segal oo ee 
“"" KPLSKe} as re 
IF (KP1<N)110¢101 0510 
101 KLO= TARAS (MING (2 eTO#N) 1. 


“™ 66 To alo , y ‘ Aa 
310 IF C(ID}13001100120 
c 
ec" INT PTALITZE FOR INCREASING X. cJs 
120 ILo=0 
THESN~} ox hy Ni m2 
GO TO 200 
¢ 
c , INETIALIZE FOR DECREASING Xe 
“130 TH150 oS ‘pe ee ee Ge es ne, is <4 -" 
ILQ=N~} 
c 
c “BINARY SEARCH = FIND MIDPOINT AND TEST FOR HIGH OR LOW 


200 IC=(IHIsILoO) 72 
JCELsICHINGK 5 
UF (X-KA CICS) 20242015201" ; 
Cc LOW « SET APPROPRIATE INDEX 


201 teste ; 

v~o—""G0' To 203 ~ as . : a 
c HIGH © SET APPROPRIATE INDEX 

202 IHI=IC 


263 IFUIHT~TLO,NESID) “GOTO 200 ; . 2 


300 INC=0 
TF C(KZ2) + (K/2) -K) 3029301 +300 
“JOE ILOSTe1Laoetnex ~~ ae eg LS Seg Fe a ge 
JH aie THI eINcx : 
IF (DABS (X=XA(JLO)} .GE DABS (X=XA(JHTID) ANC=}, 


“302 “RLOSILO=1D8 (Ke INC) 72 nicks dll ied iy ee 


IF (10) 30493029303 F 

=n 303 _KLOGHAX® LO2HTNO IRL OaN EPL! Pete Nena or eM aes | to 
310 

304 KLO=MAXO(K 4 MINOCKLOsN~E)) 

BLO _IFCESER) 52143110321 F 

~BYY IKKE LS KLO®ING RT i 

JKY=]}4KLO®INCY ed ; 

! 

| 


aj veces 


ee pee te le ee Re pare 


26790 


26800 
26830 
27550 
27590 
27620 
27630 
27640 


27700 
27740 
27780 
27790 
27800 
27830 
273840 
27880 
27890 


* 27900 


27910 
27920 
27930 
27940 
27950 
27960 
27970 
27980 
27990 
2a000 
2A010 
aan2d 
7R030 
2R040 
28050 
28060 
28070 
28110 
28140 
28150 
2a1a0 
2A190 


~ R240" 
2A250° 


28260 
28270 
28280 
2AI10 


28340" 


28350 
28360 
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INDEX FUNCTION TABID(XeXAsVAeKeNNy [ERR 
4S . wes «ANCYSIDSINGY i i ret ies ok Shee 6S ae 
46 DO 312 JDUM=t KP} : 
47 TF (X.LT+1.200"36) GO TO 3)11 
48 oo. TE (XACIKXD LT 01 .00-94) GO.TOLBIEL ool ne é 
49 XX (JDUM) =X=XA (UK X} 
So GO TO 3112 
Bho. BELL AX{YDUM) =O00 nc ee eee me ee F Ba ope 
s2 312? YY{JOUM) SYA (JKY)~ 
$3 JKX=JKX* INCX 
54 ao (BYey SRY SIRY4AING Ye oo oe heed oh ee he ee eet eee 
Ss CALL OVERFL(M) 
S6 dO 315 L=],k 
Stl. 2 2. LPI SLs hast eich? 13) accents hats ett tases ett 
58 D6 315 CL=LPiskPi ~ 
s9 DENOM= (XX (EL) XX (ED) 
60 8 YYLUDSCYY LARK ILL DAVY ILLE AXXULDPOZERODP(DENOMD 
él 315 CONTINUE 
c CHECK FOR OVERFLOW - IF YESe GO TO ERROR COMMENT, 
62_ _ 2. CALL OVERFL (MD | eh een ae ett, Gree es 
63 IF (MeNEe2} GO TO SIO 
c 
wee Gee INTERPOL ATEON ES_COMPLETE_ AND SUCCESSFUL - RETURN, 
64 TABLD=YY (KPI } 
65 TERR=1 
66 _ v- RETURN, | _. ea. eo ih A ro sh eS a OO BE cet wy 
c WRITE ERROR COMMENTS. 
c 
6T , . 499 WRITECG@932 0 LL. Bre haves” Se Re Se 
68 GO To Slt 
69 500 WRITE(691) 
jo. Ll . TERRE2. atts oy 7 we one 
71 GO TO 520 
T2 510 WRITE(692) 
73°. «SL. LEaR=3 . 
74 520 WRITE(604) XeKoNe TERR 
75 521 TARBID=X 
f6 “ime RETURN ore om as 
c FORMATS 
c 
wh. 2 . UL FORMAT (SOHGDURING INTERPOLATION BY TABIDe OVERF2OW OCCURED, ) |. 
‘a 2 FORMAT (30HNTABIO WAS CALLED WITH KIGEIN 
79 3 FORMAT (39HOTABID WAS CALLED WITH K,GT,5 OR K,LT.1 ) 
ao & FORMAT(5H_ X = €14.5e5XSH K 3_J3S5X5H_N 5 _13/ 


XG1H TABIO WILL SET RESULT TO x, SET TERR TO/13,i2H AND RETURN.S "” 
81 END 


28370 
24300 


20390 


28410 
28420 
28450 
28480 
28490. 
28500- 


28510 
28820 
2R540 
28550 
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REFERENCES 
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JNCX Pe AGS BOB hs on EL. te Sle, ya, Sere 9 ~ eee a ee 
JNCY ~ 45= 54 ; 
K ” 1AG 6 14 32 36 40 Soho T4wR 
KLO 40. 16= 2 6S RRO. 
KP] be 145 1§ 38 46N0 5800 64 
4 fa 5600 57 59 60 
Lt sch. “5BDO 0-39 wuss OO ek. Dee chk & it feet 8 sass seem 
LPL = Sls 58D0 
M - 55AG 62AG 63 
MAXD ee BO gk OO es ee Sree ee Se lanier ap, Seca Sa weed ets pe 
MIND = 16 34 40 
N - 7= 15 16 20 23 38 40 T4wR 
NN as UA ie eePis se  Sey  S t  s ee B ee A ore 
OVERFL «= 55% 62% 
RETURN = AGe The 
TaBIC Me over RNa oS oNteerath hr neem a at ate Boe he wise, et x athe eS sa a a 
TABID - 1* 645 75= 
x - 146 12 13 26 35 47 49 74wR 75 
XA ~z . 146 ._ 90! oe SPP ee | ee 48 49 weed 
THE VaRIABLE= XL “IS USED BEFORE IT IS DEFINED 
AL ty 12 13s 
AX = SOI. 492, . _3515.. BO OOF a watt eas Boche? Sie s : Pl 
YA = 1AG 5nI Se 
YY - SDI S2= 6= 64 
TRE. VaRJABLE= ZERODP _ ~IS USED, BEFORE IT IS DEFINED es ee c= 
ZERODP + 406 
Fe aR lk sd i a al a tha ite Sh Sh dll ef as ahh aaah teat a 
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FUNCTEGN ZEROOP (Xx} 
IMPLICET REAL#A (AwH,O~Z) 
ZERQDP = 0.0 

IF (X ,NEe 0,0) ZERODP = 
RETURN 

END 
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SYMHOL | = SSaemicsesssesssss ROUTINES IN WHICH THE SYMBOL IS USED s=2ssssssusescsaes 

A = CONICL DaATLOC PRN X EQLARM GETAS HCALC INPUT LKuP 
oput PRT2 PRT} PRTG PRT6 PRTT RADTUS ROOTS4 

AA ~ €FMY Eat BRM ROOTSS 

ARAN ~ PRI? . 

AHCYL = PRT? 7 

AKOC = MACHR 

AHOV = DERIV 

ABS ~ ose . EFMT EGLARM ROCKET SAVE 

ALSA - OPUT 

AHSA] ~ OPUT 

AYSA2 - oPpuT 

ABSA = OPUT 

ABSLO = ROOTS4 

ABSLOT - PRT? 

ABSUP - ROOTS4 

ABSX = ROOTS4 

AWSY - ROOTS4 

ABSYC = ROOTS4 

ABSYMN «= ROQOTS4 

AWKTOT «= PRT 

AC ~ SAVE ’ 

ACSSAV ~, BATES CoS] STScaAt 

ACSTRI « RATES cnsi RECON ROCKET STScat 

AR 7 =) OPRTT . 

AEAT - RKTOUT ROCKET 

AEATL = ROCKET a 

ALF ~ PRI? 

AFIT ~ I[NTREC RECON 

AFSRH ~ BLOATA FSCAL PRT1 

AG - HCALC : 

AGV - our) RK TOUT 

AHALFC = PRTT 

ARALFE = BATES BLOATA COSI SISCAL 

AHALF1 «© BLDATA coOsI , 

AHH ~ PRT7 

AIT “ PRIZ 7 7 ; 

AITIN = INERT INIT] PRI? 

alTVAC + PRI? 

AITVIN ~ INERT °°” PRT7™ 

AK - BATES BLDATA cosI PRT} SISCAL 

AKR - _DISP i, ats 

AKRST =~ PRT?” “ 

AKSLUT = DISP 

AL - BaTES BLDATA 

ALNE - cOs!7 "° er 7 co 

ALD2 - cost 

ALOG - cost EQlLBRM HCALC LEWIS ROCKET SAVE SISCAL 

ALOGIO = ‘EFMT™ ~~" CO foun Ae Re ee SG 

ALPRA = BATES BLDATA cosI DERIV PRECAL SISCAL 

AM = HCALC REACT 

AMBNA ~ “se EQCARMA™ ~~ * ete ss ms TEEN ary : 

AMBOAL = EQLBRM 

AMIRR = BLOATA INERT PRII 
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AMPRR ~ BLDATA 


AMW - PRTIT7 


ANAME “ 
ANLUPS = PRT? 
ANN Cc 
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ROCKET 
APP RK TOUT ROCKET 
AP BL cas ROCK E Bi at eS a iy a ee a Y son 
AR = AREAR 
ARATIGO = ROCKET 
ARFA___=_ ROCKET _ oS hE tee gd parted fon Woe 
AREAR - LKUP 
AREND - LKUP 
AREL...=- BLOATA. COSI. Sk eh a oe . a 
ARETB = BATES BLOATA 
ARETE ~ BATES BLDATA CDSE SISCAL 
ARF = BATES. CONICL OO a oh) eho, = : 
AR61] - OERIV 
ARG2 ~ DEREV 
_. ARGS SSDERIVG seis 2 oe ede. eee lee Sct at teas wiccrralanas) psieila Baa 
ARGS ~ DERIV 
ARTIC - FOFRP OPUT 
_ ASO. =. ROCKET. 2 2 - Laer : oat. as 
AT ~ FAMCAL PRT? 
ATAS - RKSFS& VARI 
ATABL = _FOFRP  IDNOZL PRECAL _ ms : 7 
ATB ~ #LDATA FsCaL PRT} 
ATBAR ~ BLDATA RECON 
ATEM_. =, BLDATA, _ ahaa oa he ok: me - é 
ATOM ~ BLOATA REACT 
AVEHI = FAMCAL an 
AVG ROCKET Se ee Ee eae He seaets mo he 
AW = RKTOUT . ROCKET 
AWT = ROCKET 
AW? =. ROCKET Do 8 ee I wat ee ieee, Rape eer _ a 
Al - OPUT 
A2 - OPUT 
AD = OPUT aga ee a og aaa eee pees Aes 2 Lopate 
ASSIG - VART 
8 ~ CONICL MATS OPUT ROOTS4S SEARCH 
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BB = ROOTS4 
BIAS - RECON 
ATG oe SAVE 8 ee Si, Be seis 62 i ; 
BIGNO = GAUSS c 
BLANK ~ LEWIS REACT 
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TIL 2. ws. EGLBRM. OUT] 9... UU RKTOUT ROCKET 0 wa aes 
TV = LEWIS MATRIX 
TWEB = 8LDATA RECON 
TWODLT =.  ROOTSA ~ oo ee Ee AR Se A n Peer era 
TWOPCT = RONOTS4 
Tl =» ROOTSS SEARCH 
12, ne nt ROOTS4 SEARCH ee ett 
T3 = ROOTS4 
u = FOQFRP OPUT 
UDTF Rote! EOP RPS ot eta a cee ces acl Soe eee a3. as artes Sod 
UG «= CTRiI CcTRL2 DERIV FOFR OPUT 
UGON » FOFX GETXX REPLCE 
UGON =e J FOFRP GETAX ne ee en ee sete a 
UGFIXL = DERTV 
IGFIX2 «= DERTEV 

gUGRANS ve CHER A Sid fe ORS hee As i 


PRFCAL 
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plerz 


INODE 


UGSLOP 
UGStt 
UGTHL 
UGUP 
UGUPX 
uGO 
UGOLN 
UGOUP 
UGaU 
ul 
UINCH 
WISAV 
UP 
UPDN 
UPDNX 
UPOUG 
UPPER 
UPTBL 
UPUP 
UPUPX 
uPA 
UPQUN 
upouP 
usa 
ur 
UTPR 
uv 
UZERO 
v 
vacl 
VACINE 
VARFMT 
VF 
VFCYt 
VFH ~ 
VEN 
VE, 
VM 
VMIN 


Voc 


VOL 
VP 
VPH 
VPLS 
VPN 
v1 
V2 

W 
WOF 
wOOoT 
wD} 
wu2 


“WF 


WF ACT 
wi 


Pad 


@eeavneererte ee ee eve tee eet eee dean es es Ae eb at seat eres tad ven 


DERIV 
DERIV 
CTRLI 
FOFX 
FOFRP 
DERIV 
FOFRP 
FOFRP 
DERTV 
OPUT 
FOFRP 
OPUT 
cTRLI 
GETXX 
FOFRP 
FOFRP 
ROOTS4 
CTRL1 
GETXX 
FOFRP 
FOFRP 
FOFRP 
FOFRP 
OPUT 
FOFRP 
FOFRP 
LEWIS 
FOF RP 
FMT © 
FOFRP 
FOFRP 


~ out} 


PRTT 
PRTT 
PRI? ¢ 
PRI? 
LEWIS 
EQLARM 
LEWIS 
RKTOUT 
EQLBRH 
PRI7 
PRT? 


” LEWIS 


PRIT 
LEWIS 
Lewis 
EFMT 
COST 
PRY] ~ 
PRI2 
BLOATA 


INERY~ “~ 


DISP 
Pate 


REPLCE 
GET XX 
GETXX 
FOFRP 
INIT 

INIT 

FOFRP 


DERIV 
REPLCE 
GETXX 
OPUT 


REPLCE 
REPLCE 
GETXX 
INIT 
INET 
INIT 
ROCKET 
OPUT 
GPUT 
MATREX 


LEWIS 
OPUT 
OPUT 
RKTOUT 


out. 
REACT 


HCALC 


REACT” 


SAVE 
SAVE ~ 
GETAS 


PRT3 
CcDoSI 
PRTT 


Avett? SUPER INDEX ##eueHnene 


REPLCF 
INIT 


REPI.CE 
REPLCE 


FOFRP 


REPLCE 
_REPLCE 
REPLCE 


Outi 
RKTOUT 


SAVE 
LEWIS 


SAVE 


RKSFS 


SISCAL 
PRTI 


Oe ow Gate concerto dene ce raw en ee, is ab oon 


REPLCE 


OPUT 


REACT RKTOUT VAaRFMT 


MATRIX 


reer ns stmenaee - , 


= ot mee os ue , oe . 
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prOz00L"S 


'GLE-Z- 


INDE x HeeeHo eee SUPER JTNDEX #2eatatone PAGE 374 


WG? 2.56 SROE GP < oO UPI ooh ote cs Se Nee - aoe 
WGTOT PRI7 5 
WINE BATES @LDATA 
WM. 2. €QLBRM .. OUT). __RKTOUT. ROCKET. 
WORK ~ fFOFRP 
WP ~» HCALC LEWIS REACT 
Poss S ce PB OTES MC COBLONTA oc oo. h eee Po, eee oe ote 
WPE - BATES BLDATA 
WPWG = CONST DERIV FOFRP IONOZL = OPUT 


WIMULG = BLOATA IpNOZL 
~WUGON. = _FORX  GEEXK 


(eeu 





WUGUP F OFX GETXX 
x CONIC cTRLA CTRL2 OERIV EQLHRM = FOFRP FOFX GAUSS INIT LESSG 
ee LIN MATRIX NATSU LOPUT Uw  RESF4 | ROOTS4.: TABID.. | ZERODP 
XA - TA810 
XATYMN = ROOTS 
pect WORD os a ee a 
ON = FOFX GETXX REPLCE 


Bee PNT eee Sin ae ee er ae ee ee + 


OPUT 
ae RF oe CONT CL «FOF RP 2 ONO ZL se a ie ee Sik 
BATES IONOZL : 
EQLBRM LEWIS ROOTS4 
. GETAS. LKUP wo TABOO 
BATES BLOATA CDSI SISCAL 
RDOTS4& 
SSG REN Si a EOL BRM: ce CEES eS a ee ee : 
« ROOTS4 
XLST » CTRL] LKUP 
= MACHR_ | ROOTS4 





« ROOTS4 
XMAX = GETAX LKUP 
we ee MNBL. un. MACHR 
- BATES 
XPLE = -—« ROGTS4 
By dee BGAN ee RAGES oe. eon tt ee ee i ee l,i eR a ea 
e GETAS LKUP 
xSTt ~ RKSFS 

© CONTCL CTRL FOFRP TONO2L_ . OPUT 
LIN 
CTRL REPLCE 


LKUP tie 
GETXX cKOp 
FOFX GETXX REPLCE  ROOTS4 
GE 


GETRX ERY TABID Pg OE Crh BG ee TE 


TONOZL 


pea ce ee 
XTABLE 
XTBL 











ek Soe Seen ee ee a een ree ete enon mare ae cow - 


=. ROFRP? < GETRM © CINTTS on Oe ey | ee 
xi = CONICL FOFRP OPUT 2 
2..CONICL  FOFRP OPUT 


p-0200L-9520 


SLE-2 


INDE 


x3 

Y 

YA 

YI 

YLO 

YM 

YMN 

YN 
YTABLE 
YUP 

Yx 

YY 

7 

7ERU 
ZERUOP 
ZERODV. 
271 

zz 


Pad 


ppeeevseteri td Ft tes euert 


FOFRP 
FOFRP 
TAB1O 
ROOTS4 
ROOTS4 
ROOTS4 
ROOTS4 
ouT] 
LIN 
ROOTS4 
OUT 
TABLD 
AREAR 
REACT 
TABLD 
PRTG 
RKSF4 
RKSF4 


Haeestaeowd SUPER INDEX #titeeteeed 


OPRUT 

LIN RKSF4 

DERTV ORDX GAUSS GETAS 
PRT7 


OuTl 


RADIUS 


RK TOUT 
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INDEX HOGS PEEEEKEDe TABLE OF CONTENTS aeerareererarain PAGE 374 





iret he So St ear, Se Ee —AREAR  eeees 23) 0. P 
BA Tes @eveead 0 ! 
BIAS eeeta 3 
- EA ee ee OE ee See ee: «| 6 es PES {| ec nea ae eT ee es . . - 
BLDATA sees 
BLDATA  eeeee 233 
& pew ae Sao ach a OST ee Sia entimaes A” Scan eeepc e -s Sniane - 
CONSCL eesse 235 
; cONST esees 239 : 
a a cee eee ey Ree te eRe: 8): E LAPSE 07 Pale 1° le On ea ne re oS 
CPHS sevoe 173 s 
CIRL2 veces 244 
stil anteater gs ne ce RAE as ua! Ce a ra rts aa i ce 
DATLOC seces 
DERIV eeone 257 
eaotiihe ahtoes DISP geone 27", pie acces Se aS et w lade het oe: 
DROX eecee 266 2 
EFMT ecene 200 
Na ee BOR 2 ora 6 Bi 2d SB an Pa a SS ht et he 
ERR oocne 1 
FAMCAL oaene 36 
NSA Sh fe ek ga ce a a FOR RE aging 5 268 oan Boh SAN ed es ee Ba ee 
ia FOFX eeone 287 
FSCAL seoee 39 
aie 6 a ts GAUSS een et FBG se ee Se 
GETAS ecane 29) 
GETDAT eacne 42 
ee ee a ea eS TI ga Sg I oa i Sg se ee oa ie 
z HCALC seees 145 
‘ TONOZL = eeone 224 
Ord nay ee tt, Rn Se eS ee OE sind oe NER ET Teg be ORs Fi 19 ek Oe lst AY Sh at 
INIT eeoee 301 
INIT] ovoen 47 
INPUY 22 i$ aie 62509" i ne ess) 8G Ge ee 
INTREC seve 55 —z ~ 
IT 1DN?2 @arvesn S7 
—..__LESS@ _ esene 62 oh oie oe pee ee 
» LEWIS 
LEWIT ecese 64 
LEN wg ae ee OG a ek es 
LKUP aaeone 365 
MACHR eveee 309 
MATRIX eves MTT 8 
MATS eeese S11 ey Cee Ue A 
NEWOF 











ao err eaten entree te ere 








OUTT AP eenee 797 
ec ieee ee sac ac et oe ee OUT ET ese ae eo BBE 8 ot . 
OUuT2 waeng? log ace Foe Fee ee ee) = ig ts 
QUT3 eee e188 s 
ot PADS) ein sien FO) oe ee Sy 
PRECAL osree Jee = : a? eee 
PRESET seses 72 


__PRIL esoes 75 








prOzool~9sc0 


oLe~2 


INDE x 


Hoste obeaHadees TAALE OF CONTENTS st o¢n4aneaogaaon 


PRI2 
PRT3 
PRT4 
PRIS 
PRI6 
PRIT 
PRTB 
RADIUS 
REACT 
REPLCE 
RKSF4 
RKTOUT 
ROCKET 
ROOTS4 
SAVE 
SEARCH 
SISCAL 
TABID 
VARFMT 
VARE 

; ZERONP 
SUPER INOEX 





seeee 80 
eveee 83 
teeee 87 


peeves 91 


sesee 93. 


eoeete 37 
enaaae 107 
eevee 326 
eeece 132 
upess 109 
evese 328 
enone 332 
seeee 213 
203 
339 
1S2 
rag 
116 
347 
198 
121 
seecce 351 
erete 353 
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3.0 PROGRAM LISTING, PART TWO 


This part of the SRB-II program listing contains an INDEX listing of the 
Internal Ballistics Module TBM), the Nozzle Submergence and Contour 
Effects Module (NSCE}, and all of their associated subprograms. 


The INDEX listing begins on the following page. The SUPER INDEX begins 
on page 3-519 and the Table of Contents begins on page 3-549. 


ent 


INDE x FUNCTLUN ACOS (2) 


F PAGE 1 
1 FUNCTION ACOS (2) «#30 
2 COMMON/CONSTS/GNOT PE eP TOA eRADIAN 
3 ACOS = PI 
4 IF (2 LE» ~1.0): RETURN : S10 
5 ACOS = 0.0 520 : " 
? ACOS = Pli/ee ’ * 
& IF (2 ,EG@, 0.0) RETURN 550 
9 x = AdS(?) 560 
16 ACOS = SORT(1. = Xt # (ECOC(f.00L2625 & X © 20066701) & x sia 
€ -40170881) * kK » .030B919) # x = 20501745) * x 540 
C + -0K8979) # & = 2145988) * X + beS7TO7963) ‘ 490 
11 IF (2 LT. 060) ACOS = PI-aAcos 
te RETUKN bt 
13 END 670 
“ 
INDE x FUNCTION ACOS (2) 
>SYMGUL Per ee oe eee Soe er rere eer REFERENCES eal Reel Rea Seale Real tat, Need eal Seale Reale Rad tak ena hol i eee add 
AUS - 9 
ACOS - 1s 35 Ss 75 105 is 
CONSTS < ee 
ONOT a eco 
PI ~ 2co 3 ? 1 
PI02 i 2co0 
KADLAN = eco 
KETURN + ae 6# ut i2* ‘ 
SORT = 10 : 
x - 9s 10 * 4 N 
2 a 1AG 4 6 8 9 1) 


Pee See ee Cer rae See en Seren een ree en or sremenes ee en mee or See er eo er er ee eee eee oe ee ee ee eee See er ee err errors 


e-CZ0G1-296z0 


Ee 


INDEX 


SUBROUTINE AEPSUB 


SUBROUTINE AEP? Sus 
Cececceccecccccecccccecceccceecccecceccecececccecccececeeccceccceccececce 
Cc SUBROUTENE AEPSUA TESTS FOR THE -EX!STENCE OF a SECTOR FOR THE &Np 
Cc SECTIONS. IF A SECTOR 1S HURNED CUT OR NOES NOT EXISTe PROGRAM 
c CONTROL 1S RETURNED TO SUBROUTINE ASESUBs OTHERWISE COMPUTATION 
c PROCEEDS TO SUBROUTINE AESUB,. THE SECTOR AREAS SRE THEN SUMMED AND 
c PROGRAM CONTROL IS RETURNED TO SUBROUTINE ASESUA {SECTION 9.20347) 
cccecceccceccececececocccececccecececceceeccececccceccecccececececcececcecc 

COMMON/CUMP/DELL »RT* ALAMENS AWE sRAMING AL Xe ALAMDA 

COMMUN/COMT/ TAL eRGeSUMDV e XR HE p AL £13) sXBARTHSASE OAFFaWI sWHTeRAd 

1 RAOsALL +AJPP,ASI 

COMMON /COMW/D Ve AEE pPEPOL 

COMMON/PARMAB/ HSURMGeNSJBMG pNENDsASEAs ASES » SUMDVAs SUMDVE 

COMMON/PARMAC/ HEAHESAEEA AEFUSDVASDVAsHETA HET BeAWEAsAWEB + DELY 

IF ¢ALX110s20210 
10 - CALL AESUB 

ASERASECAEE 

SUMDV=SSUMOV «DY 

TF INENDeEQO.1 OR eNSUBMGLED.09)G60 TO 20 

ASEMA=ASEA+AEEA 

ASEB=ASEU+AEES 

SUMOVA=SUMDVA+DVA 

SUMOVE=SUMOVE +DV3 
20 RETURN 

END 5 


60370 
60420 
60440 
60450 
60460 
60470 
AO4R0 
60500 


60520 
49530 
60540 
60550 


60560 


PAGE 
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eUELUL-ISZ0 


F-€ 


INDEX 


SYMXOL 


10 

20 

AEE 
4LEA 
Abed 
AEPSUB 
AESUB 
AFF 
AJPP 
AL 
ALAMDA 
ALAMIN 
ALL 
ALK 
ase 
ASEA 
ASE 
ASI 
AWE 
AWE a 
Awid 
COMP 
ComMt 
COMw 
VELH 
VELL 
Ov 

DVA 
UVB 

HE 

HEA 
HEd 
REIA 
HEI8 
HSUBMG 
NEND 
NSUUMG 
PARMAR 
PARMAC 
PEPO)] 
RA 
RAMIN 
RAG 

RC 
RETURN 
RT 
SumDYV 
SUMDVA 
SUMDVB 
TAU 

wI 

wT 
XBAKIA 


ppp nraprrnreaee ries rere re te perpen sepes ees eevee esatageeee)etratigre 


’ 


SUBROUTINE ARPSUB 


bag bn engete ted se erga pute toentupe te beteen REFERENCES 


7 
7 
4€o0 


$CO 
2co 
4co 
6C0 
6C0 
3¢0 
6Co 
c¢ 
&Cd 
6co 
5¢ 
5ca 
sca 
5b 
at 
400 
30 
eco 
3c0 
300 
tow 
2co 
3ca 
5co 
5CO 
3ca 
3CO 
3coO 
3co 


He 
1] 1é# 
4 


12 
ij 


10 
14 
is 


- 
—— 


10s 
las 


PaGh 


ree ee ren ee ee ee ee ee ee ee oe ee ee So ee eee eee es 


% 


pe O2001-9S20 


§-£ 


XR 


INDE Xx SUBROUTINE AEPSUB PAGE 


= 3c0 


Fhe TERETE ETH Me EOE ERE SE ERE EES EME TMH MEMEMt Mend pusmEMenemseeReHemeesmbmtremoapupaswswta 


5 
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INDE xX 


. 


SUBROUTENE Ab SUB 


SURROUTINE AESUd 


COCCCCCCCCCCCCCCCCOCCCCCOCCCOCOCCCECCCCOCCCCCECCECCOCCe CC Cor ee cecccceen. 


c 
Cc 


SUBROUTINE AESUB DETERMIVES THE SURFACE AKEA AND INITTAL VOLUME OF 
& SECTOR FOR THE ZONFS IN THE END SECTIONS (SECTION 5Se2. 42?). 


CCOCCCOCCECCCOCCCCCCCOCC OCCU CECCECCCCCCECCECCCCCECECCECCOCCCOOLECCCECCOCCL 


10 
20 


30 


40 


£0 
70 


do 
30 


bn 


COMMUN/WORKAZATNC (1) ¢ ANG = oRFDMe TAUWOMy R2UM¢R3DMeRGDMENSDM REDS 
1 RTDYsRUOMsALSI DMs ALSZ0Me ALADMeALBOMeALEDMeAW OS} 


COMMON/ WORKRE /REL eALFEMsALFE sREQsHEE HE 2sHE De dERAVFFE OO VCE, 
1 


TAVEO+ TAUE 1 CAE CRE + CCCE sCCVE sCDOCE e CVE eCECE sCFVE 
COMMON/DUMYAZALRe ALR 9 AL 2MAX +s ALRS pAK 1 GAMA Te XRO 
COMMON/COMP/DELL #RT sALAMINe AWE eRAMIEN SALA eG ALAMDA 
COMMONS CUMT/ TAU) RC e SUMOV eo XRaHE SAL (13) sKRARTHOASE SAFF OWT WT yRAs 
1 RAUrALL pAUPP SASSI 
COMMON/CUNW/OV+ AEE +PEPOL 
COMMON/PARMO/4RASUN KX2S JH s AUBR SHEE pAJUN sAUBHe XBARY 
CUMMON/PARMAG/ HSUBMi9NSJAMG sNEND sASEAPASES sSUYDVA s SUND YH 
COMMON/PARMAC/S HEA HES c ATE A SALEM sDV4 PPV HE [AsAFEBsAWF AS AWEH DELS 
ALL=OQ, ‘ 

CALL RASUB(KRASUS) 

RAUaKA 

CALL XRSUd (KXRSUS) 

XRO=AR ' 

ALL=ALX 

CALL RASUK{KRASU3) 

RAXSRA 

ik (REL RAO) 100,100410 

IF (RAX@RE 1) 20520630 

HAMAX=KAX 

60 TO 4D 

RAMAX=KHE) 

RA=RE} 

CALL XHSUd (KXRSUR) 

CALL ARSSUB LKR XROeRAPRADSALRS) 

CALL ALRSUBIAT,ALNS»GAMAT sALR) 

IF (R¥}60550.6u 

ATT = a, 

60 TO 90 

ATO= (AUS (RT) BALAK ALRSO SORT (RT BHO (ALAS Aa) ##2) ) fds 
IF (RT} 70570080 

AFT=~ATU 

GO TO 90 

ATTRATO : 

TEMP 1={XR+XRO) 726 

JEMP2=5URT (RAD#82-KROHK?2) 

TEMP 3=SQRT (RAR 2~XR202) 

AFFS(TEMP3=TEMP2) # TEMP} ‘ = 
GAMARSACUS (TEMP3/RA} 

ARS (RATH2HGOMAKR=TEMP3EXRI S26 
GAMAROZACOS (TEMP2/RAD) 

AROZ (RAO#*2UGAMARO=TEMP2PXROI Je, 
CALL NESUB 

AEE= (ALROHE SAFF *¢AR=AROSATT) #ANOO2, 


* DV=(AFF ¢AR=ARODCATT) HHE#ANOH2. 


IF GNEND.£Q,.1.0KsNSUSBMG.LEQ.0)00 TO 110 
IF (HELE. (HSUBMG 3) 50 TO 94 


590,40 
59150 
49170 
Sglay 
59200 


59270 
Saag 
592460 
592450 
59740 
S9e rn 
aO2HO 
59200 
Satan 
$9310 
5932 
59330 
59340 
59350 
$9 360 
$9370 
b9aRD 
G4 490 
49400 
59419 
54420 
$9430 
59440 
59450 
594460 
54470 
S96R0 
59490 
59500 
59510 
59520 
59930 
59540 
594550 
59560 
59570 


Page 


b 


PrOTUL I“ ISLE 


£-€ 


100 


102 
103 


roa 


bla 
Lea 
}30 
140 


15a 


16u 
170 


180 
190 
200 


220 
230 


240 
250 


94 


SUBROUTINE AESUB 


AEEA=ALRYHEASANDHHO, 
AEEUS{ALRHHEB* AFF +AR-AIOFATT) VANNSO!, 
oO TO 96 

ABEA= (ALKYHEA+AFFHAR-ARO+ALTTIYANOS2.  , 
AEF H=0.0 

UVA= (AFF eaR-ArueaTT)BHEAKANOP A, 

LVRS CAF F SAR SARC FATT HAE RANGES, 

ou TQ 110 

OEE=0. 

UVsDe 

TF ENEND Ea DOR NSUAMGL ED. 1G fo 210 
AER ASU.D 

AEF REO, 0 

Ovasu, 

UVd=0e6 

LF (RCRA) 2805280451 20 

IF (RAX=RE 1) 280, 280+13U 

TF (RAQ~RE]) 14041404150 

RKAMINSREL 

au TU 360 

RAMINERAO 

IF (ROXA“ROD LP Mel Ue ibu 

RAMAX=KAX 

Go fu 190 

HAMAX=SRC 

1F {RAMIN=KAMAX) 20042K0,200 

RA=RAMAXK 

CALL XRSUB (KXRSUB} 

CALL ARSSUG (XR + XRO+RACRAIPALRS) 

CALL AL RSUBIRT,ALRS» GAMATs4LR} 
ALRMAX=ALR 

RASRAMIN (— : 

CALL XRSUB{KXRSUB) ! 

CALL ARSSUB (Xe ey XROeRAPRADSALNS) 

CALL ALRSUD CRT ALRS eGAMAT ALR) 
ALRI=ALR 

CALL HESUd 

HE TSHE 

IF (NENDsEQG.1-0R.NSUBMG,E4.0)G0 TO 210 
HETA=HEA $ 

HE [B=HEE 

ALL=DELL¢ALRI 

IF (ALL*ALRMAX) 23052309220 

ALL=ALRMAX 

CALL RASUB(KRASUA) 

RAMAX=RA 

CALL HESUB 

ALAMIN=SACOS (SORT (TAURH A= (RAMIN@RE]) 492) /TAU) 
ALAMDA=ACOS (SORT (TAUO#2=(RA-RE]} @H2) /TAU) 
TEMP) SALAMDA~ALAMIN 

1F (TEMP 3-42)24002400250 

TEMP] 361 

TEMP2=SIN( TEMP I ee) 


HAZ (SINC (ALAMDA+AL AMIN} £2.) ZTEMPL) STEMP25TAUM 2G + REL 


CALL XRSUD(KXRSUB) 


59540 
49590 
Hz4600 


54610 
5962) 
596 30 
49640 
49650 
45660 
59670 
59680 
59640 
59700 
59710 
59770 
59740 
59760 
$9750 
S97A0 
59770 
SOTHO 
59790 
S9H00 
S9R10 
$9820 
$9830 


59840 
59850 
59860 
§9a70 
SYARO 
59890 
59900 
$9910 
59920 
59930 
599411 
49049 
49060 
SOUTH 


PAGE 
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urivod wood GO 
gS] gavd AV. 


aoe 


‘ 


$02 GUL -9SE0 


8-£ 


oe eee 
ee et ee ee ee oe 


137 
13a 


142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
15a 
154 
155 


260 


264 


266 


268 
270 


2bn 
290 
300 


310 
32h 


330 


340 
asp 


SUBROUTINE AESUB 


OAMAR=ACOS{(SQRT (RARPA2*KRHH2) SRA) < 
AEE=AEE*?, PANO# (I ALL@ALRI)* (HE *HET) 72. ¢RA#CAMAR* TAU# [ ALAMDAX~ 
XALAMIND } A i 

DVsUVE?, TANO® (RAMAK@RAMIN #¢( (HE SHET) 42,1 FOAMARORA 

[FP (NEND.EQ.1.OR eNSUHMG,E9.0)G0 TO 268 

IF (HE eLE. (HSUBMG 2) G0 TO 264 
AEFATAEEAS2e#ANG4 (ALL =ALAI) # (HEASHETAY/2, 

AEEO=ALEH +2. 4ANQ# ( (ALL=ALRI) & (HEB*HETH) 720 *RAPGAYAROCTAUS { ALAMDA@ 
$ ALAMIN)] 

60 TO Zao 

AF EASAEEA+2 0 ®ANO® ( {ALL-ALRID #{HEAPHET A) /20 4RABG BANS TRUST ALANDAS 
SALA4IN) } 

AEEU=0.0 

DVASDVAe2 o HAND# (RAMAX-RAYTING 4 (HEACHEIA) Ze) PGAMARMRA 
DVH=D VK 42, FAND# (RAMAX@RAMIN) #( (HEBOHETB) £24) #GAMARBRA 
fF CALLSALRMAX) 270» 2809270 

ALRI=ALL 

HET=HE : ‘ 
RAMINGRAMAK ‘ 

IF (NENUJ EQ. 1. 0ReNSUBMG,E9.0I1G0 TO 2lt 

HETASHEA 

HE [d=HtS 

&O TO 210 i 

IF CRAX=RC) 37023709 290 , 

EF (RAVU@RC) 300+ 5005310 

KAMIN=KC 

GO TO 326 

RAMINSRAD 

RAZHAMIN 

CALL KASUB(KXRS5U3) 

CALL ARSSUD {AR XROGHAS RATS ALRS} 

CALL ALRSUBRIRT eALRS eGAMATSALR) 

ALRISALR 

CALL HESUB 

HET=nE 

IF (NENDsEQ.2.0RsNSUING.E2201GO TO 330 

HE TA=HEA 

HE IB=HEB . 

ALLSALRI+UELL 

IF CALL*ALX) 35003500540 

ALLSALX . 

CALL RASUB(KRASUA) 

RAMAX=RA , 

CALL HESUY 

RAs {RAMAX¢RAMIN) 42, 

CALL XRSUS(KXRSUA) 

GAMARZ=ACOS (SORT (RASH IH KASH2) SRA) 

AEE =AEE +2. 4AN04 (ALL ~ALQI} O (HE +HET) S26 

DV=DV42 6 4ANG# (RAMAX-RAMIY) 44 (HE+HET) 42, ) AGAMARSRA 

TF (WEN E91 OR eNSUYMGZEQ.03G0 TO 3598 ° 

AEEATAELA+ 24 MAND® (ALL ALI) 8 (HEASHETA)D / 20 . 
AEEUSAEEB+2 0 #ANO* (ALL ~ALAT) 4 (HEGtHEIB J20 

UVAEDVA+2 4 HAND (RAMAX-RAMIN) 8{ (HEATHETA) 726) HGAMARBRA 
DVO=DVG+ 26 HAND (RAMAX-RAYIN) #( (HED *HETB) £26) *GAYARERA 
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ALRI=ALL 

HE] =HE 

RAMINERAMAK 

IF (NEND.E0,1.0%.NSUHMG,F9.0)G60 TQ 330 
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RETURN 
END 
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SUHROUTINE AFPSUB 
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COMMON/CONSTS/GNOT 9PL P1902 sRAV IAN 
COMMON/WORKA/AING (1) pANOIMSRF =p TAUA = eR2DHeRIDMSR4ADMPRSDM RAD ye 
1 R7DY ROOM ALS IDM ALS2DM+ ALADMS ALB DMs ALEDM AW (5) 
CUMMON/DUMYH / AFD 

COMMON/COML/ THO 

COMMON/COMD/ THSLYV 5 TSLVOMs THSLVV F ASLVR 9 AHO PRFHI pALPXe APXe 
i RSHIALPY + APY eVSLVR 

COMMONS COMT/T AU eRC ySUMDV SAR DHE ¢AL (19) sABARIHS ASE DAFF OWL WT eRe 
iy RADSALL eAUPP AST : 

COMMON/COMY/ AVI SAVZeTV2sTVGeTVSsTVOtTV7TSALVASALVIFALVCsRVZERV3s 
L RVGOXVTODELLIAaNVL 

CONMON/COMZ/ AV3eOVIMsBVEMs THVeRVSeRV7 oO) PAVS PRSLVRV 
COMMON/PARMA/AFR «AL 7 SALBs TAUTOV 9 BVX 9 OVAX 
COMMON/PARMC/DEL3,0EL7,B71+H91 i 

COMMONS PARMU/ ALP ¢ KRASBAs XARSBo ye KGAM 

AFP=0.0 

ALP=0.0) 

PERIM=0.0 

ORF AZO,0 

HVXS0.0 

BVXX=020 

AJPP=O0, 

1F (RV2~TAU) 20920510 

AL (1) S(RV245TAU) # (PIO2"aV)) 

AFPSAOFP + (RV2~TAU) HAL (1) 

GU FO 30 

AL(1}=0. 

IF (RV 3=~7AU)40240,50 

IF (FV2=TAU) 1095100260 

DELLS {TV2=AV9) BTAN( CAV] AVA) 42.0) 
AFH=(RV3A6TV2=2.0# TAU) HELLS 

GO TO 706 

DELLI=(tV2=TAUIOTAN( (AVE AVA) 72.0) 

AFID=(TV2-TAU) #DELLI 

IF (TAU~RV2) 90980590 

AL (2}=ALVA4DELLG 

AFPSAFP+ (HV2-2.08TAU+ TV2) #ALVA+AFD 

Go TO 119 “ 

AL (2) 5ALVA4 ((TV2*TAU) Z(TV2*RV2}) DELLS 

AFPSAF P+ (TV2-TAU) # (AL (2) -DELLS) +APD 

GO 10 110 

AL (2) 206 

DELJ=0. 

CELLI=0, 

AFO#0. ; 

IF (RV3-TAU} 13001309120 

AL (3)=(RVQ~TAU)® CAVI~Av2) 

AFPaAFP+AL (3) 4 (RV3-TAUD 

GO TO 140 
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AL{3)=06 * 
IF (Tv¥2-TAU) 15041505160 . 

IF {FV4-TAU) 180218001 70. 

AL (4) =ALVE+DELL3 

AFPSAFP + (TV2=2 O* TAUTT VG! MAL VBCAFD 

GO TO 190 

AL (4) 51 FVG~TAU) MAL VES (TV 4=TV2) 


AFP=AFP* (TV4=TAU) PAL (4) * ‘os 


GO TO 190 : 

AL (4) 508 

IF {FV4+TAU) 200621002)0 

IF CTVS~TAU) 23092300220 

AL (5) = (RV4+4TAU) # (AV IsAV2) 

APPSAF P+ (RVG 6TV5) (RV4STVG) 8S INAV ARAV2) MAL (5) 8 (R447 AU) 

GO fa 240 

OL (SP= (RVG+ TAU) @ (AVI~ACOS( CIRVOST V4 Zs (RVG* TAU) PCOS (AVZ) 1) 
AFPSAFP+ (RVG¢ TNS) ®(RVGS TAU} AS INGAL (9) 4 (RVS4 TAU) ) © CRVG4 TAU RAL (5) 
60 TO 260 

AL (>)=0. 

IF {TVS=TAU) 2501260 .260 

IF (TV6—FAU) 28092804279 

AL (o) =ALVC 

APPSAF B+ (TVS ~2.05TAU+T V6) SALVE 

GO TA 290 

AL (6) =ALVC® (TV6=<TAU) /CTV6-EVS) 

AFPSAFP+ (1VO=TAU} FAL (6) 

oY) TO 290 

AL od =0e 

IF {TVG=FAU) 30093109319 

TE CIV 7=TAUI G1 004100320 

BV1=8V)M 

AFP=AFP+ (RVS¢TV7) HIRVOOTVG) FSINIBVID HAVIEIRVS+T au) tee 
AFP=AMAX1 (AFPs0.0) 

GU TO 330 

BVLSBVIM*AVS"ACOSTXV7/ (TAUSRVS)) 

AF P= AFP + (AVS+TV7) # (RVS+ TAU) #SIN(BY1)-BVI®(RVS+ TAU) He 
AFP=AMAX} (AFP 90.0) 

IF (RSLVRVI 37093700346 
AVX=ASINCRVT#SINGTHV) SERVS* IVT) MASENIRVZHSINOTHY=FHSLVV) ZERVSeRSL 
AVRV)) + THSLVV 

IF (BVX) 3505350s360 

CONTINUE 

BVxX=020 

TEMPSSORE (TAUWE HZ 64 (RVSHTVTI OFZ ene, #TAUWS CAVS OT V7) #COS LAST NIRVI® 
XSINCTRVIZ ORVS*9V7)92) 

TEMPAZSASINIRV7#SINGTHYV) 4 (RVG TV) ) 

TEMPR=3 e141 S9@ASINIRVISS INC THY) PZERODV I TEMP) >} 
TEMPAPZ=ASIN(ISIN( TEMPA) #TEMPS I RSLVRVERVS ) ) 

BYVXX=TEMPAP=TEMPA 

ASLVR=THVERF #42, =(RFePAUW) BRVIPSIN(OTHV) CC THV@THSLYVV) ARR eto, 
X* (RSLVAVENVS) ARV 7HS IN (3.146159 THV4 THSLVV@ASIN(RV78S INC THV=THSLVYV) / 
XCRSLYRV4*RVS) ))-TEMP# (RSLVRV+RVS) OS IN(3.14159~TEMPAP=TEMPS) 
X= (RSLVRVERVS) #42, 0 (BVEXOSVK) 

1F { FAUW-TAU) 390 + 380+330 

BV2=8V2H 
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AFPEAF P+ THV@RF #4 2-RF ORYVTESIN (THY) MAV2# (RYS+ TAU) Gee 
AFPSAMAYX} (AFP 40,0} 
60 TO 4900 


BVZ=ACOS CC {TAUSR YS) #RE, Bee ee eT Serer ery nei 


XK (RF@TAUWRRYS) )} <BVLM=AV3"PI02+THV 


AF PSAFP+THV#RE #42 senV7PRE HSIN (THY) ARV Po (PAU ORVS) HSIN (BV2M=8V2) 
AWRF #2, PACOS (SORT (1Le= ( {RVS* TAU) #SIN(BVOM@UV2} ZRF) 882,)) -BV24 (TAUSR 


AVS} HHS, 

AL(T} =(BVL4dv2) 4(RVS+TAUD 
6O TO 4626 

AL(P)=0, r. 
BY1=0. 

IF CASLVR) 43024304440 

CONT ENUE 

ASLVR=0.0 

if CAFP) 45004202460 
CONTINUE 

AFP=060 

CONTINUE 

IF (THO) 79047905486 

IF {RF =RVL TAU) 75097509490 
IF (RV2=TAU)S2045009500. 


PERIM = (RVL+¢TAU) OTHO 

AREA = TH) #CRF HO, (RYLETAU) #92.) 

GO TU 790 

ANGAJK = ASING (RF eRV5-TAUW) eSINGTHVD/ (TV6*RV5)} 
ANGARC = PI-TAV~ANGAJS 

ANGACK = ASIN( (RF -RVS-TAJW) SIN CANGAUC) ZRF) 
ANGBAC = PI<ANGAIC~ANGAC3 


"BC = RF&SENCANGAAC) ASIN ANGABC) 

TV6PR = BCHRVS 

TV7PR = ((RF=TAUW-RVS) O92,-RV] #92, sHVSES 2602.9 (RF-HYS- 
XTAUW? PRYSHCOS (ANGABCI I / (2. 4RVE+2.#RV OO Ce tC RE eRUS@TAUW) 
X#COS CANGAHC) } 

TEMP76 = AMINI(TV7PReTV5PR} 

LF {TEMP To-TAU) 660666001520 

CONTINUE 

IF (TV6~TAU) 560 95306530 

CONTINUE 

FR = (TAU+RV2) /SIN(AVI) 

AR = RVLeRV24FR 

ANGRNA = PI“ASINCARRSINCAVL)/ (RVI1STAU)} 

ANGQAR = PI~ANGROA«AV1 

QR = (RVI+TAU) eSINCANGOARI/SIN(AVID 

ANGQAG = ASIN(QRHSIN{AVI) (RAVE TAU)} 

LF {ANGUAG@THO ) 55095401540 


CONTINUE : 3 
QR = ARSSINITHO YZ(SINCPL=aV1-THO )) 

PERIM = aR 

AREA = THO #RF4%2,-UR®ARSSIN{AVL) 

GO TO 790 


PH = (RVI+TAU) Of THO=ANGDAG) 

PERIM = PQ+0R 

ARFQA = THO #RF*#2,@1(THO =ANGQAG) #(RVI+TAU) @92,"0R# 
KAR#PSIN (AVI) 
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GO 18 790 


S60 AR = SURTCCRY5+TAU) #92, + (RF=RVS=TAUW) #82.92,4%(RYS54 TAU) 
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X{RF-RVS=-TAUW) COS (ANGAGC) ) 
ANGRAB = ASIN ((TAU+R V5) SIN CANGABC) ZAR} 


ANGRAG = ANGRAB-THY 

ANGARB = PI -aANGAdSC~ANGRAZ 

ANGARQ = PIO2=ANGARH 

ANGAQR = PIMASIN(ARSSIN(ANGAROQ)/(RV16TAU)) 
ANGOAR = PI“ANGAOR-ANGARG 

ANDUAG = ANGOQAR + ANGRAS 

ANDASB = ASING (RF =RVS<TAJW) SIN (THY) ZERVS* TAU) » 
ANGSBA = PI-THV-ANGASB 
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IF CANGRAG-THO 15909580—580 

ANGORA = ASING CRF -RV5=TAUWw) #SINITHV*THO) /(CRVS¢TAU) 
ANGRHA = PI“ANOBRA=THV=F40 

ANGRBS = ANGSAA<4NGRHA 

“RS = [RV5+TAU) @ANGRHS 

PEREIM = RS 

AREA = ARE Aw (2F#Ry¥5=TAuw) #{RV5+TAU) SIN (ANGRGA} 
X~ ANGRBS* (RVO+ TAU) Ha2, 

GO TO 790 

ANGROA = PI<ASIN(AR#SIN (PL 02-ANGARD) ZC TAUPRV1) ) 
AWNGRAQ = PIC2+ANGARR-ANGRQA 

ANGUAG ANORAQ* ANGRAG 

ANGRBES = ANGSHO-ANGARC 

HS = (RV5+TAU) PANGRHAS 

AREA = AREASAUGRASHE(RVSES TAU} HHA. = (HFM RVOM TAU) 
A(RVS*¢ TAU) SSIN(CANGAAC) 

IF (ANGRAG-THU 3620,610.610 

CONTINUE 

ANGUAR = THU ~ANGRAG 

ANGAQR = PJO2+ANGARH-ANGQAR 

QR = AR*SIN(ANGQAR) /SINCANGAQR) 

PERIM = UReRS 

AREA = AREA=ORHAR®SIN(PTO2=ANGARB) 

GO TO 796 " 

ANGPAQ = THO =ANGOAG 

PY = {RV} *TAU) PANGPAD 

OR = (RVI+TAU) #SINCANGRAD) /SIN(PIO2-ANGARB) 
PERTY = PQOs+GR+RS 

AREA = AREA-URFAR*SIN (PT 02-ANGAHB) ~ANGPAQ* (RVI +TAU) #62, 
GO TO 790 


a 


eu 


ANGSAB = ACOS ( (RF HHA, + (RE RRVS@TAUW) F420 = (RVS+TAU) BHP ODS (2ePRE AIRE 


KRVS~-TAUW))) 
ANGSAG = ANGSAB<THY 
IF CANGSAG~THO )650564026450 
CONTINUE 

PERIM = 0.0 
AREA = OU 
GO TO 79U 

ANGASB = ASIN{ (RFeRVS<TAUW) ASIN (THY*ANGSAG) 4 (RVS+ Eau) } 
ANGSBA = PI-THV-ANGSAG~ANGASH 
AREA & (THD -ANGSAG) #RF AD, REY (RE -RVS-TAUW) & 
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96400 
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96630 
96640 
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96740 
96740 
96750 
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216 
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adel 
2e3 


224 
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226 
22? 
228 
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250 
231 
242 
233 
234 
235 
236 
237 
e238 
239 
240 


24. 
242 


243 
244 


660 
670 
680 


690 
692 


694 


720 


730 
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ASIN (THV*ANGSAG) 
ANGRQA & PI<ASIN(ARSSIN(PTO2Z“ANGARA) / ( FAUPRV1)) 


ANGRAQ & PEO2Z+aNGARB*AVGROA 
ANGUAL = ANGRAQ+ANGRAG 
ANGRSS = ANGSHA-ANGABC 


RS = (HVS¢TAU) RANGRHS . 

IF (ANGHAG*THO )600>580,580 

CONTINUE 

IF (TYbhReTV IPR) 740 9680 ,690 

PEWIM = 0.0 . 
AREA > 0,0 7 

GO TO 790 

TF (FAUTAUW) 69296929698 

ANGUAB=ACOS (( (RV1+ TAU) #42, + (RF-RVS=TAUW) 492,66 (RYS+ TAU) 82.) 7 
X(2,# (RY FTAU) & (RE ARVS=PAUW) )) 

ANGAQK=ASIN( (RF = RVS“TAUW) #STN(ANGUAB) /{RVS+TAU) } 
ANLA8Q=P 1 ~ANGAGd~ANGOAS 

ANGASHEASIN ( (RF -AVS=TAUW) eSEN (THY) /(RVS+ TAU) ) 

ANGASS=P L=THY-ANGASB 

ANGUAGSANGQAU=THY 

IF (ANGGAG-THO) 67656949694 

ANGAQBSASIN ( (2F -RVS~TAUH) SINC THV4 FHO) Z(RV5+ TAU) } 
ANGASQSPIL-THV-THO-ANGAQB | 

ANGHASS ANGADS~ANGABU 

PER LM=ANnGQdS 4 {RYS+TAU) 

GQ TO 790 

PERIM=(RYS* TAU) # ( ANGABS~ANGARQ) + (RVL+TAU) ® (THO -ANGOAG) 

GQ TO 790 

ANGSADEACOS ( [REEMA e+ (RE“IVS—FAUN) HH2 p= (RV DO TAU) HH2,) 74 (25eREH 
XRF “RVS=TAUW) >) 

ANGSAG = ANGSAB © Thy 

IF (ANGSAG@THO 272097009700 

CONTINUE 

PERIM = 009 

AREA = 000 

GO TD 790 E 

ANGQABR = ACOS(CIRVI* TAU) 882.6 (RF ORVO~FAUWH HH2 He (RVS*TAUI SH 2.4 (2 
ACR¥L¢TAU) # {RF -RVS-TAUW) }? 

ANGQAG = ANGQAH =THV ~ 

ANGABS = ACOS(((RERVS=TAUWE A924 (RVSOTAL) MHZ RAF O20) S124 U (RF RVS 
Kw TAUW)# (RVS*TAU) )) 

IF (ANGOAG = THO } 730, 7203720 

CONTINUE 

ANGAQH = ASIN(C(RF@RVS=TAUW) HSINGTHVOTHO 1) /(RV54TAL)) 
ANGABQ = PI = THV = THD = ANGAUB 

ANGUBS = ANGAIS = ANGARO 

QS = (RVS 4 TAU)* ANGQAS 

PERIM = QS 

AREA = (THVST HO ANGSAS) ERE BO2, +RFH (RF “RV 5—7AUW) OSIN (ANGSAS) = (V5 
X$TAU)BO2,H#ANGOHS = (HF @QyV5~-TAUW) 4 (AVS TAU) HSIN (ANSABO) 

GO TO 790 

ANGASG = ACOS( ( (RF-RVS=TAUW) #2, 4 (RVS*TAU) O82, = (QVE STAN) 802.9412, % 


+ K(RFRRVS=«TAUW) ® (RYS*+TAU) )? 


ANGUAS = ANGADS » ANGA3BO 
QS = (RV5*¢TAY) HANGOBS 
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2b 
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275 
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ANGPAQ = 
PQ = ANGI 
PERIM = 
AREA = ¢ 


XTHO @ANG 
GO TO 79 


AT = SORT ( (RF eRVS=TAUW) #9264 (RVSSTAUS HO2,—2, 8 (RF RRVSMTAUW) ®(RVSSOTA 
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THV *THO = -ANGOAB 
PAQ #(RV1 + FAU) 
PQ + OS 


THVeTHO = ANGSAS) #RF#S2, RE * (RE eRVS~TAUN) HSEN (ANGSAB} = 
X(RVS*TAUI##2.% ANGOHS@(RV1+ TAU) # (RFRERVS~TAUW) #51 CANGQAB) ~(THV® 


QAB) #(RVI4TALI €82., 
tt 


XU} @COS {ANGABC) } 


ANGATS = 
ANGSTA 
ANGAST = 
ANGTAH = 
ANGSAT = 
ANGSAG = 
IF (ANGSA 
CONFINUE 
PERIM = 

AREA = 0 
GO jo 79 
ANGOSA = 
ANGAGS = 
ANGQAS 
ANGQAG = 
IF (ANGOA 
CONTINUE 
ANGUAS = 
ANGAQGS = 
QS = RF# 
AREA = R 
PERIM = 

Ga TO 79 
ANGPAQ = 
PQ = (RV 
Qs = RFF 
PEREIM = 


HY 


fl 


AREA = (ANGPAD+ANGQAS) #RE HHA, ROStREESIN CANGOSA) -ANGPAQ® (RVE+TAU) & 


x2, 

CONT ENUE 
AFPSAFPs 
ALP=ALP+ 
RETURN 
END 


ASIN( [RF ~RY¥5=TAUW) #SINCANGABC) JAT) 
P102-ANGATH 
PI-ASINCATSSINCANGSTA) ZRF) 
PI-ANGABC ~ANGATB 

PI-ANGAST ~ANGSFA 
ANGSATSANGTAE}TAV 
G = THO )76097509750 


006 

Pat] 

0 

PI-aNGAST 
PI-ASINIRF SIN (CANGQSADZERVIETAU)) 
PT = ANGAGS = ANGOSA 

ANGSAG + ANGOAS 

G=-THO) 7604770,770 


THO -ANGSAG 

PI-ANGGAS ~ANGQSA- 
SINCANGQAS) /5TN 1 4NGAQS) 
Fete. HANGOAS@RF #OS*SIN(ANGOSA) 
us 

i] 

THO = ANGQAG 

1+4TAU) FANGPAD 

SINCANGOAS) /SIN[ANGAQS) 

PQ + OS 


AREA 
PERIM 
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20 Lt 2u 244 
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60 - 26 30¢ 
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Be ” 32 338 
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160 - 26 304 
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S70 - as 95a 
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440 - 106 10946 
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AL - 7coa 2t= 
S4 56= 
ALAOM ~ 3co 
ALBUM - 3CO 
ALEDM - 3C0 
ALL - 7co 
ALP - 12Co0 14s 
ALPX - 6cv 
ALPY - 6CO 
4LS1DM 3c0 
ALS2DM + 3c0 
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ANGOSA 
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8&9 
148 
210 
248 
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ag 
136 
179 
253 
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S51 
72 
116 
1S5 
194 
235 


114 
209 


94 
195 
2438 
139 
202 
266 


31 


69 
7S 


89 
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- 250 
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90 
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1H3 
243 
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7? 
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19? 
197 
230 


12) 
aie 


97 
19b 
256 
14) 
215 
268 


34 
60 
71 
78 


gu 


32 
158 
P16 
251 
101 


91 
141 
Yas 
270 


94 
160 
219 


92 
145 
194 
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31 
57? 
7a 
129 
160 
20A 
242 


147 
216 


10} 
213 


145 
Al? 


47 


129 


go? 
1f3 
2? 1 


4 
143 
196 
Pla 


3e 
58 
BI 
131 
143 
209 
7464 


1h 
223 


119 


214, 


158 
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48 


1590 
LAS 
P23 


97 
152 
197 
Pre 


34 
39 
H2 
3 
145 
ain 
246 


158 
230 


i20 
el 
1S 
2e5 


to} 
V7y 
230 


in} 
155 
ein 


50 
dy 
t35 
1h? 
21? 
48 


169 
230 


149 
21? 


160 
5d 


DAGF 


- 102 
172 
7? 


119 
158 
212 
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91 

13h 
171 
216 
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145 
eas 


145 
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PAGE 26 
wl ~ 7co 
»WORKA «= ae 
wT - 7co 
XBARIH = 7co 
AR - 7co 
XVI ‘- aco 81 


THE VARIABLE= ZERODVY “IS USED BEFORE IT 1S OEFINED 
ZEROLDY = 91 
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INOUE X 


~ om F FUN 


SUHROUTINE AIBST(IE) 

SURROUTING ATASTITF) 102170 
cceccceccececcececececccecececeoceeccceccecccuccucccececeeccecececerccece =n gan 
c SUBROUTINE AISST OETERMIVES THE PRESSIIRE LOSS AND CHANGES IN THE 107400 
Cc GAS PROPERTEES BETWEEN [NCREMENT OIVIDING PLANES DUE TO MASS 102410 
c ADDITION ANO AREA CHANGE FOR THE NOW-STEADY FLOW SOLUTION OF THE 107420 
c INTERNAL BALLISTICS {SECTION Geledelde, 102430 
ceecceccecccecceccec.tececececcececcecceececcecececececcecceeceerecececc §=102450 

COMMON/BLKO 057 NLEwIS o NST eNF ¢NRECUN PNCASES«NDISP ALL 

COMMON/CONSIS/GNOT sPT 9 PI02 sRADTAN 

COMMONS INPUT /NPHePHST (70) 9 TIMEPH(70) eARRST oe TAUAKH (30) 5 

] AKRTAU (30) eNTAUTOSPCT AL 
COMMONS TNPUTG/CS TAR SGAYA SR ANCSTR sPRESS (20) sCSTR (20) «GAMAG 120) « 
1 AMwO(P0) » TCOMB (20) sNCSCOE 

COMMONS INP UTM/STFLAG sSTOYST DELTST VEL ISS IFLTTO 

COMMON/INPUTP/NEPS, TIMEPS(S0} sEPCA(SI} ¢F PCN (50) ,NVACTEL SACCELT (501 6 

l TIMEAC (50) 

COMMONS INPUTOQ/ C2? «CRT CRA 

CUMMON/ INPUTU/UELF 9P4e PHT eHCOPDEL 7 KOU Te) 

COMMON/WURKA/AINC CL) eANOIMeRE — p TAUHIM AR PD Me 3 4a RGD MERON RAD 

i A TIMphAD Ms ALS IDMeALS2UM es AL ANTS ALH IMeALEDMs AW (5) 

COMMON/ WORK RNZRN) CH) oe VEFNOOVENS ACK (10) 

COMMON/DUYYCANTE ST e TIMECS 

COMMON/TOMASNELT eAPH 1] eH DOTESANTHOe TEMEW SUT PANLOY Se ACCEL 

i ASCYLePRNT (101015) sAENCHL sAMACHe7CALCL1O}) 

COMMON/ CU / TAUZ C1017 6 2370101) pe FAUZTOC LOL) sRBZTOCLON) oPHITGLds 

1 TAUMIP CLO] es VF eDWNOT oe VP 

COMMON/CU4H/POPR(LO1) eV C101) eVPR (LOL) 

COMMON/PAHMSZAP pPMIN PMAXSHDOTS TD] De TP sdDUPD sNSLOTANTAME sNEME Ss 

1 TadTOs TOFLAG eNINCPL ¢BRNOUTS LISe IS) sIS2eNTsSCIR (LHe?) 

COMMON/PAKMF /9H ep FIME sAENCH sy Pe P VEL TAs AKOY ePONS DES eAMPNe AT « 

1 AMw a AKRST 

COMMON/PAKMG/VE He AANS VE NeVISeAT Ts SPHUT. SPUNDT SVE INI» Vers AAT OT 

COMMON/PARMK /F 5 EP] sPEPDeCFOL VF WEB WO EFI »pCLOPSeCFOOWOTOT s 

] SwOOTN 

COMMON JPARMS/ICAN 

CUMAUN/PARMAS/TUe IFLAG 

VATA NAPS TXLPDALePOYLeE Le TL sTE1 EPS/8 20607 10? 360 

TF QCTME E2000) TIMECK=~1.0 

VEL Z=AINCWHAINC AI 1op470 

IF COTUYST 1.0) 30910430 19?A980 
10 CONTINUE 102440 

IF CSTFLAG) 30520430 o25n0 
20 CONTINUE 1Hee10 

CALL AlBSUB{IE) 102520 

GO TO 630 1024530 

30 TF (NFPS) 90590240 
40 CONTINUE 102540: 
IF (NTEST) 50950590 
50 CONTINUE 10?5xH0) 

NTEST=] 102590 
90 IF (FEME CK TIME) 10061400140 102650 
loo CONTINUE ” 102640 

TIMECK=7 IME 102670 

IF (NEPS) 12091200110 10?6a0 
ei) CONTINUE 10?PH40 


Pat 


. 


AWTVNG Uood FO 


S] GOVd TVNE 


OLE 


en 


reuZeol? ose 


Le-€ 


ico 
130 


140 


150 
166 
L706 


luo 


1va 


200 


2kU 
220 


230) 


240 
2oa 


260 
270 


280 
230 


SUBROUTINE ATHSTCIE) 


CALL XLINUTIMEPSs EPCAsVEPSe TIME SEPSAS27) 
CALL XLIN(TIMEPS »EPCNs NEP Se TIME sEPSN»o 2B} 
EPSSEPSA+ (EPSNWEPSA) FAINCWYZERODV (HCO) 
IF (NACCEL) 14001405130 

CONTINUE 

CALL XLIN(TIMEAC s ACCEL T+ VACCEL s TIME cs ACCEL 029) 
DAPHI=pAP 

DAP=6, 2831 B4EPSHRF HRS 

PRNTCIIT.28)=D4P 

IE=0 

WOOTI=WDOTD 

PIN=Pp(IIT=2) 

PCRIT=PING (1, tGAUAHAMACHO 42.) SEGAMAS1«) 
IF CLI LE. 2) AYMACHEUS ZER09V (SORT (GNOTHR® THQ AMA) } 
IF CILTI-N1) 15021505166 

CONTINUE 

V(LL1) = (APH +4P+3APH1 +947) ONELZ/2. 

GO FO 170 

VIITLTPSVCN-VEN 

CONTINUE 

TRC TIME -DELIST) 1 806140,190 

CONFInve 

PUPR(1)=005"P-1] 

POPRCLII} =0,5*Fri} 

VPRETLTI} = verrl) 

CONTINUE 

TF IPINGGTe (V.De8PHT) COR. TIME.OF e060) GO TO 210 
CONTINUE 

WUOOTD=0 40 

PDCTTI)=0.5¢°41 

KE TURW 

CONTINUE 

TF CR DUMP (.3)) 23092300220 

CONTINUE 


WRITE (6 e600) PINGPOCTILD PUPRCTTE=1) PDPROLI DT ev(I TL eVPROTTD) « 
APH] 9 OP sUsUIMPShOUTT eOWDOT WI TDeReT eOEL Te LI] sPOyYs TEMPS ACCEL 


CONTINUE , 
TS2I 
AMSGSAMACHHH2, 


DOT=Tk (GAmMA=} 02801 2 eG AMASAMS(Q) CAMSOODWOUTEZEHODY ( (be ANS) OwDOAT} 
UP=PINED WOOT 82, HGAMAPAUSOH (1.4 (LA4A@1.) HAMSU/ 24) O2EROOV(BNOTIO( Lo= 


1AMSQ} } 

POUT =P ]N=DP 

ITER=O 
TF(LTER=1)2502260,270 
T=TS-UT 

GO TO 270 

Ts1S-Dt 

TX2STX] 

TX1=ST 

DP=PIN-POUT 

IFLAG=0 . 

IF (LFLAG-1)290530005)0 
CONTINUE 

POULTI) =PIN-07 


102720 
102730 
102760 


102760 


162780 
102800 
102A40 
102820 
102830 
192440 
1o28Ro 
102490 
toPsno 
162910 
102920 
10pP9 40 
uedsa 
100950 


10°9H40 
102990 


la3elo 


107040 
1030450 
1930460 
103070 
LO30RD 
19369) 


163110 
193120 
1031 30 
1O3)466 
1N3d50 
1031460 
193170 
1N3t80 
103390 
103200 


tO3220 
103230 
13°40 
03250 
197260 
103270 
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INUE X 


94 
93 
96 
9? 
3] 


a4 
100 
1ol 
102 
los 
104 
10> 
106 
107 
Lud 
Juy 
110 


it) 


lie 
tla 
114 
_ rid 
Ito 
laé 
lin 
ii 
120 
lel 
lee 
123 
124 
1245 
126 
127 
leu 
ley 
130 
131 
1lje 
133 
134 
135 
136 
137 
lid 
134 
14 
141 


300 
31g 


320 


330 
332 


350 
360 


370 
380 


390 


410 
#20 


430 


SUBROUTINE ATRST CIE) 


GO fo jlu 

POCTEL) =PINeD?F 

PUXESPUX1 

PIALESPDCLIY) . 
OWDTS CCPICT EL) #P IN) OP AV CTIT) mVPROULTD) AVE TL1L) #CPUPROTET) © 
APIPROET IT W1d 2) SZERODV CL 2.888 (TST) SOREL T) 

PAMF CTT] ebtds wor . 
WOOTO=WOOTIT 40400 T “Dwi I 

1F (HO0TD) 32065206338 

CUNTIANUE 

WOUTD=0,0 

UTMP=0,.0 

GO 10 532 

UTMP=WOOTDORe TZ (PO CET ID & CAP +DAP) > 

UMAX=SURTIGNOT#GAMARRET) 

[FEUTMP 46T* JMAXIUTMPSUMAX 

wOOT=avOTD 

POY= (WOOT LOUe 2b CODY (4 NOT) = eDOTI EU TAP # Ze RY PGT) ee Td (APH ED aA] 
Abo @ (PIN\POCTI TI) 74-4 
Ae PAP ADAP PAPAL} UAPHIISIVITED Cer FAP) OCMIMOPD IT EL) ePDIRIT ETD © 
KPOPRIL Tele (POC bby ee ay odus tee oe iver be VPA EL de Ze Rov EF a 
Av QUT ee 
AMCTS#T) FUEL TIO ZERO fae onary) 

FEMPSs ( (PENOP CITE ED) 8 (A246 AP + APHE oH APH) PACCEL Hb 21 FLERSIIV O26 HHO ( 
TSS + TPetae 6 AP)) ; 

DP=ShIN-PLyY 

POY=PUY4 Th Me 

POYZ=FDYA 

POY LSRDY 

£2=E1 

Fl=(PualePaAY]} #ZERODV[ODKI) 

LF CRDUMP ($22 39003508 $40 

CONT ENUE 

WRITE (60SH0) LFLASSPUCLET) POV es MUTI rOKe POT eet Lote 

IF CABSLEL I~ CRP 2490 ea ale 160 

CONTINGE 

TFLAG=]FLAG4) 

LF CLFLAGALT.d)G) TO PHO 

IF CTFL AGH27) 39M s IU 1 GHD 

CUNT INUE 

LF CCUTHPZUMAA) 2LT. U6 75)G60 TO 390 

SLOPE= (PLY2=PdY LE) /{PDA2<204)) 

IF CARS {SLUPE) 6GTe 0495)50 TO 390 

PUCTIT) ® (POY) -SLOPE*PDK1) / (1 .0-SLUPE) 

bO TO 310 

LIF CIFLAG 6GT. SIFDCITI) = y-(PD(IT]) -PDyY) 

IFGIFLAG .Gt. $)GO0 TO 310 

POLI 1) SPd¥~ (PDCITI TI =POY) #ROT/GIWOT# (WOUTHZ (PDYS (AP AR) )) #92 
40 TO 310 

TF (NAKRST) 44044405420 

CONTINUE 

IF (TIME COTS TIMFPA(NPH) ZUR. NRECONZEQ.U) GO TO 440 
CONTINUE 

Es} 

AKRST=,9#AKHST 


10 3290 
103300 
103310 
193320 
La3440 
103340 
143350 
1N3359 
CURE Ral) 
103480 
104390 


10340) 
Due dn 
Th iaad 
19 195% 
1disAy 
1 gary 
]9 $440 
1016 90 
ie be 


1n3S14 
10454 
ld 3540 
10 35460 
te eal 
1 S40 
1N35?0 
1A3a40 
104520 
103640 
peel 
[Hise 
piltAanh 
lu 3a7?y 


1973730 
103/40 
103750 


1a3?70 
104740 
103799 
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142 
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144 
145 
146 
147 
148 
149 
190 
15k 
1$2 
183 
154 
155 
lb6 
1S? 
1S8 
15¥ 
160 
lol 

162 
163 
164 
165 
166 
lo? 
166 
ley 
170 
wal 

ive 
173 
174 
e-) 
176 
Ww 
178 
179 
180 
18t 

lae 
183 
184 
185 
}86 
1a7 


188 


189 


440 


450 


460 
470 


4A0 


490 


Sot 
510 


S20 

$30 

$40 
350 


soo 


540 


590 


600 


SUBROUFINE AIBST(TE) 

GO TO 470 

1E=1 

PMINSPH 

EF (PMAX"500000) 46024509450 

CONT INUE 

PH=1.3#PH 

GO'TO 470 

PHs (PMAX*+PH) /2, 

CLOPS=0.0 

DEED=0.0 

WwO=0.0 

b0 TO 630 

IF (UTHP .GE, JMAX)GO TO 410 

WRITE (62590) [FLAG 

WRITE (6e5U0) TFLAGsPD (IIT) sPDYsWDOTD oPNX2PIY2sE1 sb 2 

IE=2 

ECHN=S 

RETURN 

CONTINUE 

T=TO— (GAMA) oH UTMPHH2 7 (2,8GNOTFGAMAHR ) 

DF=1S<T 
POUT=PUCIIT) 

1V¥2=TY¥1 

TY1ST 

TE2=Té) 

TELS (TX1-1Y2) S7£RODVITKL) 

ITER=I TER} 

IF (CI TER#2) 2609500 ,500 

IF CI TER@27) 52093209510 

WRIIF (oeG1lOVTIT 

WRITE (Gs020) TTERe TXle Tris TX2sTVes tel etée] 

Ik=s2 

ICHN=5 
RETURN 

EF (XDUMP (3) 1354075404530 

WRITE (6e620) 1 TER TX a Ty) eTX2,TV2eTFloTk2 

IF (ABS{(TE]) ~C2T)$604560,550 

CONTINUE 

60 TO 260 

P=PDILIT) 

IF (UTMP GE. UMAX)GO TO 410 

USUTMP 

AMACHSUMZERODV {SORT (GNOTPGAMAGRET) } 

DEL TASWOOTO* ZERODV (12. % {AR 4NAP) HU) 

AMPN=AMAX | CAMPN»s AMACH) 

FORMAT (2X4 sONIFLAGZI2A 2X e SHPN=IPE 10 eo 392K a 4HPYSIPE Ue Seeks 6WDO FDS! 
XPE10 630249 SHPOX2=1PE10, 302% s SHPDY2S1PE 1 Oe de 2k eSHELSLPE10. Be2Xs SHES? 
A1PE1003//) 

FORMAT (1X9 7HICOUNT=I3e1 Xe LO 7HITERATION FOR INCREMENT DISCHARGE PRE 
XSSURE EN SUBROUTINE AIaST HAS FAILED *#EXECUTION HAS AFEN TERMINAT 
XEDAH) 6 lhe 

FORMAT O//5H PIN=1PE10+¢3e2X eAHPDIITI TD} S1PELUe3e2Xs 2 2HPDPR(ITI-1) =1PE 
X10 03+ 2Xe1 OHPOPR(LTID=LPE108392X%s THVITIT) HSLPEL On VAX es DHVPRITII) H=]PE 
K10639/6H APHIZ=IPE1 003 2X se BHAPHLPE LU 322k y2NUA1LPELN 230 2X SHUTMPH=LPE] 
Xe 3+ 2X e6HWDOTI=LPELUL 3p 2X ypS6HOWNOT=IPEI0, 392k sb4WwOOTD=IPELDI/34 A= 


103A090 
103420 
193820 
103830 
103840 
103450 
103860 
103870 
103880 
103890 
103900 
103910 


103930 
103940 
103950 
16737940 


103990 
104000 
1094010 
inanen 
1o4os0 
104060 
Loe0sa 
104060 
104070 
19400 
194096 
104100 
104110 
104120 
104130 
104140 


LO4140 
104170 


104140 
1n4200 
104210 
194230 
104240 
104250 
104260 
1N4270 
1N6ernod 
194290 
104 390 
104310 
104326 
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190 
391 


19¢ 
193 
194 
195 


610 
620 


636 


SUBROUTINE alTAST (Lb) 


XLPEL06322Xe2HT=1PE10.5,2% sSHDELT=1PE10.3,2X04HY T=] 3 9PX 9 4HPOYSI PEL 
KO 639 2X eSHTEMPS IPE 104392 eBHACCEL=IPEI0.3//) : 

FORMAT (25HOFTERATION FOR INCREMENT sI3eS3HDISCHARGE TEMPERATURE IN 
XSUBROUTINE ALSST HAS FAILED.) 

FORMAT (1X+SHITER=13s2Xp24T=1PE106 302K eGHTYL=1PE1003¢2% sSHTXP=1PELO 
Re Ue2XeGHTY2=LPE 1G, Ie 2X, GATELSIPELO 3 eAX oe GHIE 221 PEO.) 

IF (Tel TeS2000) 1E=2 

IF (LE eEQ.2) 1CriN=S 

RETURN 

END 


104330 
104740 
1n4 isd 
104 150 
104370 
104380 
104330 


‘1n4aang 


booaiu 
104420 
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142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
12 
153 
154 
155 
156 
157 
158 
159 
160 
16] 
162 
163 
164 
165 
166 
167 
168 
Lo 
_170 
171 
172 
173 
174 
172 
176 
iv? 
178 
179 
180 
bal 
la2 
1a3 
184 
lad 
196 
187 


188 


1a? 


440 


450 


460 
470 


480 


490 


Soo 
sio 


520 

530 

540 
$50 


S60 


SUBROUTINE AIBST(TE) 


GO TO 470 

TE=1 ‘ ‘ 
PMIN=PH 

1F 1PMAK=5000.01460 94505450 
CONTINUE 
PHsltel*PH 

GO TO 470 

PH= (PMAX¢PH) /2, 
CLOPS=0.0 
DEED=0,90 

wOxr0.0 

GO TO 630 

IFCUTMP .GE» UMAX)GO To 410 
WRITE (60590) FFLAG 
WRITE (60580) TFLAGyPDCII YT) sPOY¥ eWDOTD rPNX2ePPY¥2sE1 2E2 
IE=2 

ICHNSS 

RETURN 

CONTINUE : 

T= T= (GAMA}] a} CUTMP PRA (2 eo PGNOTPGAMAHR) 
OT=TS+F 

POUT=PDCIIT? 

VY¥2=TY] 

TYST 

JE2=TE) 

JEL=CTXL=TYL) S7ERODVITX1) 

ITER=I1TERs] 

IF (LT TER~2) 2609500500 

IF L{ITER-27}520,520,510 

WRITE (oeG) 00111 

WRITE (Ge620) ITER FXLolyi es TX2eTY2eTEl sVE2 
1e=2 

ICHNS5 

RETURN 

IF (KDUMP (3) 154025409530 

WRITE (G0620) ETERoTXLoTyie FX2eTy2eTEl sTE2 
IF {AGS (TEL) -CRY) 560 9560 +550 

CONTINUE 

GO TO 240 

P=PDCITT) 

IF({UTMP GE, UMAX)GO TO 410 

U=uUTMP 
AMACHSU*ZERODV (SORT (GNOT HGAMAGRET) ) 

DEL TA=wDOTD*ZERODY (12,8 (AP *DAP) #U) 
AMPN=AMAX] (AMPN» AMACH} 


S8O FORMAT [2X s6HIFLAG=1 202% « BHPD=1PE 100 392% p4HPDY=1PELO 63+ 2X es 6WOOTD=1 


XPE100392X eSHPDX2=1PE10¢392X sSHPDVA=1PE10,392Xe3HELHLPEL Oe 382% 5 SHE2 
X=) PE10.34/} 


590 FORMAT (Xs THICOUNTH=I39] Xe O7HITERATION FOX JNCREMENT DISCHARGE PRE 
*XSSURE IN SUBROUTINE AISST HAS FAILED **EXECUTION HAS BEEN TERMENAT 


600 


RED**) 

FORMAT (7/5H PIN=1PE)00392X 24HPO {ETT} =1PE1003+2Xe}2HPOPR(ITIY-1) =1PE 
X10 e3e2XslOHPDPRILI1) SEPELOeDe2Xe THVIITIDSLPEL 0a 392k 9HVPRITET) =IPE 
X10.3/6H APHI=IPE10.302X e SHAPZ=IPE1 0039 2X e2HU=1PE106392% SSHUTMP=EPE 1 
X0e302X s GHWDOTI=1 PE 003s 2X sGHOWDOTH=IPE 100 392% eGHWDOOTDS1PEI0.3/3N R= 


103800 
103510 
103820 
103830 
103840 
103450 
103860 
163870 
103880 
103890 
103900 
103910 


103930 
103940 
103956 
1039460 


103990 
1040900 
104016 
194020 
104030 
104040 
104050 
104960 
104070 
104080 
104090 
104100 
104110 
104820 
164130 
104140 


164140 
LOGE7O 


104240 
104200 
104210 
164230 
104240 
104250 
104260 
104270 
20462A6 
194290 
104390 
104310 
1043206 
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p0zLUt=yszd 


Uf-E 


INUE xX 


190 
19) 


ivd 
193 
194 
145 


$10 
620 


630 


SUBROUTINE arasT(re) 


XIPELWe Se eXs2Hl PE) 06392 SHDELTHIPE] 0.3 9eXeGHT | Let ase Xs 4HOpyvalPe | 
AO 9 302% oSHTEMP=1 PRE) 0 2302X pGHACCEL=IPE10.8//) 

FORMAT (25HOITERATION FOR INCREMENT. [3 ¢SGHDISCHARGE TEMPERATURF T% 
XSUBROUTINE A13ST HAS FAILED.) 

FORMAT CI XeSHITER 139 2X 24THIPE LO. Se2XeGHIVIESLPE 10. 392X s4HTXP=1PE IO 
Xa Be 2X oGHTY2=1 E10, 302k g44TEL=IPELO. 32K eGH TEAR IPEINSIZ/) 

IF (tsLT.5e0.031€=2 . 

IF CIE.FQ.2) [CANS 

RETURN 

ENI} 


104430 
104340 
104350 
104360 
106379 
104380 
104370 
104490 
10441lu 
1044/0 


Pabe 


in 


PrbcuL (7 3SeU 


Lene 


INDE xX SUBROUTINE AIBST(IE) 
SYMECL taped etm sewempwsmrnewesemtatmtwimsiampntaymtiosa REFERENCES 
lo - 2B 264 
20 - 27 ue 
30 - 25 2? ale 
40 - 31 jet 
Su - 33 34% 

90 - 31 33 364 
100 - 36 37° 

110 - 39 404 

120 = 39 44h 

130 - 4% 4Ge 

140 = 36 44 oye 
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SUBROUTINE ALRSUB DETERMINES THE ARC LENGTH OF A SECTOR IN THE EN) 
SECTIONS FROM THE MINIMUM POINT OF A SECTOR TO a GENERAL POINE 
ALONG THE PERIMETER OF THE SECTOR (SECTION 5.2.3.2). 
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RETURN 
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RETURN 
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SUBROUTINE ASESUB SETS SETS UP THE CURRECT EQUATIUNS FOR 
SUBROUTINES XRSUB AND RASUB AND ASSIGNS FOR EACH SECTOR THE PROPER 
VALUES FOR THE COORDINATES OF THE ORIGIN OF THE CIRCULAR ANC (RAD® 
XAO)s THE RADIUS OF CURVATURE OF THE SECTOR (RT)» AND THE 
PERIMETER LENGTH (AL) OF THE SECTOR (SECTION 5,253.2). 


ecccecceeccccceecceccecccceecceccceccccecececocceccecceececccecececccccceccc 


50 


COMMUN/INPUTC/ Ans AKK » DLRF sORVRF 
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SUBROUTINE BRAKSS ‘ . 
ecccececceccceccececcccccccccecocececeecececcccccecececccceceeccoececcecerce 


c SUHROUTINE BRAKSB DETERMINES THE LENGTH OF THE PDTAGOVAL OF THE 
c PARALLELOGRAM THAT IS FORMED BY THE INTERSECTION OF TWO PLANTS IN 
C THE BLOCK 1 ANALYSIS (SEE FIGURE S23) 
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C SUBROUTINE CONV DETERMINES NEW ITERATIONS LUE FOR ETHER AKXST 
c OR PCTAB LURING THE START TRANSIENT CALCULATIONS FOR THE INTERNAL 
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SUBROUTINE DPRASB DETERMINES THE DISTANCE BETWEEN THE POINTS PRA 
AND PRA's PSA AND PSAs PRX AND PRK'+ AND PSB AND PSH! THAT LIE ON 
THE PLANES PRODUCED IN SECTORS 3A ANU 48 OR 11a ANN 218 IN THE 
BLOCK } ANALYSIS OF SUBRSUTINE SCI (SECTION 5Sa2.1,122). 
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SUBROUTINE ENOCSS3(IER} 
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SUBROUTINE ENDCS3 DETERMINES THE COEFFICIENTS OF A FOURTH DEGREE 
POLYNOMIAL EQUATION OBTAINEN Ay THE INTERSECTION OF AN ELLIPSE ANU 
A CIRCLE+ CAE» Coby CCCEs CCVEs GOCE, CDYEs AND VEVE AND 
DETERMINES THE CONSTANTS RETe RE2e ALFike ALFEMs HEIs HE2s AND HED 
THAT DEFINE THE GEOMETRY OF THE FOREHEAD AND AFT@HEAD SECTIONS 
(SECTION 5e2.301) 0 


pec cecececcecececeececceecececceececceccccececeeccccceeecececcecceecccce ccc 


COMMON/CONS TS/GNOT eP 1 sPJO2eRANTAN 

COMMON/INPUTC/ AK» AKK + DLAF SDR VRE 

CUMMON/WORKGS/A (5) e@R1e2De TH] TAM y TOM e TSM XG5 0 VGS PALCOAN Ye YOSe 
RODXUS eYODeRASsXOTeYUTeRUTSTEOMeTTAs TL AaMeX7OsY 7H 
ALD e XOOeYOPeROPSXOLL oe VOLIsSRVLI + TIO4e T94e TAUMs THOs 
TH3 9 TH4 971M eB 72M2 892M H92M 


COMMON/WORKA/ATHCCANG Lar TAUWGHE 24 yRosl85 96987 HAs 
1 , 


ALS] eALS2eALACALBOALE sAW(S) 
COMMON/WORKDE /UE} ¢HE « AOEY 
COMMON/WORKRE/RE1 +ALFEMeALFE eRE2tHE] sHtE2sHEOs HERS VFEOsVCED 
TAUEDs TAUE! sCAE sCBE aCCCE sCCVE sCOCE s COVE sCFCE CE VE 
COMMON/COMP/DEL L + RTs ALAMIN® AWE SHAMING ALAS ALAMDA 
CUMMON/COMQ/DELLO-DELLOI 
COMMON/COMR/DELLA pRE Le XPZ PAZ 
COMMON/COMS/ TPR + AKRADJ, TEND 
COMMON/COMT/ TAUSRC ey SUHDOV a XRSHE AL (15) eABAKTHY ASE pAFF oa Wie WT ods 
RADSALL vAUPP 1 A5I 


1 
COMMON/PARME/ AP sPHING PMAX pWDOTe LI Ie TL] Ue WDOTD sNSLOT eNTARE rNTME > 


TAUTOs TOFLASSNINCPL pBRNOUTeTLSeI51e1S2eNT eSCUR(1He2) 
COMMON/PARMAB/ SUBMGs VSUBMG + NEND PASE As ASES eSUMDVAsSUMDVG 
COMMON/PARMAC/ HE ASHER, AEE Ae AEEH OVOs DVB HE TAsHE 1 Be AWFAsAWES SDELY 
COMMON/RARMAI/S VENACVFNB s YCNASVCNG 
IER=0 z 
WRITEL Gat Od 
FURMAT(SH UDE1+12X92H8E 413% s4HAOEM) 

WRITE 6+20)0E153E,A0EUM 
FORMAT ()X2 BCL PEI5,7)) 
ALFEM=AQEM/RADIAN - 

REL=DE1/2. 

IF (ALFEM) 30030050 

WRITE( 6440) 

FORMAT (2INOALFA E MAX TOD SMALL) 
1@R=} 

IF (RE) =RF) BO + BD e060 

WRITEL 6570) 

FORMAT CISHORE] 790 LARGE) 
1ER=] 

IF (BE-},0)90+120.99N 

IF (oO LABS (BE~1 60) } 12051207100 
WRITEC 62110) 

FORMAT CISHOINYALID BETa ©) 
I€R#) 

AER=ACQOS (REL/SORT ((RF #e2-REPHH2) MBE H HARE L BAZ) 
IF (AER“ALFEM) 23021309160 
ALFE=AER 

RE2=RE1 
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SUBROUTINE ENDCon TERY 


HE1=0 

G) TO }50 

ALFESALFEM 

RE2Z=COS(ALFE) HF #BE/SURT (COS CALFE ) O42 HHERH2R COS (CALFED Oo 2% bail 
HELZ(REZ@KEL)/SINCALFE) PCOS (ALFE) 
HEASSQRT (RE OP 2RRES RHO) SBE 
HEQ=HE} HE? 

IF ¢NEND.EQ,2 

TF CHEO@TAUM) 17051604160 
HERSHEO 

GO 106 1B0 
HERS=TAUM 

60 TO 160 
HER=HEO*VELH 
DELLSOLRF *RF 
DELLO=0e0 
DELLR=000 
TAUEL=SORT ( (REZ@RE] PH HOHE] HE) 
TAUEUSSORT ( (RF-REL) #82 eHEOH #2) 

ALE THE=RF/AE 

TAUS0 

CALL LPDAPS 

TEMP) = ((RE2SRE] ORE] OH 2+RE2hH2) /3,0) PHELYPL 
TEMP2 = (CALI TRE®8243,0-4E2442)/3,0) CHE QHHE Se Qun| 
VCE = (HER-HED} *RF HO 2eD] +TEMP2+TEMP] 

IF (NSUBMG.EQ.0 OR. NENDWEQ.1) GO TU 196 

TF CHSURMG.GTeIELH) GO TO 192 

VCNA = HSUSMGEPT ORE ose 

YCNB = VCE = VCNA 

60 TO 196 

LF {HSUBMG.GTe(DELH+HE2)) GO TO 194 

VCNA=DELHSP ORF Gere ( (ALT THE 84 2239.0= (HSUAMGHDELH) 402) 79,0) 9 
% CHSUBMG=DELK) FRE PR OQHPT 

VCNBEYVCE@VCNA 

60 TO 196 

VCNAZDELHOP[ MRF S42 © FEMAZ+ ( (RESSARE PeKELOH2EREP HES) £4,0) # 
b{HSUBMG<DELH@HE 2) FFI 

VCNUSVCE=VCNA 

TEMISBE eH 

TEMISTEMI<1.0 

CAESTEMit#e2 

CBE=<TEM1*TEM3*RE1P4.0 

TEM2=RF eee 

TEM4=TEM2*TEM] 

TEM4=4 TEM3# #24 TE43) HHE DAH 2s TEMG 

TEMS=RE Lee . 

TEMS =TEM4<TEMS* TEM3 
CCCES(VEM3*#2°TE454#3,0¢TEMG) #2.0 
CCVE=CTEM3#4#2~TEMS) #200 

TEMSsTEM2* TEMS 

CNCE=( (HEQ##24 TEMS) HTEMZOH 2+ TENG} HREL F400 
COVE=4.04#RELHTEUZRH 2 = 
TEM4=TEM2 #24 ( TEMS-HEU# 82) #FEMI* FEMC#2 50 
CECE=TEM4S+ (TENS HHEOe #2) HH 24 TEMQH OD 
CEVE=(HEO4#28 TE 434 TEMSH TEM 3+ TEM2) OTEM 4240 
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SUBROUTINE ENDCSA (IER) 


CALL ASESLIA 
VFFOSSUMDV 

WRITEC 69200) 

FORMATISGH REL] 2% ¢SHALFEM, LOX +4HALFE 911 Ke THRE A 612% 9 SHEL 6 LOX s 
KAHHE Se D2X9 IMAEOe LL As SHE) 

WRITE GeP1OIHE Le SL FEM se ALFR RES HE] HE ne eHE aR 

wRITEC 69270) 

FORMOT(6H YFEOs) LAs diVCZe LAK SHTAUEUs 10K SSHTAUE ] v1 OX THCAF + 
ALP Xs JHCHE BEX s4HCCCE as 1X e4riCCVE } 

WRITE ( 6210) VEEDe VCRs TAJEOs PAULL CAE sCAF eCCCE ef CVE 

WRIETEL @9230) 

FURMAT (6H COCKE LEM eGHCOVEs LI Xe4HCeCh ol 1K e4HCEVE} 

WRITE OE be 2hsutCUCEs COVE s CECE »CEVE 

FORMAT (1X96 01PE 15.7) 97) 

FORMAT OL Xe FELPEL S07} eLPEL4.T} 

RETURN 
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SUBROUTINE ENDCSHCIER? 


REFERENCES . 
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peucuot-acza 
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*e Ve CER 


INUEX 

ALS} - $Cu 
ALS2 - 5c0 
ALM - 8Cu 
ANU - sco 
AOEM - &C0 
AP - 13C0 
ASE - 12eco 
ASEA - 14cu 
ASEB - 14C0 
ASESUB = Que 
as! - 12C0 
AW - 5cu 
Awe - 8CO 
Awka - 15c0 
Awe - 15co 
ad - 10C0 
Eis - 6CU 
BRNOUT = 13C0 
d/i4 - 4CU 
s72M - 4CcO 
J9IM - 4co 
592M - 4c 
Cae - 7CO 
Cot - 70 
LCCE - 7CO 
btve ~ 7Co 
COCE - ico 
COVE Pad 7060 
cece 7co 
CEvE “s ?Lo 
COMP ~ * ge 
coma - ge 
CuMR - ye 
COMS - ly 
COMI - ]¢% 
CUNSTS) ~ au 
Cus - 44 
DELH - 15CU 
vELL - Cu 
VELLD - 9Cu 
VELLUI = 9c) 
VELLR = 10C0 
vEl - 6CO 
ULAF - 3CO 
ORVRE - 3CO 
DVA - 15¢9 
DVB - 15C0 
ENDCSR «= le 
GNOT - 2C0 
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SIN - 45 
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Tau ~ 12c0 
TAUEO - 7ca 
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TAUM - 4c0 
TAUTO - 13C¢0 
TAUw - 5C0 
TEMP] - 63= 

TEMP20 ~ 4= 

TeMh - 76= 

TEMN2 - Ris 

TEMS = 77= 

TEM4 - Be= 

TEMS - R4= 

TH) - 4CO 
TH] - 4CO 
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TH4S - 4co 
TOFLAG + 13CuU 
TPR - 11CfO 
1104 ~ 40 
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Sm “ 4&Cy 
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17M - 4CQ) 
TOM “ 400 
VCk - 7Cco 
VCNA - 16C0 
VCNH - 16Cu 
VFEQ - ico 
VF INA - 16c0 
VF NM ~ 16Cv 
wOOT - 13¢u 
wDUTD - 13c0 
WI = 12Co 
WORKA - Se 

WORKDE = 6% 

WORKRE «= 7s 

WORKSS == qe 

wy - 12C0 
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SUBROUTINE FOGRE(P2Q9Re59X) 
SUBROUTINE FOGRE (Polis SeX) 


SUSROUTINE FOGRE SOLVES FOR THE ROOTS UF A FOURTH DEGHEE 
POLYNOMIAL EQUATION SY REDUCING TO THE FORM X##GoAtXHHPsHHX EC RO) 
bY THE SUBSTITUTION YS (X = P/R) ANU THEN SOLVING THE RESULTANT 
CUBIC THH eGR T HHO SZ (AHA RHC) S/T Aort 42/6650 


L1L18060 
LZIAA=D. 
L22206 
LZRAARZ06 
Z3 30. 
ZSAAS06 
TEMP 1=4.¥*P#OC/Re 
AsQ=TEMPY 
TEMP 1SP¥Q/20 
HSR?®3/B,-TEMPE SR 
TEMP 1=3.°P94/256, 
TEMP2=PUR/6. 
Cz (PPRAs Od HQ TEMPI=TEM226S 
PRIGEAS2, 
TEMP 1=6.°C 
QBIG=(AG82~-TEMPTI JI 6, 
RATGE“BEH2/O4, 
AdIG= (@PHIGHEZ¢O31G4#49.) 73. 
TEMPI=HP7.#Ra lS 
TEMP2=9.¢PHIGHORIG 
BHAIG=H(PHPHI GH 3=TEMPl+ TEMP] /27, , 
[EMP4=HnIG44es4, 
TEMPS=ABIOHOI/ 27, 
AKEEP=TEMPS+TE MPS 
TF (AKER RP) 19940,1A9 
TENPA=SORT C@#FEMP4/TE MRS) 
EF (dH16) 30230920 
TEMFA=S=TEMDA 
PHETSACOSITEMP Ad 
PEKAVHR.YSANT (-Ad1G/36) 
SHUESPHIT/3, 
ZLIB TERADSCOS (SHJE} 
Za7s TEXAD*COS (SHE +2,09439} 
233=TEKAD#COS (SHUE+4.1887R) 
GO TO 70 
TMPRD=SORT (-4916/3.) 
TF (BBIG)60.50750 - 
Z1]= ~TMPRD#2. 
222=THPRD 
233=222 
GO TO 70 
ZLY=TMPRDA2. 
222=-TMPRD 
2335222 
TEMPI=PBIG/3, 3 
IF (Z}L+TEMP1) 80090.90 
ZLAASSORT (TEMP 1 ~Z21) 
ZLE=O06 
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SUBROUTINE FUGRE (ReGrReSeA) 


GO TU 100 

Z1) SS8QRT (ZL L6 TEMP 

TemMP2 = £22 ~ TEMP) 

IF CTEMP2) 1105) 205) 20 
22AA=SOK] {=-TE MP2) 

222-0, 

60 TO 13u 

222=SURTCPEMP 2) 
TEMP25233-TEMP} 

TF CTEMP23 14001506150 
ZIAASSURT (=TEMR?) 

£3320, 

vO TO 280 

2335SaRT (TEMP 2) 

GO TO 264 

TEMP] =-BBIG/2.6 
TEMP25 TEMP 1 *SoRT (AKEER) 
IF CTEMP2) 17001 b0e 1 90 
ASUBB==(ABS(TEMPe} PA (1 43nd? 
GO FO 200 

ASUBH=0, 

60 FO 200 

ASUBHETEMP29S [16/4.) 
TEMPP=FEMP] SORT (AKEF PR) 
IF (TE 42) 21042204230 
BSUSdE~ ({-TEMP2) 84 CE 4450) ) 
GO TO P4v 

BSUDBs06 

GO TO-240 

HSUBSSIEMP?4# (14/36) 

21) 56SU8H+4SUAn 
Z2e="211/2, 

233=222 

Z2AA= ( (ASUS =$35U8B) 72,3 2SQHT(3.) 
Z3AAB-L2KA 

TEMP 1 =PBIG/3. 
ALLIT#=Z21~-TE4°1 

Z1)=4LL1T 

2222222~fEMP) 

AMLITe722 

ANL £127 33°TEMP] 
Z33SANLIT 

TF CALLIT) 26042504250 
Z1L145QKT{ALLIT) 

GY TO 27u 
ZLAA=SURT(~ALLIT) 

21120. 

TEMP LESORT (22AA* 424 22282) 
XSQRSSURTCCTEMP E6222) 726} 
YSOR=SuRT CC TEMP 1-222) 72.) 
Z2AAZYSOR ‘ 
Z2p=zXS0R 

TEMPLESORT (£3AAOR De Z39042) 
XSQRISSORT ( (TEMP1 +233) /2.) 
¥SQR1L=SGRT (1 FENP1-233) /2,) 
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Z3AA=-YSURI 

ZIS=XSOR] 

EF {5} 30042900290 
RR1R<Z1 1 -222=233 
ATRI=-Z}AA+ZahAeZBAA 
RRe=-Z2Z11422247233 
AIRA==Z1AA+Z2AACZIAA 
RR3=Z21)-222+233 
AIR3=ZLAA+Z2AK+ZIAN 
RRG=E=LZ11+222~233 
AIRG=Z1AA+72AA=23AA 

GO 10 310 

RRI=2Z114222+233 
AIRI=ZLAA+72AA4 234A 
RR2=211-222°233 
ALR2=Z1AA=Z2AAh@LIAA 
RRAS+2124222"233 
AIRJ=—Z1LAA+ZQAASZIAA 
RRR 21 1-2224233 
ALR4=Z1AAwZ2AA+7 IAA 

TF CKR1)3205340.320 

IF (ABS (AIR) ZABS (RAL) 0,02) 930 +340 4340 
ROOTIERRI 

GV TY 350 

HOOT LT =-9.9990999F 445 

IF (RR2) 36043804360 

IF CABS (AL R21 /ABS (RR2) 0,02) 37014 3A0 4340 
ROOT2=RR2 

GO TO 390 

RODE25~=9, Y99IOGIE S35 

IF (RR3) 60064201400 

IF (40S (ATR3} ZABS (RR) 30,021410 2420 e420 
ROOT 3=RR3 

G0) TO 430 : 

ROOT 35-9, 99999995495 

IF (RRS) 440 646044640 

IF (ABS (AIRS) /ABS (RRS) @0,02) 450 546094460 
HOUTS=RRG 

GO TO 47U 
ROOT4S==9.,9999909F 435 

IF {ROOTI+ROOT2Z) 54004805489 
IF (ROOT1=-RO0OT3) 520 94904496 
IF (ROOT1=ROUTS) 510.500,500 
ROOTM = ROOTL 

GU TO 570 

ROOTM = ROOTS 

GO TO S70 

IF (ROOT3-ROOTS} 51005306530 
ROOTM = ROOTS 

GO TO 570 

IF (ROOT 2=kO0T3) 52095502550 
IF (HROOT2+ROOT4) 51005605560 
ROOTM = ROOT2 

X = ROOTM ~ P74, 

RETURN 
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SUBROUTINE GAMAZS DETERMINES Tit ANGLE RFFWFEN THE Y-AXIS ANG A 
LINE NORMAL TO THE RLLIPSE (Y/ROE) #926(7PR/O0bE) eZ) fWwHICH 1S 
DEFINED HY THE ELLIPSE RATIO JOE) Al THE PRINT 7PR=naT [SECTION 
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t ALS LeALS2yALA ALB ALE se AW 15} 

COMMON/PARMA/S LE sBDE AVVO BX eRAXVAST IL AWELLRT ROPES POLES YPIe@Ph eo 
1 ARCOeARCL ROE LoALITILe ZT sALGs THR ¢ TARO AVE 
COMMON/PANMM/RAT oKRAT + FAR eG AMAT sGAMARs Z1 AT , 
COMMON/PAKMS/ICHY- : 
ADE #RFeTAUW 

ALE=ERF 

BOR SAODE/BTADE 

HIESRE / on 
GAMAZSPIUZACUS (RAT/SORT (RAT HR Ce ANE HP A-RATHHO)PUSTANES 2D} 
IF (HLE BOE) 10030930 

WRITE(C 6ec0} 

FURMAT(SIHONEGATIVE 4HEA9 END WE FRACTION) 

ICHN=S5 

RETURN 
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sH - 3co 
BOE - 5c0 
dTADE - 3co 
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GNOT - eco 
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ICHN - 7c0 
INPUTA = 3e 
PARMH - 5% 
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PARMS - t* 
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RAT - &CO 
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SUBROUTINE GAMSUB . 
ceccecececccececceccceccoceccccececececccececceectcceccececececcecccecccce 


c SUBROUTINE GAMSUB NETERMINES THE ANGLE GAMA] BETWEEN A LINE NORMAL 
c JO THE PERIMETER IN THE X-Z PLANE, ANO A LINE NORMAL TO THE LINE 
c SEGMENT RAT WHICH 1S A RADIAL VECTOR FROM THE YOTOR AXIS TO A 

c POINT ON A SECTOR PERIMETER (SECTION Se2elelalde 


Cececcccccceccececccecececcccceececccecececcccceecccecececcccecccccccecice 
COMMON/CONSTS/GNOT ¢PEyP 102 eRADIAN 
COMMON/WORK45/4A (5) RE eRG ATH] eT2M se TOM e TSM p AGS 2 45 ALC eXO Dv YOS, 
ROD XO VOSeROSaXOPeVOTSROT STON s T7YeTLEMsX7GSV 76% 
ALD sXO9eVOSsROPAXOLIVVOLE ROL Ls TLOMs TIMs TAUMS TH2s 
TH39TH4 e87iMeB72M1B91M»B92mM 
COMMON/WORKA/SAINC sANOeRF oe TAUWERZ RIGRARS RG sRT eRe 
1 ALS] eALS2sALAsALGsALE eAWI5S) 
COMMON/PARMM/RAT sXRAT se THR GAMA] «GAMAZeZ1AT 
COMMON/PARMOZ AL Ps KRASHBy KXRSBB ys KGAM 


une 


6M TO {10920020 %30s40930 250660070 PBNs Pol LUeFOeLOOsdlLOeleN ) eKGAM 
lo GAMAI=] .57079S*THRwALP/R2 
GO FO 130 
20 GAMAIZA (CL) THA ' 
GO TO 130 
30 GAMAL=A(2)=THA 
GO TO 130 , 
40 GAMAL=(A(1) ®R3~ALP) /RI=THR 
GO TO {30 
50 GAMAI=(A(2)8R44ALP)/R4 = THR 
GO TO 130 
60 GAMAI&A 63) -THR 
60 TO 130 
70 GAMAL=(A(3) #RSVALP) /RS@TAR 
GO FO 130 
40 GAMA1=(A(4) #ROFALP) /RG@TAR 
GO TO 130 
90° GAMALSA (4) ¢THR 
GO tO 130 
100 GAMAI= (ALS) #RI-ALPI/R7@THR 
GO FO 130 
110 GAMA1L=A (5) =THR 
GO TO 130 
120 GAMAL=(] .570795*RG-ALP) /RB~THR 
130 RETURN 
END 
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c 
Cc 


SUBROUTINE NaPSdl SETS UP THE CORRECT EUsTIONS TO DETERMINE 

THE COORDINATES (xXOPy YOF1 ZOP) FOR THE PCLINTS POA@PRIME, PTA 
PRIMEe AND Psa PRIMe FOR THE BLOCK | ANALYSIS OF THE INTERSECTING 
PLANES FOR SECTORS 3 aND 1] EN SUGRUUTINE SCI (SECTION SePelete2)s 
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COMMONS XU AP HZR AAP pXHAT OP s TAQ AP pGAMLAP sOAMPAP BANDA SYOAP 6 Z0AF 5 
1 XZAP oY CAPS ZEAP XIAP S VJAP eZ) AF eOAPL3) sSTGZAPASTRAPs 
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r COSTHR + FANPH) sAN SANS CULO SBT ANS SINGN2 sCOSGM? » 
2 , S1INGM1L,COSSM} eALTO 

COMMON/PARMMSRAT gXRAT eo THe GAMA] sGAMAZs ZITAT 

COMMDN/PARMS/ICAN 

CALL RASUBS 

RAAP=RAT 

GALL XRkSuBa 

KRATAPEXRAT 

CALL THETAT(RATXRAT, TAR) 

THRAPS=THR 

CALL GANSU 

GAM] AP=GAMA] 

CALL GAMA2S 

GAM2AP=G6AMA2 

IF (ICHN.EQ.5SIS0 TO 10 

CALL PUSUH 

CALL P1SUs 

Ca_lL P4Sus 

CALL TRAN(X0¢AQAP e225} 

KETURN 
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SUBROUTINE HASUBC SETS UP THE CORRECT VARIABLES 10 DETERMINE [Ae 
COORDINATES {XO YOs Z0) OF THE POINTS POAs PI 4, AND P3A THAT LIE 
ON THE PSEUDOELLIPSOID PRODUCED IN THR BLUCK 1 ANALYSIS OF THF 
INTERSECTING PLANE FOR SECTORS 3 AND 11 IN SUBROUTINE SCI {SFCTION 
Sedelele2de 


ceececcecccecccececeuccecececcececceccceceeccccccecceccececceceecctcceccs., 


COMMONS XOAMOR/RAA  KRAT Ae THRASGAMALA SGAMACA A XOAs YOAs LOA KAAS YA, 
PeASKLAYL AS ZLAsKIGAs ¥4Ag ZIALTANGZA SINTRA GCOSTRAs 
TANP LAG AAAA HAC AeDA Gt FADASSINGA A eCOSGA2 SSINGAL ss 
CUSGALSALTA 

GCOMMONSXUWORK/ Ke Me Ze Xe eo V¥AeZZeXl eV le LlerdeVdeF 30 [ANY 2eSINTHRs 
COSTHRs TANPHL ADHD + CUSDO eT ADs SI NGM2 eCNSGM? > 
STNGM} «COSGME 6 AL FO 

COMHON/PARMMS/RAT eXRAT s+ THR GAMA] pOOMAs se LEAT 

COMMON /PARUSSICHAN 

CALL RASUWS 

RAAZRAT 

CALL, XRSUdA 

XRATA=KRAT 

CALL THE TAR (2ATeXRAL 2 TH) 

THRASTHR 

CALL GANSUY 

GAMA) ASGAMAL 

CALL GAMARCS 

GAMAZASGAMA? 

IF CI CeHnskG. 5300 TO 16 

CALL POSUB 

Lat PP) Sus 

CALL P3Sues 

CALL THAN (RUs%0A625) 

kKETURN 

‘END 
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6AS00 
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6H5un 
68$50 
AAS SU 
68570 
4645H0 
4AS90 
ofAAho 
4A6tn 
A4H620 
GA 30 
GROG} 
6450 
HRAAL 
64670 
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AAAA 
ALTA 
ALTO 


co 
COSGAL 
COSGA2 
COSbM] 
coSome 
COSTHR 
COSTRA 
Da 

vd 
GAMA] 
OAMAITA 
bande 
GAMACA 
GAMALS 
GAMSUR 
HASUHC 
ECHN 


PARMM ¢ 


PARMS 
POSUS 
PiSuUb 
P3Sub 
RAA 
XASULB 
RAT 
RETURN 
SINGA) 
SINGA2 
SINGM) 
SINGM2 
SINTHR 
SINTRA 
TANGM2 
TANG2A 
TANPHI 
TANPJA 
THE TAR 
THR 
THRA 
TRAN 
KO 

KOA 
KOAWOR 
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2co 
eco 
3c0 
3co 
2ca0 
3cu 
3C0 
2cu 
2co 
3c0 
eco 
2co 
3c0 
3co 
3co 
2cv 
2co 
3¢0 
&co 
eco 
4CO 
2co 
14# 
124 
14 
SCO 
qu 
54 
178 
146 
194 
eco 
Gt 
400 
ele 
2co 
ecu 
30 
3CO 
3Co 
ecu 
360 
2c0 
3CO 
?caQ 
104 
4C0 
2co 
208 
3¢0 
2Cu 
2k 
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AOWORK = 3H : to 
ARAT ~ 4Co F) 104G - 
XRATA = eco 9a 
XRSUBB os 30 : 
x1 = 3CO0 . “os 
ALA - eco » ? 
x2 7 3C0 g 
X2A - 2cV od 
aI - 3CU aves 
X3A - 2co 
Yo - 3CO 
YOA - 2co 
¥1 - 3C0 
YLA - » 2ef0 . 
Y2 - 3CO 
Yea - eco 
3 - 3¢0 
Y3A = 2co 
20 - 3C0 
Z08 - 2Cu 
#1 - 3CO 
21a - 2co 
214aT - 400 
£2 = 3C0 A 
Lea - 2C0 
43 - 3Co 
23A 7 2c 
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SUBROUTINE HbPSBC 
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COMMONS XOWORK/XD DVO eZO pK 2eV2eZAeX lL eV eZ] she V 3s 732 TANGM2sSINTHRs 
1 
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SUBROUEINE HdPSaC SEIS UP THE 


CORRECT EQUATIONS AND VARTARLES TO 


DETERMINE THE COORDINATES (XOPe YOR) ZUP) OF THF POINTS POS PRIME+ 
FIH PRIMEs AND P33 PRIWE THAT LIF ON Tsk PSEUDOELLIPSOIN PRODUCED 
IN FHE BLOCK 1 ANALYSIS OF THE INTERSECTING PLANES FOR SECTORS 4 
AND 11 IN SUSROUTINE SCI (SECTION Setelele2de 


ecccecececcecececeeccceccecccocuceceececctecccecccccecceccecreccceccerece 


COMMONS XOBPW/RAS® p XRAT IP» THRBP eGAM1L YP pGAMCHP 2» A03P oe YUHPs ZORP > 
X28P oe YZHP» Z2HP a XLBP SY 1 OP eo ZL 4P eo OBRP (9) e TG2RPe STREP 
CT RIP, FP13P ABP BBP CBP eDuP sBTAQHS, SOHP (4) eAL TBP 


COSTHR e TANPH] 2A0 HO 2 COPDO eBTAUSS I NGM2s COSGMP + 
S1INGM1+COSSM) sALTU 
COMMON/PARMM/RAT pXRAT + FAR eGAMA] sGAMA2 ZI AT 


COMMON/PARMS/ICHN 
CALL RASUBB 
RABPERAT 

CALL XRSUBB 
XRATBPSXRAT 


CALL THETARCRAT eXRATs THR} 


THRAPETHR 

CALL GAMSUB 

GAM] AP=GAMA) 

CALL Gamaes 
GAMZBP=GAMA2 

IF CICHN.EU.5)50 TO 10 
CALL POSUB 

C4LL PisuB 

CaLL F3SUB 

CALL TRAN(X0 9 X0dP 925) 
RETURN 

END 


ART40 
ABRAZO 
GBN40 
48850 
GRAGN 
6RATO 
6RARA0 
64900 


69920 
68930 
GAI4D 
6895) 
6AY60 
68970 
689A0 
68990 
69000 
69019 
69020 
69030 
69040 
69050 


691300 
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FNOE x SUBROUTINE HBPSBC 
SYMBOL fee ee ee en ee ee ee en oe ee ee en ee ee eee REFERENCES 
10 7 16 aie 
ABP - 2co 
ALTBP = 2co 
ALTO - 3Cu 
AQ td 30 
dBP ~ 2t0 
ao - 3c0 
BTAO - 3CO 
BraueP - 2c0 
cap - 2cu 
co ~ 3¢co0 
COSGM} ~ JC 
cosGu2 - 30 
CUSTHR - 3co0 
CTRur - 2co 
DBP - 2co 
vu c 3CcoO 
GAMA] - 4CO 13 
bAMAe - 400 15 
GAMAZS = 14*# 

GAMSUK i2* 

GAMIBP = 2co 13s 
GAM2@HP = 2co 195 
nbeSbC = 1 

ICHN = 5c0 16 
OBP = 2co 

PaRMM - he 

PARMS - S* 

POSUB = 17* 

PiSug = lu* 

P35U6 rd 1g# 

RABP - 2co f= 
RASUBB = 6* 

RaT ad 4C0 Vg 10AG 
RETURN = aie 

SINGME = 3c0 

SINGM2 = 3C0 

SINTHR = 3C0 

SOBP fad 2co 

STRoP ° 2co 

TANGM2 = 3co 

TANPHI = 3co 

¥GzZBP - 2co 

THETAR = iGe 

THR = 4C0 10AG li 
THRBP - eco lls 
TP1BP = 2co 

TRAN ~ 204 

xO - 3¢0 20AG 
XOBP - 2c0 20aG 
XOBPH + al ae 
XOWORK «= af oy 
XRAT - 4C0 e oer 20AG 
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ARAT BP 
ARSUBB 
%) 
XLBP 
ke 
x2BF 
x3 
v9 
YOuP 
v1 

Y LaF 
Y2 
Yenr 
Y¥3 
£0 
ZOBP 
41 
2at 
ZyBR 
42 
Z2ur 
23 


pata 


paeabteetteuree 


2Cu Qa 
go 

300 

250 

3Ca 

2ca 7 
3CQ . 
3ca 

eco 

3c0) 

2co 

3co 

200 

3ca 

3co 

eco 

aco 

4CoO 

2co 

3Cc0 
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SUBROUTINE HASUAC SETS UP THE CORRECT VAREAKLES TO DETFRMTIVE 
THE CUORDINATES (X0s¥0,25) OF THE PDINTS POHsPIHs AND 

P3B THAT LIE ON TRE PSUEIOELLIPSOID PRODUCED IN THE HLOCK 

1 ANALYSIS OF THE INTERSECTING PLANES FOR SECTORS 3 AND 11 
IN SUBROUTINE SCie (SECTION Se2.le01.2) 


cececcccccceccccececceeccecccececcccececccecccLeccceececceeccececer Cece 


COMMON XOBWOR/RAReXRAT Hs» THRR eGAMA1B pGAMA2ZG eXOK SYORs ZOH«aX2A AY 2H e 
Zea eX Hey] 39Z18 os XBR e359 Z3Re TANGZR e SINTRA GCOS ERB se 
TANP 189436 688 0eCH sD eATAIN se SINGH2 eCOSGB2sSINGS) » 
COSGH) sALT3 ¢ 

COMMONS XOWORK/ X00 YOs Z0eX2 020 ZAaKls V1 92) eA3sV3aZ3e TANGM2eSINTHRe 


wen 


1 COSTHR +e TANPH) 0A0s AO eCOehO eBTAO + SINGM2 eCOSGM2« 
2 SINGM1 eCOSGM1] eALTO 
COMMON/PARMM/RAT OXRAT eS THR OGAMAL @GAMACS ZI AT 
COMMON/PARYS/ICHN 

CALL RASUBA 

RAH=RAT 

Cali. XRSUKA 

XRATB=KRAT 

CALL THETARIRAT » XRATs THR) 

THRH= THR 


CALL GAMSUA 
GAMAIB=GAMAL 

CALL GAMAZS 
GAMACB=GANA2 

TF CICHNeEQ.5)930 TO 10 
COLL POSUB 

CALL P1SuUd 

CALL P35uUa 

Call TRAN (XO0»X05925) 
RETURN 

END 


49kao 
692N0 
69270, 
69230 
69240 
69750 
69740 
49280 


69400 
69310 
69320 
69330 
69340 
69350 
469360 
69.370 
693480 
69390 
69400 
694160 
69420 
69440 


69480 
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cor 


pre tt 
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SYMYOL FSET EM PMSF RE MEME RI METER Ham EREMENE EOE MEM REFERENCES POE RE RE MEMEO HHH OHM EME MERI EHD Come 
1D - 16 ele 
ASB fad eco 

ALTo - 200 

ALTO bea 300 

AO - 3Co : 
Be - 2co 

30 - £0 

aTad - 3cO 

BTA “ 2c0 

CB - eco , 
CO - 3c0 

COSGH] ~ ecu 

COSGHe « 2co 

COSGM1] -« 3co 

COSGM2 «@ 3co0 

COSTHR «= 300 

COSTRB « 2co 

OB ‘ eco 

oo - 360 

GAMA} - 4CD 13 
GAMAILB = 2co 135 
GAMAZ «- 4CO iS 
OGAMAZB = eco 1$s 
BAMAeS « 144 

GAMSUB « 1é# 

qeSusce = Le 

ICHN > 5co 16 
PARAM - qe 

PARYS - 5* 

Posue ca 17+ 

?1Sug - 18% 

P3SUB ~ 19% 

RAB = 2co 7s 
RASUBB = 66 

RAT - 4CO ? LvaG 
RETURN ~ 2i* 

SINGBL « 2co 

SINGH2Z = ecu 

SINGH) = 3ca 

SINGM2 ~ 3C0 

SINTHR « 3c0 

SINIRB = 2co 

FaNGM2 «= 3C0 

TANG2B « 2c0 

FANPHL = 3c0 

TaNelB 2co 

THETAR = 104 

THR - 4co 10AG tl 
THRB - acd lis 
TRAN - 204 

x0 - 3¢c0 Z0Ab 
X08 - eco 20aG 
XOHWOR «= at 
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KOWORK 
xXRAT 
XRATU 
ARSUGH 
Al 
AtB 
2 
Aan 
aA 
a3 
Yo 
YOR 
a} 
yi8 
¥2 
y2o 
Y3 
Y38 
Zo 
£08 
Zi 
Z1at 
ZYB 
z2 


223° 


23 
43h 
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3H 
40 
2co 
BH 
3co0 
2c0 
3ca 
eco 
3c0 
2co 
3co 
260 
3CO 
2c0 
30 
2co 
3CO 
2co 
30 
2co 
3co 
4CO 
2c0 
3cO 
2co 
3co 
aco. 
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INUE X 


SUHROUTING rHuUNSUB 


SURROU TINE ADNGUS 


CURCCLCCCECCCOCECECOCCCECC EES ceerecceccecuccececeecceceececereecrerceece 


re SUHROUTING SONSUB SETS 2 THE CORREO! VORITABRLES TO PERFORM THE 
C bLOCK le 2h>o ise AND 3 ANALYSTS OF TF hath END ALTH WER (SECTION 
Cc Ketel). 
CUCCOLe CCCCCECECCLeEcUuccecercece\erceenceececccurcecurcececeéceccercceccee 
COMMON, INPUT ASH TADE sDril 6 BH a AGH eit [o9,9R 
COMME DNR OTUSDELE ePAe OA] shCGeDEL 2, Kp C72 
CAMMON/HURKASATYC PAN 9 0% 0 TAU GR? sR ehs sROeRAOR7 ete 
ALS) +ALS2, OL AVAL HS ALE Aa (od 
COMMON /COMGZ TAUZ CLOL? eRAZ C1 OL) eTAUZ TOC LOB cRAZTIN EDL ePOCINTs 
i TAUWOP (101) eRe VF sbWDGT evP 
COMMON/COMOA/DELLOLOELLOEI 
COMMON COMT/T AU sRAC + SUMIY yg XR Ht AL (14) +XBAKTH ASE eAPF awl owl RAs 
t .  RAOTALL eAJP Fe AST 
COMMON /CUMU/VRAGALTTUe COUNT AVFPIEW! eVEAPVREASTOSASIGR 
COMMONS CUMV/VSTR eo VST s TOMAX eDOLTA DOLHAMAAs ZMAXs YMAXSALHO» 
i ROPE! ROPE Ss TOPE 3eALDP 
A presi sccaui dat PMAX WOOT sTI Es Li sew TD eNSLOTeNTANE oNIME 5 
TAUTUs TOFLAG eNENCKL sBRNOUT eT ISIS) eFS2att eSCUR(T AL?) 
"oMNGNPPRBAE TENT TOE. AINCWe TePeDFL TAs AKUY sPOUVe ITS eAAPoyaly 
] AMwsAKRST \ 
COMMON/PARMH/S1E B0k pAANN SRR eRAA ASTI OUELLRT ROME GOAL eYP Ls ZP 1a 
i AKCOCARCLAROE LsALITTIL eZ} eA Ge TART a THROGANF 
COMHON/PARMSSICAN 
AANN=AND 
IF (PAU) 20510020 
10 VRS) 
ALTTOQ=0, 
CoUYTEHOe 
VFHEW1L=0, 
ALHUS0, 
VSTR=0, 
VSTu=0, 
VEASGe 
vR=06 
ASYUsO, 
#0 ADE=RF+TAUW 
ALE=RF 
BOE= (RF -TAUW) SE TADE 
BIEESRF/BH 
DELLOT=RF/10N00, 
DELLRI=DELLOT 
DELLO=DELLO[ 
IF €TAU) 40530940 ‘ 
30 BIAVE=BTA0E-1./30000, 
40 DO 50 Lele 
CALL SCIICLI 
IF CICHN,EQ,.5)G0 FO 110 
SO CONTINUE 
L714 
60 CALL SCICL) 
TF CICHN.EO,5)G0 TO 1]0 
Le1 
IF (L=8} 701 70.66 


5000 
69650 
49H 7 Ch 
&9OBRO 
69AG0 
69730 


69730 
AA7aD 
697560 
49/60 
49770 
A97RO 
49790 
69800 
69A1L0 
GIBCO 
69AR0 
69340 


6920 
H9RRO 
69390 
69900 
69910 
69920 
69930 
69940 
69950 


69970 


69980 
69990 
7Tnond 
70010 
THAO 
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a4 
45 
46 
47 
4a 
49 


50 
51 
Se 
53 


SUBROUTINE HONSUB 


70 CALL SCTORI 

CALL SCTOR2 

CALL VOLSUB 

wKOP = 4 

IF (KOUMP (1)) B0+100,80 
80 WRITE (Gy 9OIKOP SLIP EI Jp FAUZOIIT) sRBZII TU)» 

ASUMDY 9 VF PASE SAP ewOOT sDWOOT 
90 FORMATIGH STAsT393Xe215s1P9E1002) 
100 CONTINUE 
y10 RETURN 

END 
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70060 | 
TOGAD* 
70090° 
7a100 
T0ERO 
70140 
70430 | 
70160 
7OLse, 


PAGE 


121 


s 


“ $-uZ0ots 


Z2b~E 


INDEX 


SYMGOI, 


1Q 

4) 

30 
46. 
50 

6a 

7 

40 

90 
100 
110 
AANN 
AB’IGR 
AFF 
AlG 
AINC 
AILNCW 
AUPP 
AKGY 
AKRST 
AL 
ALA 
ALB 
ALDP 
ALE 
ALHO 
ALITG 
ALITTL 
ALL 
ALS] 
ALS2 
AMPN 
AMw 
ANO 
AOE 
AQHM 
AP 
ARCO 
ARC] 
ASE 
AS1 
AST] 
ASTU 
AT 
AW 
ALE 
BH 
voe 
SRNOUT 
BTAGE 
dX 
BIE 
COMG 


terret_s eee) Peaeree eee ree rerrarerseeeeannaeeeeerere treet ttt tates 


15 
5 
33 
33 
4200 
404 
43 
4b 
49a 
40 
af 
12C0 
6CO 
7CO 
12C0 
4C0 
11co 
7oo 
11co 
11¢0 
7cO 
4CO 
4Cu 
9CD 
4CO0 
9CO0 
6CO 
12Cco 
700 
400 
4CO 
11¢o0 
11¢0 
4co 
12C0 
eco 
10co0 
12c0 
12C0 
7co 
rant) 
12¢0 
8CO 
11¢0 
4CO 
12eco 
2co 
12c0 
10cO 
2Co 


‘12¢0 


12Co 
56 


lhe 
are 
3OH 
aua 
Jae 
3 

nad 
49H 
90* 
Sie 
4) 

l4r 


wou 


14 
262 


49WR 


49WR 


25= 


27s 
285 
238 

29 
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INOE xX 

coma - 6* 

CouT ” 7* 

COMU - ae 

CcOMV - ge 

COUNT « 8CO 
DELF - 3CU 
VELLO 6CO 
DELLOI - 6CO 
DELLRI - 12C0 
OELTA «= 113¢Ca 
DELZ - 3co 
OH) - 200 
o1s - 11¢0 
VOiA - 9C0 
DO0ls « 9cO 
OwDOT = 5CO 
HCO “ 3CO 
HDNSUB = ts 

HE - 7co 
HHR - 200 
ICHN - 13C0 
{II - 10CO 
Ild ad y0Cco 
11s - 10CO 
INPUTA = ae 

INPUTU «+ 3 

1Si - 10¢c0 
1s2 ~ 10CO 
ROP - 47= 

KBUMP - 3Co 
L - 3500 
NI - 10C0 
NINCPL - 19CO 
NSLOF - 10CO 
NTASE y0c0 
NIME - 10c0 
P - 11C0 
PA - 3c0 
PaRMB - yo* 

PARMF - re 

PARMH 12% 

PARMS) « 13% 

PD - 5cO 
PH - 11c0 
PHE ” 3C0 
PMAX - 10ca 
PMIN - 190C0 
PON - 11C0 
RA - 7co 
RAO - 7co 
RY - 5c0 
RBZ - 5C0 
HBZTO - 5CO 
RC Ao 7Co 
RETURN « see 


18= 


3é= 
30= 
3l= 


49uR 


37 
SGWR 
SOWR 


4OWR 


3646 


49wWR 


4&9wR 


al 


41 
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beL“E 


InuUe x 


RF 
RIG 
ROE] 
ROPE] 
ROPE? 
ROPES 
HOPEG 
RXX 

R2 

k3 

kK4 

RS 

R6 

R? 

RS 

sc] 
ScTOR] 
$c10KRe2 
SCur 
SUMUY 
t 

Tau 
TAUTO 
TaAUW 
TAUWDP 
TAUZ 
FAUZTO 
TOMAX 
THRI 
THRO 
TIME 
TOF LAG 
uU 

VEX 

VF 

VF Hew 
VOLSUB 
vP 

yvR 

WRX 
vVsTuv 
VSTS 
wDUT 
WBOTD 


2 (te gee areenrpragy,a 


4CO 
2co 
reCo 
9C0 
9CO 
cu 
1eco 
1¢CO 
4Ca 
4C0 
4CO 
4CQ 
4c0 
4CO 
4CU 
364 
4Ge 
45% 
10CO 
TCU 
11CO 
7cn 
10C0 
4&CO 
5co 
5¢o’ 
$cu 
9CO 
12C0 
1eCoO 
11co 
2OCLU 
11C0 
8CO 
5co 
8CH 
46% 
5Cc0 
BOO 
Tat) 
9CO 
9c0 
16cO0 
10Cco 
7co 
Ge 


700, 
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NACCEL ow euco 
NAKEND = 9C0 
WAKn - 9CG 
NAKHST - 10C0 
NCH - 15C0 
NCONT - 46CO 
NCSCOE - 11C0 
NCSTR - 11¢0 
NOT - 14C0 
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wee BT eSR SEB Kak 


INDE x 

oh NiD =“ 44C0 
MEPS “ 20cu 
WOP ED - 6CO 
NGEVHD = 6CO 
NGEOMN = 6cto 
NI ~ 34C0 
NINCPL = 3600 
NPA ™ 15c0 
NPH - 10CcO 
NPUTAB = 16CO 
NSLUT - 34C0 
NSUGMG 46C0 
NTABE - 3906 
NTAUTO = y0CcY 
NTEST4 « 27CO 
NTME - 34C0 
NWKTAR ow 16CO0 
B i. 37Co 
PA ~ 25c0 
PARMAB = Gat 
PARMAC) = aR 
PARMAn ~ 4dt 
PARMn - 348 
PARMD - 35% 
PARME - 3b 
BARME = 17% 
Pak] - 38 
PARMK - 394 
PARML - 4o4 
PARMO - ale 
PARMR - 42% 
PARMS - 43% 
PCT AS - 10c0 
PEPD - 39C0 
BH > 37C0 
PHI - 2$co 
PHST - 1oca 
Py - 2co 
PI0e = 2co 
PMAX - 3460 
PMIN - 34C€0 
PMUIHD «# 6CO 
PHOIN ~ 6CO - 
POA - 31CO 
POF - 31Cc0 
PON - 37C0 
PONBAR - 3450 
PRESS ~ 11C0 
PRNI - 30C0 
PRIFLG = 16CO 
PSA - 31¢0 
PSF ~ 31Cu 
PST - 1860 
Rg - 11ca 
RADIAN + eco 


luds= 
[36> 
2075 
e068 
Jags 
1042 
les= 
lugs 
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107s 
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Bates 


jaa 


prueLUl-9920 


bEL-E 


TNOUEk Xx 
RBFLAG ~ 8C0 
RHHI - 43C0 
KSSLUT «+ 4200 
RYSLTA = 4200 
KRSLIF 32CV0 
RCL - 36CO 
RETURN = 212 
nF - 3C0 
aFH] - 13C0 
RHOTUL = pP2cu 
KG - ica 
RKMOLHD = Cy 
RKMOLN ~ 6C0 
HNI = Peay 
RPX - 4UC0 
RSEOTA  « 4200 
RSLUIF ~ 42CO 
Re bad 30 
Ko - 3f0 
KS - aco 
RS - 3cu 
Xo * Biett) 
RP - JCo 
RB - 300 
Sa - Ppacu 
SH - Peco 
SCUR - 34d 
SiTROTIC = 460 
SLTARN «- P4ca 
SLIFLG = 4200 
DIPysT = 1750 
STFLAG = 17Ct) 
SUMDVA = a4iu 
SUMDVE = 440 
eWwDGIN = 3300 
] - 17CO 
TAVAKR = {ecu 
TAUry) - boy 
TAUMy - Paces] 
TAUN - 6co 
TAUPL - &CO 
TAUTO - 34ct0 
TAuUw - 2C0 
TYLAKR « 9C0 
T8Lcm - 15C0 
TRLPA ~ 15CO0 
Tco4yn - 11C0 
TOELDT - 14ca 
THETEX = 46C0 
THU ” 4co 
TRULD - 2sco 
IRSLYV ” 33¢0 
THSLVV 33C0 
TIMAKR = 9co 
TIMAX - 15C0 


177s 


le7v= 
144% 


1]5s 


loads 
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66= 
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655 
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yrbeuul -eSat 


Ol-E 


INDEX 

TIME bd 37c0 
TIMEAC « 20C0 
TIMECM = 15c0 
TIMEOT = 146c0 
TIMEPA = {5c0 
TIMEPH © 1000 
TIMERS 20C0 
TIMEW = 30c0 
TIMPTL 18CO 
TImMPT2 «= 1800 
TOFLAG = 43400 
TSA - 3100 
TSF 7 31C6 
TSLOTA « 3200 
TSLOTF - 32C0 
TSLVOM - 33C0 
TSLYR - 40 
tst - 180 
u = 37C0 
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UF - 31C0 
UT = 30C0 
VCHINP = 12C0 
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VFNO = 26C0 
VFWEB = 39C0 
WNOZSB = 4oCO 
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VPN Sd 38CO 
VSLYR = 33C0 
wO * 39c0 
wOOT = 34C0 
WROTD = 34C0 
WOOTL == 30C0 
WFACT = 2eco 
WF TOL 2 2eco 
WGTOT = 39C0 
WORKRN = 26% 

WSLOTD 31¢0 
WSLOTE = 31C€0 
XBARI = 35C0 
XBARIN = 36C0 
XCGHD = 6CO 
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YPO - 40c0 
ZCALC 30c0 
zPO - 40co 
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SUBROUTINE IBMOUT (IE? 


SUBROUTINE IBMOUT (TE) 
eccccececccecocececcceeccceccceceeccecccceececcececccceceececececcececcee cc 
SUSROUTINE IT8YOUT CONTROLS THE PROGRAM OUTPUT AFTER COMPLFTTON 
OF &ACH BALLISTIC SOLUTION ITERATION AND CHECKS FOR 
CASE TERMINATION WHEN THE PERCENT INERT SLIVER NPTIONs 
AKINSs [S$ EXERCISE. 


FRTIFLG=0 MOTOR BALLISTIC DATA ONLY 
PRIFLG=] MOTOR BALLISTIC DATA AND JDP UATA 
PRIFLG=2 MOTOR BALLISTIC DATA ANI) [DP DATA AND CG DATA 
PRTFLG=3 ALL DATA 
ececececccece cc ccc ce cccecceccceccceccccccee cece cccctcececceceiuceceeccecce 
COMMON/BLKOUS/ NLEWI Se NST + NF pNRECONyNCASES » NDI SP 
COMMON/ CONS FS/GNOTsPI 9 PT D2 sRADIAN 
COMMONS INPUT) /AINCEN( 13) oANO LEB) eRFE LB) pe TAUWC(IS) @R2A(18) 4 
1 R3¢1d) «RG 018) eR5(18) oKE (18) R7U19) eRACITA) 
2 ALS1 (1B) sALS2414} sALA C1) sALBC1G) ALE (CI9} AO] (18) ¢ 
3 AU2Z(18) 5803028) 6A04 (18) »A05(1 8) 
COMMON INPUTG/CSTAR #GAYA rR eNCSTR »pPRESS (20) + C5S792 (20) yGAMAG(PO) » 
' AYWG (20) » TCOHB (20) pNCSCOE 
COMMONS INPUTI/AN2Z + CMs 0593 T PANN 
COMMON? INPUTL/PRTFL Ge NWRTAS sNPUTAB 
COMMONS JNPUIM/STFLAGs STDYST eDELTST sUELTSSeOFLITO 
COMMONS INPUFU/KPLANE eK YO ICG 
COMMON, INPUTT/58 (19) ¢SLTARN(] 38) »SA(18) 
COMMONS INPUTU/DELF PAs Ori] sHCORDEL Z eKOUMP (7/2) 
COMMON/COMA/DELT sAPHE pWwOOTT eANIHOe TIMEW SUT SANLOPSSACCEL 5 
1 ASCYLePRNT (CLO Le £5) sATNCHI] pAMACHs 2C4LC(10)) 
COMMONS COM ZA se AUPHN + AUSHNG TAUAO s AJPHED sAUHHED eAUPNOZ sAJANOZ » 


C 
c 
c 
C 
c 
c 
Cc 
Cc 
c 
c 


i 


I XdHeXBNOOTINT 
COMMUN/COMG/TAUZ (101) e282 (101) se FAUZTOCION? sREZ1IOCLOL) POE 01)» 
1 TAUWIP (101) s2He VF DADOT se VP 


COMMONS COMI ZAET VAC PVAC + VECYi eCFPROP oF INDE 
COMMON/COMJ/AGSLTA CTA) sASSLTF C14) sAPACLO) sAPE CIA) sPSA( ERD s 
1 PSF (18) ePOA(18) sPOF (15) eFSACLH) TSF (IB) pUACLE) » 
UF (18) sWSLOT IIIA) pWSLOTI Cia) 
COMMON/ COMK/DWSLTACIA] sDASLTF (16) sDdDTS(LY) AFH TE eRBSLTACIA) + 
1 RISLTF (18) pTSLOTA( 18) a TSLOTF (18) 
COMMON/COMT/ TOU ORC + SUMDV p XR OHE OAL C14) oXBANIH SASF OAFF ot oWTahene 


1 RAQPALL sO5PPeAST 
COMMON/PARMEZAP sPMINePYAX HOOT e TL Ee TI] JsWDOTDeNSLOT sNTABE NTME + 
1 TAUTO + TOFLAS HINCPL sdXNOUTs TISsISteIS2eNFsSCuR(149s2) 


COMMON/PARMD/KRASUA » KXRSUH y AJBA SHE? #AJBNs AJUBH) XH AN 
COMMON/PARMF /PHo TIME PAINCW eT a PeDEL TAs Ue AKGY PUN, DIS yAMPNGAT y 
1 AMWSAKRST 
COMMON PARNG/VF He AANe VEN GVIS eC AT Te SPHDT eSPONDT eVFINT sVEHSABTOT 
COMMON/PARMI/AOMCYL sAI ACYL eATPCYL eAKGYX SAKGYY eVPHe VPN 
COMMON/PARMK/F ¢ EP Ls PEP Oy CFPOLSVFWE Re WD DEED +CLOPSeCFOeWwGTOT. 
1 SWOOTN 
COMMON/PARMS/ICHN 
COMNON/P ARMY / WE 
COMMON/ PARMZ/ABSLOT #PO 
COMNON/PARMAA/T0+ IFLAG & 
“ COMMON/PARMAG/ HSUBHMMs VSUBMGyNEND  ASEAsASER s SUMDVAs SUMDVB 
+ DATA &1/060254/54270.0094155/ 
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400d fo 
TYNIDINO 


ALTTY ND 
SI Iva 
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avid 
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31 
32 
33 
34 
a5 
36 
a7 
34 
ay 
40 


43 


49 ’ 


45 
46 
47 
4B 
4&9 
Su 


b2 
52 
54 
$5 
Se 
of 
Pl) 
59 
60 
ol 
62 
63 
64 


oS 
46 
of 


6u 
69 
7u 


7k 
73 
74 
75 
16 
77 


74 
79 


130 


160 


SUBROUTINE IBM0UT(IE) 


OIMENSION SKA{(1L6) eSKF (18) 
LOUT=6 ; 

IF ¢CAMM.LY0)+0E~06) AMW=1545.2/8 
PORMAT(UESXs 7 (I PE1S.7)) 
NIPJ=NT+} 

FVACK=FVAC 

FVAC=CF OL *RONPATSANN 

IF CTIME) 160515091370 

FVACKXRO.U 

ATTVAC=0.0 

CONTINUE : 
ALTVACHATIVACY (CF VACHE VACA) ODELT/2, 
[F¢TIME LTS .C& 06) ATTVACZO.0 
ASTUL=ABTOT+A3SLOT 
VFCILEVF<VFH~VFN ; 
CALL FAMCAL(CFPROPyFINOP} 

CALL OUTPUT 

IFCPRTFLGsE GeO) GO TO 490 
[F(PRTFLG=24) 29512602260 


260 COCYL=AOMCYL /(DELFYVPCYL) 


eto 


27) 


ata 


273 


274 


275 FORMAT(T4eSHEAD END ROLL MOE (KG*®M892 ¢SLUGRING 2) te TS] eo fASPHEDIs 


276 


RAR THE (CO OXd ee HCO) SP AEDELF ¢AOMNCYL) —VFNODELE OX AN) AWE 
AJPPTAJSPHED+ATPCYL +AUPNOZ F 

AJBHED=AJBHED~ ( (XBH*#HCD) #4 2— (XH + HOO XHBART A) #2) OVFHODELF /GNOT 
AJUBNOZ=A JANOZ = CAANH#P@ (XINEXHARTHI OO!) MVE NGUEL FE SGNOT 
TEMPSWF ~ (VF He VFN) ONELF 

TEMP I= (XeH*HCO) QOELF aVFH 

TEMP2=X8N*DELT RVEN 

ATHCYL=AJACYL~( (XBARIH@wWF=FEMP1]+TEMP2) / TEMP) #28 TEMP SGNOT 
AJBH=AJBHED FAL SCYL + AUBNOZ 

WRITE (10UTs270) 

FORMATC*ICENTER OF GRAVITY ANDO MOMENT OF INERTIA DATAI®) 
TERM = XBARIH * Aq 

WRITE C(TOUTS271} TERM, x34RTH 

FORMAT(T4 os *GRAIN CG {Me IN) §oTSde tXBARTH?, 
d 1661615.8,1860615.8) 

TERM = AJPP # A2 

WRITE(TOUTS272) TERM sAIPO . 

FORMAT (T4« *GRAIN ROLL YO] (KGPMH#2,SLUGPINRH2) ELTS].tAUPPH, 
> T66+615.8sTh9615.8) 

TERM = AJBR ® Re 

WRITE (EOUT«273) TERMsAUBS 

sPORMAT(T4e*GRAIN XY MOT (KG#MO@H#2 ¢SLUGFING HZ) teTS1 et AUBR Ys 
> 1664615683 1869615.4) 

TERM = XBH * Al 

WRITE CTOUTS 274) TERMsXdH 

FORMAT (T4s*HEAD END CG (Me EN} ts TS1 ef XHH! 
> T66+615.8sT86+615,8} 

TERM = AJPHED * A2 

WRITE (IOUTs275) TERM»AJPHED 


$ 7660615.867T869G15.8) 

TERM = AJKUHED # A2 

WRITE CLOUT +2 TO) TERM »AUBHED 

FORMAT CY4etHEAD END KY MOT (KG#M4¥2sSLUGHING HZ) by TOL a PAIBHEN ts 
& 74696155837T860615,8) 


1,140 
y1380 
11400 
11440 
11480 
11490 
11500 
11510 
i520 
1153D 
11940 
11950 
ilolo 
11670 


1) 270 
1) 440 
11990 
12000 
12010 
12020 
120%0 
120940 
12050 
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INDEX 


80 
1 
82 


a3 
a4 
Bb 


B86 
a? 
88 


89 
90 
9h 


92 
93 
94 


9S 
96 
97 
98 
99 


10 
lol 
102 
103 


104 
105 


lio 


— 
eoce 
von 


rere ee et re 
fen eran er eg ree 
SConentruvea 


eT? 


278 


279 


280 


2ul 


282 


295 
Cease 


283 


234 
Crete 


300 


310 


320 
330 

340 
350 


360 
370 


SUBROUTINE IBMOUT(IE) 


TERM = CGCYL. * Al 

WRITE (EQUTs277) TERMsCGCYL . 

FORMAT (TS s *CYLINDER CG (Me IND *4T5S1s 1 CGCYL Ys 
% T6sG15.8sT869615.8) 

TERM = AIPCYL *# A2 B 

WRETE CIOUT,278) TERMsALPCYL 

FORMAT (T4e "CYLINDER ROLL MOT (KGEMP#24SLUGFIN@O2) Eg TSE STATPCYL #4 
$ TH61615.8)TH69G15,38) ‘ 

TERM = AIBSCYL # A2 

WRITE (IOUS S279) ~TERMSATBCYL 

FORMAT (T4e *CYLINOER XY MOL (KG¢MeS2sSLUGHING# 2) tgTSletALaCYL > 
$ 1664615e457869615,8) 

TERM = XBN # Al 

WRITE (TOUT scb0) TERMeX8N . 

FORMAT (T4stAFT END CG (MeIN) *sTSLetABNt> 
t 1661615.9e17H69615.4) 

TERM = AJPNOZ » Az 

ART TEC TOUT,s2611 TERMeAIPNOZ 

FORMAT (TO ef aFT EVO ROLL MOL CKGEMR 42 ¢SLUGHINGH2) PATS eo tASPNOZ te 
& 1662615. 6eTh6s015.4)} 

TERM = AJBNOZ ® 42 

WRITE CIOUls282) FERMeAIBNOZ 

FORMAT (T4¢4AFT END XY YD (KGHM HHS, SLUGTINGEZ) 1 6TSLe FAJHNOZTs 
$ T66+615.8+7T86e515,8) © 

IF (PRTIFLG.EQ.2.) 60 TO 4390 

CONTINUE 
#PRINT HEADING TITLE FOR EXPANDED PRINTORROY 

IF CPRIFLGeLTafe)d WRITE (CIOUT+ 283) 

FORMAT CVHL} 

WRITE CLOUT sc64) 

FORMAT (/Tes! 1 NCREMENT DLVIDING PLANE DATAS") 

#eRINT SUMMARY OF FORE HEAD NATAHHAHH 

WRETE CIOUTs 300) CPRNE QC) sl) eLel eo?) ye (PRNT (LoL) sL=9e)D) 

FORMAT (1H0s 2X s 4A ASS s OX oe ZHPO PB Xe LHP eBXe LHI AX e THU eA As THM s 7X ePHLP 7 
AX se QHAP OX eGrwDUT 5X eSHIWIOT 64% eSHOWSDT eOXeZHRA ASX SSHT AU aX eGHRITOe 
X3Ke5HTAUTOZIH ¢ 
KX BRADDITEON/LH 9 THREGIONS 4X aGHPS1AeSX eGNPSLAGGX sGHOEG. ReSkeGnF f 
ASSECeLeX es bHIYCHES + 3K 7459. IN pe 2X eGHLE/SEC «UX bALHSSECs Xe HHL ESSEC 
Xs BX ebNIN/SEC s IX GHINe e 3X eGHIN/SE Ce DX a dHI Nes ZS 0 IX eGHFORE p2K94F 9a2 8 
KAR Te deSF Vere Beh eF Fe deF Ae Gok 72 3)) 

I[s=1 

J22 

DO 350 KSJ,NI 

TEMP=SCUR(ITIS +1) =TSLOTF (IIS) 

TP C2CALC(K)-TEMP 33409320+320 

CONTINUE 

WRITE (69330) SCURLIISe1) o (PRNT(KeL) eL=197) © (PRNT (Koh) eL=90) 5) 

FORMAT CEA Foe Se SF Gece k oF Te a eSF Fees F Be S eh Fa deF By 4a To 3} 

6) TO 360 

CONT INUE 

WRITE (64400) ZCALCIK} 5 {PRNT (Keb) Lh 77) o (PRNT (Kol) 2L=9915) 

CONTINUE 

«x = NE 

IF (KNIT) 37003709410 

K=Ke1 


12090 
L2}00 


17110 
12140 
[Pr to 
12160 
1P150 
LP lop 
1Al fu 
12140 


12210 
12220 
12230 


12260 
12270 


12290 
12400 
123130 
12320 
12330 
12340 
12350 
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121 
22 
29 
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125 
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le7 
124 
t2y 
130 


131 
ide 


133 


134 
135 


136 


13? 
L3e 


139 
140 


141 
Loe 
L43 
144 
145 
146 
i4/ 


148 
149 


150 
191 


}S2 
153 
154 
1S5 
156 
187 
158 
359 
160 
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SUBROUTINE FRMDUT (TE) 


TEMP=SCUR(TISe2} +TSLOTA(ITS} 
TF {K-N1) 38023800416 
349 TF (2CALC tk) ~TEMP ) 37023952990 
390 Kaael 
395 CONTINUE 
WRITE (69400) SCUR(TISe2) o (PRNE(K9L) sL= Le Tio (PRNTi<ek) eL= 9035) 
400 FORMAT (I AsF Reds GF On eee Xela BeSF a 2eF Had ek 7a BoP Gi GeF Te dd 
Joke] 
LES#IIS+] 
60 FU 310 
CHoHeeOPRINT SUMMARY OF AFT END DATARH oOo 
410 IF (NSUBMGeLt.0) GO TO 415 
WRITE (69416) (PRNT (NEP) 91) e181 15) PRNTINIPD 97) (PRNTINIPL TP ole Dot 
o4) 
416 FORMAT (Xe AFT(A) 8 e2XeGFDo2e2keF Pedr! ceene AF Ie eF Red el feds 
A14H epee eacned 


NIP2cN{ +2 
WRITE (60417) (PRNTENEP2¢)) 0 T2105) sPRNT (NT P2207) 6 (PRNTINIP2ZeT) ¢Pa9904 
>) 
GIT FORMAT (AAS IAPT {8} 8 e2xe4F9, mpenen aes erence  OFO eer BeGaF 7 e380 

X14H sees eeveesl/} 
GO FO 425 

415 WRITE (62420) (PRNTINIPI,£) 9121 0S) ePRNE ENT P Se 7) 6 (PRNTOINIP] oT) ep T=908 § 
Xx) 


420 FORMAT (4X9 3HAFT 9 2X o4F 9.202% oF 7.999H ewes e tGF Oe eF Bede l 7a Se 
X14H oped eucvesl/) 
425 IF {SCUR(191)6G6T»1.0E36)69 TO 490 
C##OsHtPRINT SUMMARY OF SLOT JATARaHEe 
DO 430 J=1eNSLOT 
SKF €1)=SCuR e191} 
440 SKACE) =SCUR(I 92) 
WRITE (69455) 
435 FORMAT( ELS) 
WRITE (69440) 
440 FORMAT (13% pGHSLOT/ 91 2X 6 GQHINTERF ACE p5Xe2HPD OX g LHP elLOXelLHT ol OXe] Hie 
XEOX »ZHAP s Ke SADWIOT BX s 24AH 9 GX ¢ HRB EEX + SHUELTA » 6X SHWSL OT / 
X L2KeBHLUCATIONs T1 150347 4U/ 
x L4XeDHINe eBX es 4HPSLAs TX eAHPSTA OX eGHNEG. Re SXyOHFT/SSEC ¢5Xe7HSO 
Ke INes4XeGHLB/SEC She THSDe TNe tr bX eGHIN/SECs PXs SHINee OX + GHLSB/SSEC/S/) 
DO 470 J=)eNSLOT 
WRITE (oe450)SKF {1} sPOF (E} ePSF (CE) eTSFCT} SUF CT) eAPF UT) eOWSLTF(T),» A 
ABSLIF{L) sRASLTF CY) eTSLOTF (LE) sWSLOTICT) 
450 FORMAT (IX + BHFOREWARD s 2X01) (1 PE1104)) 
WRITE (62460) SKACT) sPOALT) ePSA(T) eTSACT) SUACT) cAPA(I) eDWSLTACTI) 5 4 
XBSLTALT) sRBSLTACT) p FSLOTA(T) sHSLOTOCI) 
460 FORMAT(IXs SHAFT so 7Xe12 (1 PE11 0417) 
470 WRITE (69480) DW0TS(T) 
480  FORMAT(EXs9GAS SUILDUP TV SLOTs OW/DT =%51PE11,467/) 
490 JF CIE.EQ.2)60 TO 780 
500 CALL MODTSB(IE) 
TF CICHN.EQ,5) RETURN 
780 CONTINUE 
TIME=TIME +DELT 
RETURN 
£ND 
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12410 
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124650 
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INDE xX SUBROUTINE IBMOUT (IE) PAGE 165 


SYM@OL PREF eT ERE TEM PREM OREM ERE SEM EMER EM Pee ER REFERENCES HEE hy moO E Ew SERENE RET EH Pm eR THR ime 
130 - 348 

160 - 38 age 
170 - 38 &)* 
260 = 49 So# 
270 - 60WR 61* 
27) - 63wR o4H 
272 - HOWR bit 
273 = 69aR 70% 
27% - Tew 73 
275 = 75WR 76% 
276 7 7BwR 79% 
277 « aiwe 82% 
278 - 84wR ae 
are - B7WR gat 
280 ” JOwR oie 
281 = 93wR Oat 
2be ~ Jow? See 
283 bl 100WR 1OL® 
204 - 1020R lowe 
295 - 49 998 
300 - 104WH 1056 
314 = 108% 130 
Jeu = 110 Vile 
336 - 1!2wWR y134 
340 = 110 11h 
350 - 10800 1i7# 
360 - 114 L19e 
370 - Wy 1204 lej 
380 - 122 123% 
390 - 123 124% 
59S = 123 Lege 
400 - 116#R L26WR 1272 
410 - 11g i22 1gie 
415 - 131 134% 
416 - 1j2¥R t338 
417 - 135WkR 136% 
420 = 136wk 139% 
425 ce 137 Laue 
430 - 1461p0 laaz 
435 - L44WR 14h 
440 - 146wR 14a} 
460 - 1490R 1506 
460 - 1S1wWR 1Sa# 
470 = 14800 {S36 
460 - 153WR 154+# 
490 - 48 98 14d 155 
500 ~ $568 

Tuo - 155 + [b5a% 
AAN - 220 

ABCYL a 12c0 

ABSLOT = 27c0 44 
ABSLTA = 16CO 151¥R 
ABSLIF = 16C0 149wWR 


p-u2G0 b-9520 


OPL-E 


INDEX 


ABTOT 
ACCEL 
AFF 
AFHI 
AHH 
4S{BCYL 
AINCHI 
AINCIN 
AINCw 
AIPCYL 
Alt 
ATTVAC 
AJB 
AUBH 
AGSHED 
AJBAN 
AJYN 
AJBNGZ 
AJPHED 
AJPnN 
AJPNOZ 
AJPP 
AKGY 
AKGYK 
AKOYY 
AKRST 
AL 

ALA 
ALG 
ALE 
ALL 
ALS] 
ALS2 
AMACH 
AMPN 
AMW 
AMaG 
ANI SO 
ANLOPS 
ANN 
ANO 
ANZ 
AOMCYL 
40) 
Av2 
Ad 
ADS 
AOS 

AP 

APA 
APF 
APHI 
ASE 
ASEA 
ASEB 


LS 


22C0 
12co 
18CO 
17C0 


13¢0 


P3cu 
12co 

4co 
2icu 
230 
Peco 
15CO 
20C0 
2acu 
13Cu 
L3CO 
20co 
13C0 
\3co0 
13c0 
13¢0 
18CO 
23co 
23C0 
23Co0 
21Co 
18C0 

4C0 

4co 

4cu 
18CO 

4Co 

4co 
12c0 
21Co0 
21C0 

5C0O 
12eC0 
12C0 

&CO 

4coO 

6CO 
23Co 

4c 

4CO 

4CO 

4CO 

4CO 
19C0 
16C0 
16C0 
12C0 
18CO 
29Co 
29C0 


4s= 


985 


52 


402 
59s 


b3s 
Sas 
b2 


$2 
52= 


33 


37 


50 


-ISLWR 
tG9OwR 


Sy 66 
a3 HAWR 
4e= 435 
648 69WR 
$9 az 
sy 95 
TH 7SWR 
92 J3WR 
65 S6WR 
51 


SUBROUTINE IBMUUT(1E} PAoF 146 


BTWR 


7awR 


9OWR 


prO2Z0UL-9S2a 


LOLS 


eeugcunereee 


INDE xX 


37 
635 


37 
4646 
80 


50 
42 


15awkR 
1biWR 
149wR 


4646 
36 
39= 


53 
S\ 


HE VARIABLE~ I 


ASI = 18CO 
AT - 21co 
Al - 30Da 
A2 “ 300A 
BLKOOS = eh 

BRNOUT «= 19CO 
CFO - 24c0 
CFOL - 24c0 
CFPROP = 15c0 
CGCYL - 50s 

CLOPS ~ 24c0 
CM -~ eco 
coma ~- i2# 

COM - 134 

CQMG ~ 144% 

COM) ~ pS" 

comJ - 164 

‘COMI - 17% 

CoMT ~ 14% 

CONSTS «+ aH 

CSTAR - 5CO 
CSTR - 5co 
be - 6ca 
VEEN ~ 24Co 
VELF - 11C0 
OELT = 12C0 
DELTA - 2ico 
DELISS - BCO 
OELTST - 8C0 
DELTTO «= 8CO 
UELZ - 11co0 
bs ~- elco 
UT - 6CD 
OTINT = 13c0 
OwouT ~ 14C0 
OwDTS = 17¢Co 
OWSLTA «= 170 
OWSLTF = 17C0 
cP] - 24C0 
F - 24C0 
FAMCAL - 46% 

FINDP - 15CO0 
FYAC - 15Co 
FVACK - 36= 

Gama ~ 5CO 
GaMAG - sco 
GNOT - 3CD 
HCO - 11¢c0 
HE Ca 18CO 
HET - 20c0 
HSUBHG + 29C0 

T 

T - 132uR 
I8MOUT = 1% 

ICHN - 25C0 


13SWR 
187 


71 
68 


81¥#R 


$1 
159 


37s 
42 


S4 
S3 


SUBROUTINE IBMDUT{IE) 


BO 89 

7% 77 83 86 92 
53 54 $5 sé 57 
42 

58 

56 


“IS USED BEFORE IT [5 DEFINED 


138WR 


14100 142 143 14800 149WR 


95 


15] WR 


PAGE 


147 


¥~Leuul-9S20 


Sbl-c 


ee Ge ee EE 


eee eee 


INDEX 


YE 
TFLAG 
lil 
IlJ 
HIS 
[NPUTG 
INPUTI 
INPUTL 
INPUTM 
INPUTO 
INPUTT 
INPUT 
INPUT) 
lout 


161 
i$? 

J 

K 
DUMP 
KMOICG 
APLANE 
KRASUA 
KARSUH 


L 
MODTSB 
NCASES 
NCSCUE 
CSTR 
NOLSP 
NEND 
NF 

NI 
NINCPL 
NIP} 
NIP2 
NLEWIS 
NPUTAB 
NRECON 
Ey § 
NSLOY 
NSUEMG 
NTAGE 
NYME 
NWRTAB 
OUTPUT 
Pp 

PA 
PARMAA 
PARMAS 
PARMB 
PARMD 
PARMPF 
PARMG 


pee etpt fe dea aagad 


sre atae cra 


popaeepae speatkcere dc area)’ st tpprnrseigeet 


1AG 
26CO 
19CO 
19CO 
19CO 
Se 
6e 
fe 
&+ 
oe 
104 
114 
qe 
32a= 
960k 
19CU 
19CcO 
ln7v= 
10600 
11¢0 
9CU 
9CUD 
20C0 
20co 


155 


106= 


60wR 
100wR 


10900 
110 


HE VARLABLE~ L 


104wR 
1s6% 
2co 
sco 
5c0 
2co 
29C0 
2co 
19C0 
19c0 
352 
134 
2co 
7co 
2c0 
2co 
19C0 
29C0 
19CO0 
19C0 
7CO 
47% 
21c0 
11c0 
288 
298 
19% 
206 
ale 
22 


Ll2Wk 


35 


La2wR 
135WR 


1 14kb0 
131 


15646 


tugd 


b3¥R 
Lo2wR 


leu= 


. LZWR 


els 
L1lawk 


10800 
13a6wR 


14800 


ll2wk 


b6weR 
104Wk 


114WR 


126wR 


118 


SUBROUTINE IRMOUT (TE) 


121 126WK 1295 


69WR 7awkR Toa 7OwR Blak B4uR 


This lie leds le2 123 lade 


USED BEFORE IY IS DEFINED 


119 . 122 134 


87a 


12Sar 


Patt 


90wk 


leak 


Last 


O4eR 


$-G2001-9520 


Sb LE 


eeeegs 


INDE xX 
PARMI - eas 
PARMK = « pat 
PARMS - 2hu 
PARMV = 26% 
PARMZ - 27s 
PD ~ 14f0 
PEPO - 24C0 
PH - 2rru 
PHI - 11C0 
PI - 3c0 
Pld2 ol 3CcCG 
PMAX - 19C0 
PMIN ~ 19CcoO 
PO - 27C0 
POA - 160 
POF - y6ro 
PON - 2140 
PRESS - sco 
PRNT - 120 
PRTFLG = 7co 
SA - 16CO 
PSF - 16C0 
R - 5C0 
RA - 16C0 
RADIAN - 3co 
RAV - 18CO 
Re - 14C0 
RHSLTA = 17¢9 
RBSLIF « 17¢0 
fi. 74 - 14c0 
RBZTG oe 14CO 
RC = 186CO 
RETURN ~ 1s7t 
RF - 4C0 
H2 - 4C0 
x3 - 400 
R4 - 4&C0 
RS - 4Co 
Ro - 4Cu 
KT? - 4&CQO 
RB - 4CQ 
SA - 10CO 
$B - 10co 
SCUR - 19C0 
SKA - 3101 
SKF ~ Zlbr 
SLTBRN = 10CO 
SPHDT - 2eco 
SPONDE =~ 22C0 
STOYST = &CO 
STIFLAG - BCD 
SUMDV - y6cu 
SUMOVA = 2900 
SUMDVB = 29C0 
SWUOOTN = 24C0 


151wR 
149WR 
J? 


104WR 
1S1 wR 


149WR 
33 


1S1uR 
149uR 


160# 


iu9 
143= 
142s 


SUBROUTINE [BMOUT {TE} 


112wer L164R 126uR 132wWk 135K 
49 OB 100 


1iewR 121 126wR 140 14e 
IS1wWR 
149WR 


13GwR 


143 


PAGE 


149 


$-G2C0L-9520 


OSL-e 


INDEX 


Tt 

Tau 
TAUAG 
TAUTU 
TAUw 
TAUWDP 
TAUZ 
1AUZTO 
TCOMB 
TEMP 
TENPL 
TEMP? 
TERM 


TIME 
TIMtw 
10 
FOFLAG 
TSA 
TSF 
TSLOTA 
TSLUOTF 
J 

UA 

uF 

ul 

vEd 

VF 
VFCYL 
VFH 

VE INT 
VFN 

vF Reb 
VIS 

vP 

VPH 
VPN 

#D 
wDOT 
wOOTLD 
wOOTL 


WF 
wGOTOT 
wl 
WSLOTO 
WSLOTI 
wT 
ABARI 
ABARIH 
ABH 
XBN 
AR 
ZCALC 


toragvrteseeudie 


tappaert)ebreraratrtrtaepecaurenpnre te aretranrenea 


21Co 


1&Co - 


1300 
19C0 
4CO 
14CO 
14CO 
44C0 
5CO 
Sb= 
56= 
g?= 
425 
BlWwR 
21C0 
12C0 
28co 
19C0 
16CO 
)6CO 
17CQ 
17C0 
21Co 
16CO 
16CO 
12C0 
2200 
14CO 
18Co0 
22co 
22C0 
22ecu 
24C0 
2éeCto 
14C0 
23C0 
23C0 
24CO 
19Co 
19CO 
12CO 
26C0 
24C0 
18CO 
16CO 
16CO0 
18CO0 
20co 
peco 
43ce 
13C0 
18CO 
12C0 


56 
od 
oH 
6.3¥4R 
B35 
Jn 


Lolwr 
149WR 
12) 
1u9 


iS]wR 
149WR 


45 
45 
45 


a5 


$1 


AS1wk 
149wWR 


Sls 
- Si 
51 


310 


ldys 


ob= 
84WR 
43 


lolwR 
loown 


bot) 
ol 


Sl 


So 


$3 
53 


+ 54 


LlewR 


llo 


O6WR 
* 665 
159= 


93 


58 


54 
56 
ST 


123 


1215 


64= 
BTWR 


58 
7 
89 


123 


69WR 
a9 


56 
57 


62 
72wR 
S0WR 


SUBROUTINE {uMUUT{ TE) 


e 
Ths 72WR 745 ToaR 
QUwR 9es 93WR 95= 
64WR 


‘ 


77s 
36aR 


PaGE 


PAwe 


1s 


aos 


Hwee Hepes ry des BHR Peete tw swe pe poesue psa t egestas setae tepetoetatetwbetestate bates obetetagutv genta sensatan 


y-U200t-9S20 


LSL-E 


INDEX 


Cyr Prune 


con 


13 
14 
yd 
16 
7 


is 
V4 
20 


22 
23 


24 
25 
26 
at 
28 


eo 
30 
Jl 
32 
33 
34 
35 


37 
38 
39 


4a 
41 
42 


SUBROUTINE INPT 
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t R3ACEB) eRG(18) RSC18) REC1B)IR7(19) sRACLAF 
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COMMON/INPUTV/ VENOAs VFNOBsVCNINAsVCNING 
COMMON/INPUTW/ TAUMNAs TAUMNG 
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g XCGNA (50) »XCGNB (59) sABNA 50) + AUN (50) 
4h COMMON/PARMAG/ 1XSUB(2014TRSUH (20) »NPSUB 
45 COMMON/PARMAH/ VNOZSGs THETEX + STPATC eNCONT 
46 COMMON/PARMAH/ TA1B (50) ¢TA28 (50) +s TAUNH (50) 
47 COMMON/PARMAN/ A]H,A2R ‘ ec lee 
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SUTAVE + RTO eAK gS ORVRF eAKK BY PDNY pAONMGOLRE 9 3 
BHOHLHR AERO AUEHo RAHN HoHoHdE SYN T A X ER RO KR B4HHhOdoAH EAH e deo OOS aa ae 
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Sl DSAKGPHHR PAKU) ARR AKSLOF ¢SLTARNeNPHs AINCPL sROFLAG sAKRH s AKRNG gees 
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DICOME s AMWG + GAMAGSCSTRaNCSCOFs 5 
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52 BSTRLAG STDYST eDELTSTsDELTSSsDELTTOsTIMAXeTSTePSTsALTSTeANT Iwe 
STIMPT1 + TEMPT2eDELTSPs 
Reet dese RetReHeHGORNeRseHoe Sy NT aA X ERR OR Ptettetearetarr eae eo mut 
C NOZZLE PARAMETERS! 
53 B ANZ eCMVE OT eANNePACNDT e TIMEDT es TDELOT sNPAdTIMEP As TBLPAs 
& ERBARsEREXP ePONSAR +DELHs TAL Bs TAA e TAUNR, : 
$ NCMeTHLOMs TIME C¥seHSUB YG sNSUBMGs» TAUMNA +s TAUMNB» 
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HOHE) HUH PtH Renee eeneeedetote S YN T A X ERR OR FOR eRe TEH OME oO ARE R . % 
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SXCGNo TAUPL + ALPPLs AKGYP»GEOCON »NGE Os ABNAs ANA SPMD INA «PHOINR es 
SRMOINA ¢RMOTND oe XCGNA + XCGN3 o VFNOA 9 VFNUH eVCONINAGVCNINAS 
HASH LOREGRHOR HEATHER S YN T A X ERR CH +e eerste erERoudanauAe 
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$5 SPRIFLGyKMULCOePHE eCRPsCRT eCRWyNEPS oe PCT ABs TIMERS sEPCOeEPCNs VACCEL + 
SACCELT + TIMEAC 2 CXDUMP eKDUMP 4 WFACT sRHOTOL WF TOL »GFORUN 
HHHST HO SHSHH Hodes oseebe Sy N T A xX ERR O R SHH G SHU RHE KURO HGR ERE 
S6 NISUUT=29 
57 IF(NDISP,GT.0) REWIND 25 s fo) 
$8 CALL DATLOC{ IN) a 
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60 @ READ ( IN» IBDATA+END=100) Se. 
61 IF{NDISP.GT.0} READ (25,1 01SP 
62 DO 20 I=1513 . oD 
63 THO(1) =THO¢1) /57.29578 r ‘ D 
CG EF THETA=ZERO VALUES ARE INPUTs M.O.]. CALCULATIGNS ARE SUPPRESSED a] hey 
64 IF ¢THOCT) «GT20.0}KMOICG=1.0 py 
65 20 CONTINUE GQ? 
66 IF (KPLANE »NE.0) GO TO 22 & 
67 WRITE(6s2)) KPLANE ‘ 
68 2) FORMAT(*OERROR IN INPT #4 KPLANE= #4913) B 
69 stop 
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IF{NCSTR,GT.0) GO TO 2S 
IF (T06EQ¢0n0) TOSCSTARAHCHGAMA4 (2. /(GAMAS1,))&% 


S((GAMA+1 £1 (GAMAWb 0) 3 743252 74054R) 


IF{CSTARsEQs 000 «AND. CSCOEF (1) «EQ.000) 
CSTARSSORT (32517405#K#TO/ (GAMA (2. ZIGAMA+ La) 8H 


$((GAMA1.) 7 {GAMA©E.))1) 
C INIT{aLIZE SLOT INTERFACE LOCATIONS(IF ANY INTERFACE LOCATION [IS ZEROs . 


C EACEPT SA(1)y THEN RESET FO THE UNATTAINABLE VALUE ].0E37) 


25 


40 


$0 
60 
C S&T 


100 
310 


120 


IF (SHC01)}.E0.0.0)60 TO 40 
SCUR(1,1)=SA(1) 

SCUR (142) 258 (1) 

bo 30 T=2918 

IF (SACI) eEQ60.0)SACT) =1.0E37 
TF (SB LT) .E000.0156(19%}.0E37 
SCUR (191) =SA(1) 

SCUR (142) #58 (1) 

GO TO 60 

bO 50 121918 

$A(1)=1.0UE37 

S8(1) 51.0637 
SCUR(] 91) 41-0537 

SCUR (152)21.0£37 

CONTINUE ' 

CONVERGENCE CRITERIA IF THEY HAVE NOT SEEN INPUT 
IF (CRP.EQ.000) CRP=0.00} 

IF (CRT Ee O00} CRT S000] 

IF (CRWeEQ +060) CRH=H0000) 
RETURN 

WRITE (69110) 
FORMAT(S(¢/) 9 °0tND OF JOH*) 
sToP 

REwIND NIBOUF 
READ(NIBOUTsTBDaTA) 

GO TO 8 

END 
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TIMEPS = 28ca 
TIMPTE = 26C0 
FIMPT2 = 2600 
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TOFLAG = 39C0 
TRSUB - 4400 
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YCNINH - 34C0 
VCNINP = 20c0 
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SUBROUTINE Lusus 


SUBROUTINE Lasua 
cocecceeccceccceeccceeceecceceecocececcceccccecececcecccccceceececcceecce 


c SURROUTINE LdSUB DETERMINES THE LENGTH (8) OF THE ¥Y [NTERCEPT 
c PRODUCED BY TdE INTENSECTION OF THE LINE Y=0 AND THE LINE NORMAL 
c TO THE ELLIPSE AT PO (SECTION 5.2.1.2). 


cecececceccceccececceccccce teccceconccccecccccceccececcccccccceccerce ce occ 
COMNON/PARMHZ31E 5 BOE sAANN SAX RXX CAST SUELLHI +ROGEGs ALE SYP eZP le 


1 ARCOCARCLRIELAALE TIL e CL eALGs THR» TRO. ADE 
IF (YPI) 2010920 . 
10 ALITTL=0- 
oO TO 30 
20 ALITTL=(2P1-¥PI*TAN(ARCLD} /TANCARCI) 
36 RETURN 
END 
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79270 
702460 
70250 
70260 
O2HO 


70300 
70310 
TH320 
70330 
79340 
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SYMBOL Pet tet Pt Se ee. 
1G - 3 4e 
eu - 3 6* 
30 - 5 i# 
AANN ” 2co 
AIG - 2co 
aLITTL «+ 2co. 4= 
ADE - 2c0 
ARCO - 2co 
ARC) ° 2co 6 
ast] - 2cu 
AYE - 2co 
BOE - eco 
HX - 2co 
SIE - 2co 
VELLRI - 2co 
L&sub - 1¢ 
PARMH - ze 
KETURN «< 7* 
ROE1 - eco 
HOPES - 2co 
RXX ~ #co0 
TAN - 6 
THR] - 2co 
THRO - 2co 
YP] ~ 2co 3 
zy - 2co 
ZPj - 2co 6 
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SUBROUTINE LINK] 

COMMON/BLKOOS/ NLEWISeNSIToNF eNRECONeNCASES pNOISP yNCASE 
COMMON/INPUTL/PRTIFLG sNWRTABeNPUTAS 
COMMON/PARMS/ICAN 

CALL INPT 

TR (NRECON.GT.0) CALL [NTREC 

TCHN=1 

GO TO (697 e4eFe)0525) eICIN 

CALL MNCHNI 

49 105 

CaLL MNCHW? 

oD) TOS 

CALL MNCHNS 

oo TO 5 

TF C(NPUTAB.GT.0) cOR« (NWRTABAGT.0}) CALL PCHWRT 
PETUAN 

WRITE (6912) 

FORMATCHIERROR IN Id4 MOJULEs IN LENKIt} 
STuP 

RETURN 

END 
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STUP 
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SUBROUTINE LINK2 

COMMON/OUMYV/GEORUN 

COMMON/PARMS/ICHN 

COMMON/PARMAH/S VNOZSBeTHETEX+STRATCeNCONT 
LF E{NCONT.GT.0) CALL NSCE(1) 
TF CICHN.EQ,5} GO TO 35 

IF (GEQRUN.GT.0.0} RETURN 
CALL MNCHNG 

IF CICHN.NE.5) RETURN 

WRITE (6930) 

FORMAT (¢ 1 cRROR IN TAM MOOULEs IN LINK2*) 
stor 

WRITE (6936) 


FORMATCTLERROR IN IdM MODULE/NSCEs FROM LINK2*) 


sroPe 
END 
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20 ~ ou 
30 ~ 10WR 11 
35 - 6 13% 
36 - 13WR 14# 
OUMYY = ee 
GEURUN =~ 2co 7? 
ICHN “ 3c 6 9 
LINK2 ” ag 
MNCHNG = 8+ 
NCONT - 4Co 5 
NSCE = 5* 
PARMAH = 4 
PARMS ~ 34 
RETURN ~ Ve on 
SiRATC 4C0 
STOP - 124 1546 
THETES - 4Co 
VNO2*B = 4CO 
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SUBROUTINE LUGKUP 
SUBROUTINE LOOKUP 


SUBROUTENE LOOKUP PERFORMS THE TABLE LOOKUPS FOR THE 
REFERENCE PLANE PERIMETE? AND RADIUS OF GYRATION AND THE HEAD 
SECTIONS Huns AREAS AND 4OMENTS OF INERTIA AT THE HEGINNING 
OF EACH TINE POINT SOLUTION IN SUnROUTINE MNCHNS. 


COMMON, [NPUF3I/GEOCON (45514) 

COMMON/ INPUTG&/NGED (1A) ¢APORTI13) sTAUPL (50618) sALPPL (SOe38) s 

1 AKGYP (50s 1A} ¢TAUAI(50) ¢AHHD (50) -PMOTHD (50) 5 

2 RMOIAD(50} oXCGH.) (90) + TAUN (503 sABN {S50} SPYDIN(SO} 6 

3 RMUIN( 50) eXCGN (50h) pNGEOHU +NGEOMN 

COMMON/ INPUTO/K PLANE KMOTCG 

COMMON/ INPUT HS TAUMNAs TA JHNG 

COMMON/OUMYU ZT AURPL (18) ‘ 

COMMON / COMA ANH + AJP tN sp AJSSHN» TAUAO + AJPHED 9 AJBHED » AUPNOZ »AJANOZ > 
KOH XBNODFINT 


1 
» COMMON/COMG? TAUZ CIOL) 22320101) eTAUZTOCIOL) RAZTOC IO) PD C101)» 


4D 


50 


80 


1 TAUWOP (101) sWBeVF sOWOOT es VP 
COMMON/PARM YZ AP ePMIN PMA WOOT e LIT e LEU pWDUTDeNSLOTeNTAHL ¢NTME® 
t 


TAUT Os TOFLAGeNINCPL sHRNOUT OL ISe [Sis [SANT eSCue 1 aeA) 


COMMON/PARMG/VE He AAs VEN VIG eCALT sSPHDT ) SPUNDT gp VFINT s VEHyAATOT 
COMMUN/PARMQ/ROYP (18) ¢AF APL (18) eALPRE (1A) 

COMMON/PARYAS/ HSUONDs VSUOMG sNENI) + AS5SE4) ASER » SUNDVA s SUMNVE 
CUMMON/PARMADS PMOINA(50) PPMOTNI (SO) PRHOTNA CSO} s MMUINA (50) © 
$ XCGNA (50) + XCGNH (50) »ARNA (SO) sABNA (SO) 
COMMON/PARMAI/ VFNAGVFNB s VCNA sp VCNB 

COMMON/PARMAU/S RANA tAANT + AJPONZA SG AJPNZH se AJUNZAsAISNZD PXHN AO XBNA 
COMMON/PARMAM/S TALK (50) .TAZH (50) s TAUNK( SO} 

COMMON/PARMANS Abbeded f 

LiH=1 

LN=) 

JF TAUMC(CE)=0e0« SET TAUM(E)SLASf TAU IN TABLE 

1F (GEOQCON13891).NE.U.0) 30 70 SO 

DO 40 J=l]lsKPLANE 

N=NGEO(T) 

GEOCON (34s 1) STAUPL (Nel) 

JAUM FOR END SECTIONS 

TMHU =} AUHU(NSEOAD) 

THN =GEOCON (38+ KPLANED 

0O 390 =],KPLANE 

TAU $S DIST. BURNED FOR CURRENT REFe PLANE 

1TAU IS JNDEX ON TAU TAdLE VALUES (TAUPLA) 

ITAU=1 

N=NGEO(T) 

TAU= TAUKRPL II) 

IF TAU GREATER THAN TAUM(I)SET VALUES=0,.0 

IF (TAU,LE.«GEOCON(36+1))} GO TO a0 

ALPRP (1) =0,0 

RGYP (1) =0.0 

GO TO 160 

IF CFAUPL (1 FAUs 1} TAU) 90412045130 

TTAU=ITAUS] 

IFCETAULLE.N} GO TO 80 

WRETE (69130) I 
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SUBROUTINE LUOKUP 


FORMAT (38HOGEQMETRY TABLE LOOK-UP FAILURE = PLY 12) 
GO TO 160 

CALCULATE INTERPOLATION FACTOR é 

ALPRP (1) SALPPL (1 Fale) 

RGYP CT) SAKGYP CU) TAUs i) 

GO TO 160 


FACTOR= [TAU=TAUPL (1 TAU=161)) ZC CAUPL CET AUs 1) -TAUPL CI TAUHLe tT) 


COMPUTE PERIME1E2 LENGTH FOR THIS SLANE 


AL PRP (1) =ALPPLITTAU~1e]) *FACTOR? (ALPPL (I TAUS IT) -ALPPLCITAUR] 939) 


IF KMOICG TS 2bRXO COMPUTE RANIUS OF GYRATION. 
TF (KHOTCG) 26091509160 


RGYP (LT) SAKGYP (I TAUH1 91) #FACTOR® (AKGYP (I TAUST) -axGYP (TTAU~} 439) 


COMPUTE END*SECTION VALUES IF APPROPRIATE 
IF (1-1) 28041704280 
CALCULATE HEAD}SEND INTERPOLATION FACTOR 


LAHV=LH 

OO 200 JSLH1s+NGEOHD : 

IF (fFAU-THHD) 190+190 9180 
AHH=0 ¢f} 

AJPHED=0.0 

AJBRED=EO.0 

XBH=0.0 

60 TO PRO 

IF (TAUHD (LH) TAU) 20092309240 
LH=LH+] 


IF DO=LOUP {1S EVER SATISFIED THE TABLE HOS BEEN OVERRUN 


WHITE (6220) 

FORMAT (38HOGEOMETRY TASLE LOOK-UP FAELURE © HED 
GO TO 280 

AHH=ABHD (LH) 

AJPHED@PMOTHD (LH) 

AJBHEDERMOLHD ILA) 

XBH=XCOHD (LH) 

GO TO 390 

FACTORS (TAUTAUHD (LHW1)) 7 CTAUHD (LH) @TAUHD (LH@1) ) 


COMPUTE HEAD-END BUKN AREA 


AHH = ABHO(LH=1) +FACTOR® (ABHD (LH) ~ABHI(LHo1) } 

IF (KMO1CG) 28022604280 

AJPHEDSPMU THD (LH=3) +FACTOR® (PMOTHD (LH) ~PMOTHD{|.H~1)) 
AJBHEOSRMOTHOILH-}) +FACTOR® (RMOTHD (LH) -RHOTHD (LH~1)} 
XBHSXCOHD (LH-1) +FACTOR® { XCGHD (LH} ~XCGHD (LH~2)) 

IF (L-KPLANE 939012905390 


' CALCULATE NOZZLE INTERPOLATION FACTOR 


LNNYSLN 

IF (NSUBMGeGT.0) GO TO 3800 
00 320 J=LN1_yNGEOMN 

IF (TAUSTMN ) 31083109300 
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300 
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3b40 FORMAT (TQGEOMETRY TABLE LOOK-UP FAILURE -NOX - STATEMENT 3920 IN L 
SOOKUP') 


33850 


3855 


SUBROUTINE LUOKUP 


AAN=0,0 

AJIPNOZ=0,.0 

AJBNOZ=0.0 

AUN=0 2 Q 

GO f0 390 

TF (TAUN (END = TAU) 32093505360 

LNSLNel x 

If OO-LOOP IS EVER SATISFIED THE TAXSLE HAS REEV OVERRUN 
WRITE (63340) 

FORMAT(36HOGEOMETRY TASLE LOOKeUP FAILURE « NOX } 
GO TO 390 ? 

AANZABNILND 

AJPNOZ=PMOLN (LN) 

AJBNOZERMOIN(LND 

XANZXCGON (LN) 

GO 10 390 
FACTOR=(TAUSTAUN(LN|]]L) 417 UN (LIN) @TAUN(LN@1)) 

AAN = AUN(LNE|L} +F ACTOR] (ABSICLN) =ABNEILN=1)) 

IF APPROPRIATE CALCULATE MOMENTS OF INERTIA AND CENTER OF 
TF (nMO1CG} 3900380» 390 

AJPADZ SPMOINILN<E) +P ACTIR® (PHUIN (LN) <PMOIN(LN~]}) 
AJHNOZ SRMOINILN-1) +F ACTOR? (RMGIN {LAD -RMOINOLN-1)) 
XBN= XCGN(LN@ 1) eF ACTOR (XCGNILND MACGNILN=t)) 

60 TO 390 

0 JB7N KE102 

LN=LNL 

TAU=TAUZINI eK) 

IF(KsEO,2) GO TO 3810 

[FCT AU= ( TAUMNA=0,000])) 3510638055 3805 

AANaz0.0 

AJPNZ4O=0,0 

AJKNZA=0,0 

XONA=0.0 

690 TO 3670 

BO 3820 JELN] »NGEOMN 

[Ft TAUN(LN) TAU) 368202385953860 

LNELNet 

IF DOWiLOUP FS EVER SATISFIED THE TABLE HAS BEEN OVERRUN 
WRITE (613840) 


GO TO 3900 

IF (KeEG.2) GO TO 3855 
AANASABNA (LN} 

IF CKMOICG»NE.O) GO TO 3870 
AJPNZASPMOINACLN} 
AJBNZA=RMOINAILN) 

XBNA = XCGNAILN} 

G0 TO 3870 

AANB = ABNB(LND 

IF ¢(KMOICG.NE.D) GO TO 3870 
AJPNZB = PMOJNB{LN) 

AJBNZB =RMOIN3ILN) 

XBNB = XCGNBILN) 

GO TO 3870 
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FACTOR (TAU-TAUN (LN=1)) 7 ( TAUN(LN) ~TAUNILN=1)} 

IF (KeEQe.1) AANA=ABNA(LN~1) *F ACTOR® (ABNA (LIN) ~ABNA(LN+J]}} 
IF (KeEQszZ) AANBSABNE (LN=1) +FACTOR® {ABNH (LN ~ABNB(LN-3)) 
IF APPROPRIATE CALCULATE MOMENTS OF INERTIA AND CENTER OF GRavITy 
IF {KMOICG.NE.0) GO TO 3870 

IF (K.EQ.2} GO TO 36S : 

AJPNZA=PMO[NA [LN=1) *F ACTORS (PMOTNA(LN) «PMOTNA(LN=1)) 
AJBNZABRMOINA(LN=1) *FACTORG (RMOINAILN) -RMOINA (LNW2)} 
MBNA =XCGNACLN-1) +F ACTOR # (XCGNA (LN) -XCGNAILN=])) 

60 TO 3370 

AUPNZB=PMOLENB (LN@-1) FACTORS {PMOTNY (LN) @PMUINBILN@1)) 
AJBNZB=RMOINE (LN©]) ¢F ACTOR® (RMOTNG (LN) @RMUTNH(LN@1)} 
XONB= XCGNB(LN#2) +FACTOR® (XCGNB (LN) “XCGNK(LN=)) ) 
CONTINUE 

AAN = AANA + AANS 

IF (KMOICG.NE.0} GO TO 3900 

AJPNOZ = AJPNZA + AJPNZB 

AJBNOZ = AJBNZA + AJBNZB 

KON = {XBNASVFHA © XBNBeVF NK) SVEN 

TAU=TAUZ (NI +2) 

LN=SLNI 

00 3920 J=LNIeNGEOMN 

IF (TAUNS (LN) -TAU) 3920395003960 

LNSLNG 1 : 

WRITE (693940) 

FORMAT (TOGEOMETRY TABLE LOOK-UP FAILURE ~ STATEMENT 3920 IN LOOKUP 
be) 

oO TO 390 

AIB=TAIB{LN> 

A2B=TAZB (LN) 

60 TO 390 

FACTOR= (TAU-TAUNG (LN~1)) 7 CTAUNE (LN) -TAUNBILN=1))} 

ALB = TALB(LNWL)4FACTORA{TAIBILN) ~TALW(LN-J])? 

AZB = TACB(LN@1) *F ACTORS (TO2B8ILN) <TA2BILN-1)) 

CUNTINUE 

RETURN 

END 
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SUBROUTINE LPOAPS 
Ceccccccececcccececcecceccececceeccceececcccecececececccceeccecceccceececccce 


Cc “SUBROUTINE LPDAPS SETS WU? THE CORRECT VARIABLES TO DETERMIVE THE 
C PERIMETER LENGTHs AL@+ AND THE CROSS*SECTIONAL FUEL AREAs AFFe OF 
c THE PROPELLANT T1PS IN SUBROUTENE AFPSUS FOR TrHé SURI DE ECE: 

Cc SECTION REFERENCE PLANES (SECTION 5.1.1). 


Ccecceceecceccececeeceeceeececeeeececeeccececceccecceececeeceecececcecce 

COMMON/CONSTS/GNOT sPI sPTO2«RADEAN 

COMMON/ INPUTO/KPLANE ¢K40TCG 

COMMON/ WORK4S/A (5) 9R1s29eTH] eo TZN 9 140s TOMe Ao s Y45 pALC eX0Gs Y03e 
ROD KUS + VOSeROSeXOT VOT ROTs TOMeT IMs TI 24 eX 760Y 76>» 
ALD XODr VOD ROD eXOL Do VOL A eROLEsTINYs FOMe TAUMs FH2¢ 
TH3» TH4 0 371M¢B72M¢B91M 1 H92M 

COMMON WORKA/SAINCG PANO 9 QF 9 TAUW RZ» RIWRS ORS PRGSRT, RAG 

1 ALS] pALS2,ALA ALB SALE s Aw (5) 

COMMON/ COMB/ AHH sAJPHIN . ASSHM» TAUAOs AJPHED» AJRHED » AJPNO7 «AJBNOZ» 

1 


whe 


ABH eXBNeM TINT a 
COMMON/CUMG/TAUZ (101) 223Z¢101) s TAUZTOCIOL) sRBZTOCIO1) ePH(1OL)s 
1 TAUWDPC1OL) RB e VE SDWOOT o¥P 
Pcs ila Ad i hed s THSLVV 2 ASLVR sAHO¢PFHI GALPXsAPXo | 
RBHEsALPYs APY sVSLVR 


* COMMONZCOMT/TALLRECSUMOU SAR HES AL (RS) sKBANLHOASE CAFE oWI oT RAs 
! RAO ALL sAJPP 2 AST 

CUMAON/COMY/AVI] SAV Ae TV Se TVG + TVS a TVGeT V7 PAL VA CAL VSSALVCoRVAERVI + 
i RVG OXV7 DELLA] 

COMMON/ COMZZAV3sBVIMedV24s THV eRVS eRV7 SHV] CHV2 ORS) VAY 
COMMON/PARMASAFP AL 7 eAL Be TAUTOV 4 BYX @BV XK 

COMMON/PARMU/AP PMT VePYUAXSHDOF TL Te TI JeWRUTDeNSL OT eNTARE eNIME > 
l TAJTOs TOPLAS eNINCPL sBRNOUT eT ISe tS) +ISAeNEeSCUR(1Ad2) 
COMMON/PARMC/IELI+DEL7 249711891 

COMMON /PARME /RCGyDELL] ¢XBARINSHCROKWITL eKWIT2sLSwiT)] sALSXs 
1 AJPN»sAJPH 

COMMON/PARMO/ ALP + KRASBAs KXRSBE es KGAM 

R1=RF~TAUW=ALS} 

AVI =A(5) 

AV2=0(4) 

AV3=A(4) 

BV] MFKQ]M 

BY2M=B92M 

THYSTH3 

T¥22T1léeM 

TV45T10M 

T¥5=T10H4 

TV63T10M 

TV7eTSM 

ALVASALE 

ALYB=ALD 

ALVC=0, 

RVIBRI 

RV2=RB 

RV3SRT 

RV4=0. 

Rv5cR6 

RV7=K09 

XV7EAOD 


55520 
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$5810 
55420 
55830 
55840 
55860 
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55970 
599390 
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55950 
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S59R0 
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56030 
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56050 
56060 
56070 
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AFS=0.0 

AFP=0. . 
ASLVR50.0 

RSLVRV=0,0 

TAUTOV=0,0 

bO 10 1%)913 

AL (TE) =0.0 

TF { {R6*R7+RB+ALOFSALE) oLT21,0E-06)60 TO 20 
CALL AF PSUE 

CONTINUE i 
AL{13)=41 41} ‘ 
AL{L2}=AL (2) 

AL (ELE) =AL (3) 

AL (LO) =AL (4) 

AL (9}=4L (7) 

AF S=AFP 

DEL7=VELL3 

B91=BVI 

AVI=AL)) : 
AV2=A(2) 

AV3=A(3) 

BYVIM=B71M 

BV2M=B/2M 

THV=TH2 

1V2=T2M 

TV42TGm 

TVS=T5Sm 

Tv6=T6m 

TV7=T7M 

ALVAZALA 

ALVHSALB 

ALVCE=ALC 

RVI=R] 

RV2=Re 

RV3=R3 

RVGSR4S 

RVSsks 

RV7=RO?7 

KV7=X07 

RSLVRV=HSLYR 

THSLVV=0.0 

AL7=0.0 

AL&=0.0 

TAUTOV=TauTO 

CALL AFPSUB 

DEL I=DELL3 

B71=BV1 

EF (TAUW=TAUTO=<TAU) 40 +30930 
TEMJ=RF=TAUW+TAU 

AL (81 =TEM} #TH4 

AFPHAF Ps (RF RAA6 TEM] HE2) UTHOSAFS 
60 TO 80 

EF (CTAUTO} 70970 550 

UF (TAUWHFAUZTOILII)370%70+60 
TEMP=RF~TAUWFTAUZTOUIIY) 
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56140 
546150 
56160 
$6170 
56180 
56190 
56200 
56210 
56220 
$6230 
$6240 
56250 
56260 
56270 
56280 
56290 
54300 
54310 
56320 
54330 
56340 
$6356 
56360 
56.370 
56380 
56390 
56400 
$6416 
$6420 
$4430 
54440 
564450 
Sh460 
SA47O 
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$A5e0 
$6530 
50540 
$6550 
56560 
56570 
S65R0 
56590 
56600 
56610 
$6620 
$6630 
56640 
56650 
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AFP=AFP+ (RF 482, -TEMPHH2,) #TH4+AFS 


ALS=TEMP®TH4S 

AL (8) =0,0 

60 TO 80 

AL (8)=0.0 

AL&=0.0 

DEL 3=DELLS 

B71 =8Vv1 

TEM1=0.0 

DO 9M T=hel3 
TEM1=TEM1+AL CT) 
ALPS (TEM1*+ALP) #2. #ANO 
EF (ALP) 1001005110 
ALP=0. 

AP=RF R82°P] AFP eANQ 


IF (TAUSL Tol eo QE-06) AF F=AFPHANO 


JF (KMOICG 343051209130 
KWITL=1 

KWIT2=] 

TAUAD=TAU 

K=0 

CALL PTIAA(K) 

RETURN 

END 
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SUBROUTINE LPTO 


COMMON/CONSTS/GNOTePI ePTO2sRADIAN 
COMMON/ INPUTU/DELF ePAr PHI + HCO sDELZ sKDUMP (72) 


COMMON/WORKGS/A (5) eH La ROsTHL oe T2Me Tats TSM e X40 T45eALCeXO3 sVOIs 
ROBXOSe G5 sKOSeXO7TeYO7eROTsTOMa SIMs TLAMexXTOeY7bp 
ALDeXOSe VOSsROSsXOL Is VOLIsRUL] os T1OMeT9Ms FAUMe TH2e 
THI se TH4e373IMPATCMPAIIN ASEM 

COMMON/WORKASAINC s ANQORE s TAUWSR29R3 FR4 ORS PRGORT RG 


ALS} sALS2sALAsALB PALE An (5) 


{ 
COMMON/COMG/TAUZ (101) #RAZ( 101) ¢TAUZTO(LON) PREZTOCIO]) sPO( LOI) s 
TAUWDOP (102) o3Bs VF eOWDOT yvP 
CUMMON/COMM/ TAUTOZ oRSLVR V2 AX (45) @AY 145) GALNCKX sANOX SRE Xs TAUWKs 
: DUMX (17) sAINCY PANOY ORF Ye TAUWY SOUMY (17) VF PP 
COMMON/CUMO/THSLVSRSLVR sTHSLVVPASLVRVAHORFHI eALPX PAPA sy 
1 


RBH] eALPY eAPY se VSLVR 


COMMON/COMT/ TAU) RO e SUMDV oXReHE AL C1) sADARTH SASF eAF FeAl owt RAs 
RAQOsALL sAJUPP ASI 
COMMON/COMZ/AV3 oe OVIM BV2M 9 THVeRVS PRY? siV1 eUV2 e2SLVRV 


COMMON/PARMAZAF Pe AL 7 + AL Be TAUTOV 9 BVK 2 BVAX 


COMMON/PARMG/AP pPMINyPHAX WOOTs TTT TL Je WOOTDsNSLOT eNTABE wNTME y 
] TAUTOs TOFLAG NINCPL yp BRNOUT o F1SeTS1 5 1S2yNT eSCUR(18 62) 
COMMON/PARMF /PHy TIME vAINC Hs PoP eo DEL TAs Us AKGY PONS DIS + AMPNGAT > 


ANWFAKRS F 
TAUTOVETAUTO 
RSLYRVSRSLVR 
IF (TAUSLTeRSLVRVIGO TO 10 
AL(7)=0.0 
alisu)=0,.0 
AL7=0.0 
ALB=0,.90 
AFP=P]#RFU42,-AP 
GO TO 10 
CONTINUE 
CALL TRANIALNCXSAINC 221) 
CALL, TRAN (AX A945) 
BV2MX=B72M 
BVLMX=H71M 
THVX=TH2 
RV7X=RO7 
RV5BX=SR5 
AV3AZ=A(3) 
THV4 X= FHS 
CALL FRANCAINCYsAINC +23) 
CALL TRAN (AY s4e45) 
BV2MY=872M 
BVIMY=H71M 
THVY=TH2 
RV7Y=RO7 
RVSY=RS 
AV3Y=A(3) 
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THV4Y=TH4 ’ 

TEMP={AINCWRAENCKX) /CAINCY*AINCX) = 
BV2M=BV2MXA4 TEMPS (BV2MY-BV2MX) 

BVIM=BV1IMX4+ TEMP (BYVIMY-OVEMX) 

THY=THVX+ TEMP # (THVY=THVK} 

RV7=RV7X+TEMP# (RV 7TY=RV7X} 

RVS=RVSX+TEMP® (AVS Y=RV5X) 

AVQ=AV3IX+ TEMP (AVIY"AVIX) 

THVS=THVG A+ TEMPS ( THVGY+THV4X) 

RF eRFX+TEMP4 (RE Y-RFX) 

AFP=PIORE 462, -AP 

AL8=0.0 

LF (TAUW~TAUTOV-TAU) 50930030 

CONT INUE 

Bv2=8V2N 

HV2P=BV2M 

TEMPOSAMING ((RSLVRV-TAU) s TAUTOV) 

TEMPO RAMAAI (0609 TEMPD) 

LTAC2RACOS( ((RF-TEMPD } #HZ4RVTHH QR (RVS+ TAU) HZ) £ (204 (RFR TF UPD) ORV? 
X)} 

BV2P=ACUS ( ( (TAUSRVS) #H2,¢% (RF @TAUW-RVS) HH26-(RFOTEMPOD DHH2 LIS { 
XP et TAUCK YS) & (RF TAUWHRR V5) 2) UV I MAVO-PTO2+THYV 

UV2P=AMAX1] (8V2PsdVX) 

ETA2=BV2M-8V2P 

[IF ¢TAUW=TAU) 70260460 

CONTINUE 

Av2=sV2M 

AFBSAFP4ANO4 { {TAU SRV5) RO2. HE TAZ ( TAU+RVS) # ( TAUTOZ*RV5S) BS ENLETA2) 
ASTHVGS + (RE -TAUN+ TOU) FRE, He THVG (RF PAUW + TAUTOZ) eee, ) 

AFP=AMAX] (AFPeu.0) 

AL7T=SORT ({RVS+TAU) #424 (RYVS* TAUTOL 
X(RVS*TAUTOZ ») 

AL (8) 526° AND® (RF=TAUWs TAU) # THVG 
ALB= (RF =TAUWS TAUZTOCII J) ) #THVS 
60 FO 100 

ANGLESACUS ( (RF HP 2eRV7TRRZ& (NYSE TAU) 82) 7 (26 ORF ARYT}} 

HV2RACDS (1 {TAUSR YS) F424 4 (Re TAUNERVS) #42, = (RF POeUD, ISG 
X28 ( TAUORVS) (RF TAUWHRV5) ) DR-BVIM=AVI=PIO2+THV 

UV2=4MAX] (BV2+BVX} 

IF CTAUW@TAUTGO2) 90480280 

CONTINUE 

AFPSAFP+ANO# (ETAZ2URE HR 2,— (RF <TAUTOV) # (RF TAUWe TAUTOZI YSIN(ETA2Z2} 
KeRP HZ, # (ETAZ2@ANGLE) MAF RRV7TPSIN (ANGLE) #(RVS5S¢ TAL) PH2,8 (BY2= 
XBV2P) 4 (RF=TAUTOV) HRVZ4SSIN(ETA22)) 

AF P=AMAX) (AFP 20.0) ‘ 
AL7=SQORT ( (RVS+TAU) #424 (RYS+ TAUTOZ ) 8224 COS(E TAZ) #(RVS+TALY® 
Xt(RVS+FAUTOZ ) 

ALB={(RF=TAUWS TAUZTOCIIT) ) STHV¥4 

AL (817060 

GO 70 100 
ETALI=ACOS ( (RF ABS, + RYT HHO, (RVS+TAUTOZ 
ETAI=ETA12 +ACOS( (RF #52, + (RVS+TAUTOZ 
X(RVS*+FAUTOZ >} , 
AFP=AFP+ANO® (RF HHS, 4 (ETAZ2-ETAI1) = (RF-TAUTOV) MREASINIETAQP ETAL L) 
XRF HHI, # (ETAZ2~ANGLE) “RF #*RV7*SIN (ANGLE) + (RF~TAUTOV) RVTHSIN(ETAR PD 


Peae~2e4COS(ETAA) @ (RVSeTAUI® 


P4892.) 712. 4RF ORV) ) 
VHPAemRYTHH2,I 7 (2, HRF A 


92030 
92040 
92050 
92040 
92070 
92080 
92090 
92100 
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921230 
92340 
92160 
92160 
92170 
9P180 
$2190 
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92270 
92230 
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92260 
92270 
92280 
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92370 
92380 
923190 
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92470 
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92500 
92510 
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92540 
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925A0 
92570 
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Xe (RVStTAUP #8256 (OV2-HV2P)} 
AFP=AMAXK] (AFP #040) 


ALTSSORT ((RVS¢ TAU) #¥ 2% (RVS* TAUTOZ PHUCRZOACOS(ETAZ"E TALI #(RVS+ 
XTAUI # (RVS*TAUTOZ y) * 
AL8=020 

AL (8)=0.0 


AL (7) = (BV2~BV2P) © (RVS eT AU) #2, 24ND 

AP=PIRRFE HHP LAPP 

AFF SAFP 

IF (BRNOUT~1.0)160+t309130 

CONTINUE * 

1F (KOUMP (4) 216091609140 

CONFINUE . 

WRITE (60 150) AFPeASLVR + BVIMs BYE BV 2NeBY2 ¢BV2P RE TAA2 ET AZs 4 
ANGLE SETALLeE TAL sBVXSHVXXs THVeTMSLYVORSLVRV sp TAUSRF oITE 

FORMAT (//1X + 4HAFP=1PE) 00401 4¢GHASLVR=1PE10.401X— 5HOVIM=IPELN. 4s 
AUX eGHOVISIPE 1 00% ¢ 1X eSHAVEMS IPE LO e4e bd sGHBV2=IPE 19649 1X eSHBV2P=1PE 
KUs4/ 1 As GHETAZ2Z=1PE 10499 1X eSHETAZ=1PE 10040] XeGHANGLES}PE 10.401] % e6KE 
ATALLEIPE LOG eX eSHETALSLPE 10 G/ 1 XeGnBVAXZLPELO aS e DX a SHAVAXSIPE 1004s 
KIX eGHTHVS1PE 10046) Xe 7HTHSLVVEIPE 1 0649146 THRSLYRYVZIPE LNG) EX eGHTAUS 
AUPE LOeGe LXsSHRFRIPFIO.S eT Xe4HETISI3) 

RETURN 
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SUBROUTINE MACH (ARINPT sGAMAeM) 

IMPLICIT REAL (AwHs0-Z 9M} 

ITERATION ROUTINE FOR SUBSONIC (M,LE21.0) NOZZLE SECTION. 

INPUTS? ARINPT= AREA RATIO 

GAMA = SPECIFIC HEAT RATIO 

GQUTPUT$ M2 MACH NUMBER : 

ARCAGIP SCL SAGE) FL CCQ 6A 1GAMAS] oF) RC Let ((GAMAM1 oI /Z0d M(AGL FR2) ) Oe 
S$ C(GAMA41 6) /(20%(GAMAW1.)))) a 
IF {ARINPT+GEe204} GO TO 10 

IF CARINPT»GEei.1} GD TO 30 

IFCARINPT+GEels0} GO TO 40 - 

WRITE (oy1) ARINPT 

FORMAT{TOERROR IN SUBROUTINE MACH, ARINPT LESS THAN ONE? /* ARINPT= 
$1,E15.8) 

STOP 

ITERS=O ' 

M1=0.1 

AR1=AR (M1) 

M2=0025 

ARZ=AR (M2) 

IF (AR2,GE. (ARINPT-.0001) .AND. AR2sLE.(ARINPT+.0001)} GO TO SO 
SLOPE =(M1l-M2)/(ARI=AR2) 

BINT = M1 = SLOPE#AR} 

MLSM2 

ARLSAR2 

M2=SLOPE#ARINPT +S INT 

LF (M2eGTo1l.0) M2=1.0 


“ITER = ITER + } 


25 


30 


40 


50 


IFCITER.LT2I15) GO FO 20 

WRITE (6025) Mls¥42eAR] eAR2sARINPT»GAMA . 

FORMAT(' ONO CONVERGENCE IN SUBROUTINE MACHEZ! MY) =8sEES.879 M2=1,E1 
$5.B/" AR1StCELS.B/" ARZ35eF15.8/! ARINPTH*sE1S,8/% GAMA="4E15.8) 
STOP 

Mis0e25 

ARL=EAR (ML) 

M2=0.70 

AR2=AR (M2) 

[TER=0 

60 TO 23 

ML=0070 

ARL=AR (M1) 

M2=1.600 

AR2=1,0 

ITER=0 

60 TO 23 

M3M2 

RETURN 

END 
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INOEX SUBROUTINE MACH (ARINPT sGAMAsM) PAGE i191 


SYMBOL Sek tool Sel teh tod Rot So Set Do ee ot oe ee ot ee oe ee RED ENENEES er en ee ee oe Ser er ee ee eer ers 
i - 7HR ae oes 
10 = 4 tou =7 
20 - 144 23 a 
23 - 154 32 38 — 
2s - 240R 25* _ 
30 - 5 2Te : : oS 
40 - 6 334 * ‘ 
50 ~ 1s 39% 
Re THE VARIABLE~ AG] ~IS USED BEFORE IF 1S DEFINED 

~ 3 . 
AR ~ 3= 12 14 26 30 34 
ARINPT - 1AG 4 S 6 TWR 15 20 24WwR 
AR1 - 12s 16 17 195 24WR 28= 34= 
AR2 - 14= 15 16 19 24WR 30= 365 
BINT - 17= 20 
GAMA ~ 1AG 3 24WR 
ITER - 10= 22s 23 31= 3T= 
4 - 1AG 39= 
MACH - 1s 
Mi - lls 12 16 17 185 24WR 27= 28 335 44 
Me 7 135 14 16 18 20> 2) 24wR 295 30 35= 39 
HETUKN ~ 40% . 
SLOPE ~ 16= 17 20 
STOP - pe 264 

POPE Fae OREO F EF O STM EMER FR HHH EMTS EMEP EME RHE F et ment aoatatutetmtetweatatwteypatmtwagegwtuduwteo 
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Z6l-E 


INUEX 


wWmrwh 


rar 


28 


29 


SUBROUTINE MNCHNI PAGE 
SUBROUTINE MNCHN1 14710 


cecccceecececececccoecceecceceeceeccccecceccccccececececcccecccecccccccc 15360 


SUBROUTINE MNCHNE IS THE CONTROL ROUTINE WHICH COMPUTES THE 
CONSTANTS THAT DEFINE THE GEOMETRY OF THE GRAIN CROSS-SECTION AND 
LONGITUDINAL CONFIGURATION» CHECKS FOR DATA ERRORS» AND PRINTS 
CONSTANTS 


ceececececeececceccccecececeeeceeececeecceceececcecece ecceececeeeecceces 19250 


DIMENSION AN(45) sAINCN(21) 
COMMON/BLKOOS/ NLEWISs VSI eNF »NRECON sNCASES »NDI SP» NCASE aLL 
COMMON/CUNSTS/GNOT +PI PI O02¢RADIAN 
COMMON/ INPUTLZAINCIN{18} pANOCLA) 9RF (18) e TAUWI EB) »R2C1B) » 
t R3(18) eR4{18) R5(18) sREC18) eR7LLB) +RBI19I6 
2 ALS] (18) sALS2 (18) eALA(18) ALB (18) ALE (18) AOL (18) 0 
3 AD2 (18) 5403(18) 9A04(18) 2A05 (18) 
COMMON/ INPUT2/THD (18) » TSLYR 118) 
COMMON/ INPUT3/GEOCON (45518) 
COMMONS INPUT4/NGEO (18) sAPORT (18) pTAUPL (50918) sALPPL (S0038) 9 
J AKGYP (50918) » TAUHD (50) sABHD (50) pPMOTHD (50) » 
2 RMOTAD (50) aXCGHD (50) e TAUN(S0! pABN(50) PPMOIN(50) © 
3 RMOTN (50) 9 XCGN(50) sNGEQHD »NGEUMN 
COMMON/ INPUTA/B TAGE » DH] 5 3Hs AOHMsR1GtHHR : ‘ 
COMMON/ ENPUTB/AONM + BNe DNL 
COMMON/ INPUTH/ALNCPL » VCHINP ¢ VCNINP 
COMMON/INPUTM/STFLAGsSTDYST sDELTSTsDELTSS«DELTTO 
COMMON/ INPUT O/KPLANE + KMOICG 
COMMON/INPUTQ/CRP»CRT eo CRW 
COMMON/ INPUTT/5B (18) sSLTBAN (18) »SAC18) 
COMMON/ ENPUTU/OELF 2 PAvPHI pHCOsNEL? sKDUMP (72) 
COMMON/INPUTV/ VFNOAsVFNOBe VCNINA se VCNING 
COMMON/OUMYC/NTEST ¢ TIMECK 
COMMON/OUMYM/CK TIME eNTEST4 
COMMUN/WORKGS7A (5) 9R1 ROO TH] o TEM e TOM e TSM PXGS Pp VGS ALC eXO 3s VOI) 
ROZDeXOSF oe VOSesROSeXO7T AYU? PROT sTONsTT4eTILAMeX GeV Tbe 
ALOeXO9s YODARODAXOLE + YO1) ROL] 9 T1 OMS TINS TAUMeTH2» 
TH39THG9872M.A72M 989) Meh92M 
COMMON/WURKAZAINCG (1) ¢ANOOM) REDMs FAUNDM eR2Z0M s RID 4aRGD4eRSEDMeRODMe 
i R7OM«RBOMyALSLOMsALSZOMs ALADMs ALBOMsALEDMe AW(S) 
COMMON/WORKOE/DE] BE s ADEM 
COMMON/WORKRE/REL (]) sALFEMs ALFE PREZ HE] +NE2 sHEOsNERs VFEQOVCE » 
1 TAUEOe TAVE] yCAE es CBE» CCCE y CCVE + CDOCE COVE sCECE sCEVE 
COMMON/WURKRH/RH1 (5) sHH2 vACGoHHWs VF HO 9 VCH ANK (10) 
COMMON/WORKRN/RNA (8) oVFNOsVCNs ACK (10) 
COMHMON/ XCAPW/RAAP + XRAT AP» THRAP + GAM] APs GAMZAP sXDAP 6 YOAP sZOAPy 
X2AP e Y2AP 5 Z2AP oX1TAP sYIAP 9 ZLAPs OAP (3) sTG2AP STRAP» 
CTRAP yAAP 5 BAP CAP »DAP BTAOAP 9 SOAP (4) eALTAP 
COMMON/XOBPW/RABP s XRATSPs THREP 9 GAM] BP yGAMZBP s XOBP eYOGP y ZOAP, 
X2BP 5 Y26P 5 Z28P eX1BPs¥1BPsZ1 BPs OUP (3) pTG2AP STRAP» 
CTREPs TP15PsABP eBBP es CBP sDBP eB TAOBP » SQBP (4) sAL TBP 
COMMON/XOAWUR/RAA » XRAT As THRAsGAMALASGAMAZAs XOAP YOAsZO0AtK2AN YAY 
, Z2KsXLA VIA ZIASX3A4Y3ANZ3As TANGZASSINTRAsCOSTRAY 
TANP1AdAAAAsBAsCAsDA yBTAOAsSINGAZ »COSGAZ »SINGAI » 
COSGA1sALTA 
COMMON/XOBWOR/RABs XRAT He THRASGAMA1 Bs GAMA2U + XOBs ORs ZOAs X28 s 72B¢ 
1 228 9X1B+¥139Z16sX38» ¥3HsZ3He TANG29 eSINTRAsCOSTRBe 
2 TANP1B ABB sBB9CB y DBs BTAGH  SINGB2 »COSGB2eSINGBI 6 


” 


wwe 


te ee 


we Ne 
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INOE xX 


30 


31 
32 


33 
34 
35 


jo 
37 


34a 
39 


40 
$i 


42 
43 
44 
45 


46 
47 


48 
4g 
so 


Sl 
Sd 
$4 
5b 
56 


S7 


54° 


60 
61 
62 


63 
64 
65 
66 


SUBROUTINE MNCHN) PAGE 
3 COSGH] sALT3 
COMMON, XOWORK/X0 9 YO Z0,X20¥25Z2sXL eV 1021 9X39 39739 TANGM2 sSINTHRs 
1 COSTHRs TANPH1 + A0sH09C090G ,BTAQs SINGM2 »COSGM2» 
2 SINGM1 sCOSGM1 ,ALTO 


COMMON/COMA/DELT sAPHI pWOOTIANIUOe TI MEW UF sANLOPSS ACCEL s 

FY ABCYLePRNT (101615) sAINCHI sAMACHs ZCALC (101) 

COMMONS COMB/ AHH  AJPHN» AJBHN » TAUAOs AJPHE > AJBHED ¢ AJPNOZ sAJENOZ 
1 <BH»XON+DTINT 
COMMON/COMC/ AMT J AMT I 2 AJPHO 2 AJBHO sp XH THs AL 
COMMON/COME/TAUWET ¢XCGArXCGH + ZRO +s ACGAs ACGHU SRCGO,y ZEOG es YCG s YROSVY 
COMMON/COMG/ TAUZ £101) 9RBZ(102) eTAUZTO(C201) eRBZTO(LOL) sPOC101) » 
] TOUWDP (101) ¢RBe VF sO WOOTs ¥P 
COMMON/COMH/POPR(2G]) ev(101) 6VPR(101) 

COMMON/COMS/ ASSL TA (18) pASSLTF (1H) sAPA(LS) oAPF (LA) oPSACIA) & 

1 PSF (18) ¢POQ (18) «POF (14) sTSA1143sTSF (138) «UAC JB) © 

2 UF (18) eH#SLOTICLA) sWSLOTI (1A) 

COMMON/COML/ THO 

COMMON/SCOMM/ TAUTOZ sRSLYVRN SAX (45) sAV 645) sAINCXe AMOK HE Ke TAUWX 4 
1 DUMX(L7) SAINCY oe ANDY SRF Ys TAUWY #DUMY (7) e VF PP 
COMNON/COMN/ TSLVRAXe TSLYVRY 

COMNON/COMO4 THSLV s TSLVOM» THSLVVsASLVReAHOPRFHI eALPXsAPXs 

1 R3BH1+ALPY sAPY yVSLYR 
COMMON/COMP/DELL sRT se AL AMINO AWE sRAMING AL XP ALAMDA 
COMMON/COYA/DELLONELLOI 

COMMON/COMR/DELL Re RP 2 eXP29AZ 

COMMON/COMT/ TAU s RC eSUMDV s XReHE SAL (1.3) eXBARING ASE CAFF WI owl ekAd 
1 RADeALL SAPP AST 

COMMON/COMU/ VAX 9 ALTTQs COUNT eVFHEWI pVEXeVReASTOs,aXIGR 
COMMON/COMV/VSTR o VSTOe TOMAX 00010 001K yXMAXe ZMAX oe YMAX HAL HO 

1 ROPE] pPROPEZ ROPE 3» ALDP 

COMMON/CUMW/DVs AEE sPEPOI 
CUMMON/COMX/COSA (5) sSINAIS) sD FAUX» DTAUWX 

COMMON/COMY/AVL AVA sTVOe TV4eT VS es TVbaTV7eALVAPALVA sALVCeRV2SRV3, 
1 RVaeXV7DELLIRVI 
COMHON/COHZ/ZAV3 SIM AVE 4e THVERVS ARV / PV] eV eRSLVRV 
COMMON/PARMAZAE Py AL 7+ ALB s TAUTOVsBVX SAV KX 

COMMON/PARMB/AP s PMINy PMAK WOOT eT I Ly TL de WOT PNSLOT oNTALE gNTMF » 
i TAUTOs TOFLAGaNINCPL sURNOUT oI ESel She] S2eNTeSCUR(1 802) 
COMMON/PARMC/DEL39 DEL 72371 9B91 
COMMON/PARMD/KKASUB A KXRSUB eAJBB SHEET sAUBNy AJBHPXHARE 
COMMON/PARME /RCG sp DELLT pXBARINeNCRORWITLeKWET2 9 LSWET1 SAL SXe 


1 AJPN» AJPH 
COMMON/PARMF /PHo TIME sAITNCWe Ty PeDELTAsSUsAKGY sPONSDISeAMPNG ATs 
1 AMW,AKRST 


COMMON/PARMG/ VF Hs AANs VFNe VIS + AIT +6 SPHDT pSPONDT 6 VF INT eVEHsABTUT 
COMMON/PARMH/BLE + BOE pAAN Ys BX + RXAXCAST] eOELLRI +eROPEGPAIE SYP I e2P le 
1 ARCO+ARC1 »ROEL sALITTL 221 sAIGs THRE +e THROSAOE 
COMMON/PARMI /ADMCYL eALAC YL 2 AIPCYL sAKGYX pAKGYY 0 VPH » VPN 
COMMON/PARMJ/ 4TH 

COMMON/PARMK/F sEP1 sPEPO,CFOL s VE WES pWU DEED sCLOPS CF OrWGTOTs 

t SWOOTN 

COMMON/PARML /HOLORsAL 3A eg SRAK yAL LIA SAS 9 BPX 2 ZP0s YPO 1 DS tKARAK eKVSTR 
COMMON/PARMM/RAT p XRAT PTHR s GANA] pGAMAl ZI AT 
COMMON/PARMN/DPRA PDPSA 

COMMON/PARMG/ALP + KRASBB 9 KXRSBBEKGAM 
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y6L-e 


108 
109 


114 


ceccc 
c 
ccccc 


10 
20 


30 
50 
60 
70 


a0 


110 


yt5 


i 


3001 
1010 


SUBROUTINE MNCHNI 


COMMON/PARMP?/ THRZ SRP} RP 2s REZPRPS PRPS RPG ERPIOSRPLI sRPL2eRP13—eXPl a 
1 XP3eXP59XP119XP 13 

BORIS EARTOL RCT TAT ATSAPRV RAID YAR ER AUS? 

COMMON/PARMS/ICHN 

COMMON/PARMU/ANT 

COMMON/PARMV/ WF . 

COMMON/PARMAB/ HSUBMG sNSUBMG »NENDs ASEAsASEB » SUMD VAs SUMDYB 
COMMON/PARMADS PMOTNA(50) + PMOINB (50) sRMDINA (50) eRMOENB (S50) + 
$ XCGNA (50} ¢XCGNB (50) sABNA (SC) sABNB (50) 
CONMON/PARMAG? TXSUB (20) 1 TRSUB (20) sNPSUB 

COMMON/PARMAH/ YNOZSAs THETEXsSIRATC sNCONT 

COMMON/PARMAI/ VFNA+VFNB se VCNAs¥VCNB 
ececcceccecccccecccecccecceeccececcccecceccceccccceececececcccccecccecc 
IF THIS IS FIRST CASEe INITEALIZE DATA CELLS 
ececccececccececcecceccececcececceccecececcccecececcccecceccccccecc 
IF {NSUBHG,LE.0) GO TO 20 

NPSBMISNPSUB~1 

OO 10 I=] yNPSAaH) 

VMNOZSB = YNOZSB + (PI/3.} #(TRSUB(T)8#2 « TRSUB(T+]##2 + TeSsuB tT) & 
$ TRSUBCT+))) 8(TXSUBIT+1}=TXSUBII)) 
CONTINUE 

IF (NCASE.GT~0) GO TO 30 — 
PEPOl=0.05 

HYEBYE = 0.0 

CONT INVE 

IF {0ELZ)60+60+980 

WRITE (6470) ‘ 

FORMAT (1 3HOINVALID DELZ/34GHO(DELZ LESS THAN OR EQUAL TO ZERO) /464H0 
AABOVE ERROR OCCURRED AT STATEMENT NUMBER 76) 

GO TO 9706 

CONTINUE 

IF {NCASE.EQ.0} GO TO 290 

IF (NGEO(1}.GT.0) GO TO 140 

OO 115 T=ie4S 

A(T) =0.0 

DO 115 J=191B8 

GEOCON (12J}=0.0 

DE1=000 

HE =0.0 

AOEM=0.0 

OO 11 T=1918 

NGEO(1)=¢6 

IF (NGEOHO.GT.0) GO TO 1010 : 

DO 100) [=1+50 

TAUHD (1) =0.0 

ABHD (1) =0.0 

PMOTHD (1}=0.0 

RMOTHD (1) 50.6 

XCGHO (1) =0-0 

IF (NGECMN,GT.0} GO FO 3020 

BO 1026 [21450 . 

TAUN(T) 20.0 

ABN(1)=20.0 

PMOIN(1) =0.0 

RMOIN(T)} 20.0 


45360 
15400 


15450 
15270 


19510 
15520 
15530 
15540 
15550 


PAGE 
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v-U2O0L"9920 


SoL-€ 


INDEX 


115 
116 
117 
118 
119 
120 
let 
122 
123 
124 
129 
126 
le? 
128 
129 
130 
13) 
132 
133 
134 
13% 
136 
13? 
138 
179 
140 
141 
1462 


143 
144 
145 
146 
14/ 
148 
149 
150 
19] 
152 
153 
154 
155 
156 
157 
158 
159 


oon 


1016 
lo20 


1049 
1050 
146 


150 


160 


SUBROUTINE MNCHNi 


XCGN(E) 20.0 

IF (NSUBMG.EQ,0) GO TO 1086 
ABNA(1) =0460 
ABNY (1) =060 
PMO[NA (1) =040 
PMOINB(£)=040 
RMOTNA (1) =040 
RMOINS (1) 060 
XCGNA(1[1=0,0 
XCONS(1)=0.0 
CONTINUE 

LO 1050 [=1%14 
IF (NGEO(I).67T.0} GU TO 1050 
OO 1040 J=1+50 
TAUPL (Jy1)=0,0 
ALPPL (3,1) =0.0 
AKGYP (3.1) =0.0 
CONTINUE 

BO 150 T=#],101 
TAUZ (1) =000 
RB7(T)=0,0 
TAUZTO(1) =660 
RUZTOCI) =0.0 
TAUWDP (12-040 
POC1P=020 
POPR(1}=020 
V(1)50,0 
vPR(T)>0,0 


INITIALIZE DATA CELLS FO NEXT CASEs 


THSLV=0.0 
THSLYV=0,0 
ANIBO=C.0 
ASLYR5u,0 
TAU =020 
VRX #0,0 
ALI TQ50.0 
COUNT#0.0 
VFHEWI=0.0 
VSTR=0.0 
V5TO=0.0 
VEX=000 
VR=0,.0 
ASTO=0,.0 
RC=0.0 
SUMDV=0.0 
XR=0,0 
OV=0.0 
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GEL-E 


InNOE x 


167 
164 
169 
1790 
7i 
172 
173 
174 
175 
1764 
i7? 
178 
179 
2180 
14} 
1d2 
183 
184 
185 
186 
lu? 
198 
189 
190 
19) 
192 
193 
194 
195 
196 
197 
198 
199 
20u 
201 
202 
203 
204 


205 
206 
207 


208 
209 


210 
ell 


SUHROUTINE 4NCHN] 


AV3 = 020 
4V1M=0.0 
DO 170 T=1.465 
AX(T) = 000 
179 AY(}) = 0.0 
NG 180 1=1,18 : 


UACL) = 0.0 
UF{I) = Qed 
WSLOTD(1)=0.0 


WSLUTI (3) =0.0 
AFRPL (1) 30.0 
140 ALPRP(1)=0,0 
OG 200 Il=fe101 
DBO 200 J=1.15 
200 PRNT(IsJ) 5030 
DELT=0.0 
TAUTOZ=0.0 
RSLVRN=O0.0 
BVXX20.0 
ACCEL=0.0 
VSLVR=0.0 
BRNQUT=0,.0 
AKKHST=0.0 
KRASUB=O 
KXRSUBED 
LSwiTl=o 
KWIT1]=0 
KWIT2=0 
KBRAK =D 
KGAM< 0 
KRASHB=0 
KXRSdB=0 
KVSTR=0 
Iif=0 
ITJ=0 
NIs0 
290 NTEST =0 
NTEST4=0 
ccececccececcececceeccececcecceccceecccececccceccecectecececccececece cece 
c DETERMINE VALIDITY GF TIMER INPUTS 
CCCOCLCCOCECECE CEC CECE CCCOE EC CCECCECECCE CO CECE CEC CEC CEC CECCOE CEE ceccece 
IF (AINCIN(1) .£0.0.0) GO TO 360 
WRITE (60350) AINCENG1) 
350 FORMATCIGHOENVALIO AINC s5Xs8HAINC = E200e7T/63HN(AINC HAS REEV IN 
XPUT NON=ZERO. AINC MUST BE INPUT AS ZERO) S45HOABOVE ERROR OCCUK 
KRED AT STATEMENT NUMBER 350) 
60 10 970 
eceececceceececeecece cceceececcececeeccececceeeececceceececceccececcccce 
360 IF CAINCIN(KPLANE} .EQ.HCO) GO TO 400 
WRITE (592) AINCINIKPLANE) sHCO 
1 FORMATE/ISX e24HINVALTO AINCIN(KPLANE? =e1PE14e795Xs "LAST VALUE 0 
IF AINCIN MUST BE THE SAME AS HCO =4eE14,7/35XyAR0VE ERROR OCCURED 
2 AT STATEMENT NUMBER 360 IN SUBROUTINE MNCHNI #7) 
eecccetcececcceccecececccececcccceccececcececcccceecccceccocceccecececece 
c NUHBER OF PLANES IG EQUAL TO KPLANEe DETERMENE VALIDITY 


17190 
17190 
172469 
17260 
17280 


17410 
17420 


17440 
17460 


17610 
17630 
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INDEX 


2le 
233 
214 
215 
216 
217 


218 
2\9 
220 
221 
22¢ 
223 


Zee 
225 
226 
22 
224 
2249 


230 
231 
232 
233 


234 
235 
236 
23? 
238 
239 
240 


241 


242 
243 


SUBROUTINE MNCHNi 


c UF SLOT INTERFACE LUCATIONS AND NUMBER OF SLOTS. . 
coececcceccceccecccecceccceececcecceccceerceeccccccCceccoceccecccoceccececc 
400 IF (SA(1)-HOO) 420 ,4305430 
410 I=} 
Ga Td 530 
420 IF (SA(1)=GEOCON(3851)1430+4450 0450 
430 WRITE (65440) Sat)} i 

440 FORMATLL2ZHOINVALID SAl1y5Xe6HSAl = E20.7/9UH0(S4) [5S EQUAL TO HCO O 
XR LESS THAN T4uM . SAj CANNDT BE LESS THAN TAUM OR EQUAL TO HCD. 
KX) /S53HOASOVE ERPOR OCCURRED AT STATEMENT NUMBER 400 OR 420.) 

BYEBYE=1.0 
450 09 S20 I=},14 ‘ 
IF (SCUR CT 51)-10.6435)4602530.530 

460 IF (SCUK CL 92) ~SCUR CI 91) } 47094901490 

470 WRITE (69480) Tel eSCURCE 92) eles] 

480 FORMAT CIOHOINVALIO Sel2elHBeSXslLHSel2s2cHB=ECOeT/GHOSLOT oI? +G0AF OR 
AWARD INTERFACE [5S GREATE? THAN AFT INTERFACE LOCATIONe Sei2s2tha 
AMUST BE LESS THAN SeT2s2@4K./46HOAKOVE ERROR OCCURRED Al STATEMENT 
XNUMBER 430.) 

BYEAYE=1,0 
GO TO 420 
490 IF (SCURCT 4] a1) -SCUR(TI 52) 3}500.500.520 
soo K = — + } 
WRITE (6sS1 A) Kok sSCUR{K 41) Ks Tok ok 
510 FORMAT (IOHOINVALIOD SsT2+1LHAsSks1HSs l2e2HASE20.7/GHOSLOT 225374 FO 
ARWARD INTERFACE IS LESS THAN SLOT .[29]8H AFT INTERFACE, S+12924H 
XA MUST BE GREATER THAN SeI2,2Hb./46H0AHOVE ERROR DCCURRED AT STATE 
XMENT NUMBER 450,) 
BYEBYE=1,.0 
520 CONTINUE 
530 IF {feb 7.18) NSLOT= I~1 
NSLOT=AHAXQINSLOT #1) 
Cccccccccccccccecececcoccceccecccceccceccecccecceceecceccececccceceecccece 


Cc SLOT INPUTS 1 THROUGH NSLOT+i ARE VALID ANO NUWARER 
C OF SLOTS 15 EQUAL TO NSLOT. DETERMINE LOCATION OF 
c INCREMENT OLVIDEING PLANES. 


cecceecceeccecccceeceeccerecececeecececccece cece ccecccececcececcecceecceecc 


Cc PLACE AN 1.0.P. AT AINCPLsEACH REF. PLANE,EACH SLOT INTERFACE 
Cc AND AT DELZ INTERVALS FROM THE CURRENT ONE OF THESE. 
c 
Cc NI INDEX ON CURRENT INCREMENT DIVIDING PLANES 
c J INDEX ON NEXT DOWNSTREAM REFERENCE PLANE 
c 7 
NI} 
ANT=140 , 
ZCALC(LI=0.0 
TIss1 
dee 
540 NI = NI + } 
ANISANT #100 
Cc SEY UP TENTATIVE [.0.P. 
ZCALC(NI) =ZCALC INI-1) *DELZ 
c HAS AFT TANGENT PLANE BEEN REACHED 


EF ( JU=KPLANE) 94495419542 
541 IF (ZCALCIN]} “AINCIN(KPLANE) )544¢6109542 r 
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17660 
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17700 


177390 
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17760 


17780 
17790 
17846 
17810 
17A20 
17830 
17840 
17850 
17860 
17870 
17880 
17890 
174900 
17910 
17920 
17940 
17940 
17950 


17970 
17990 
agit 
28020 
1A0 30 
18050 
1A070 
}A0R0 
18090 
aloo 
$a110 
19220 
18130 
18140 
18150 
181464 


1B1A0 
1B190 
18200 
18210 
1a220 
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p-0Z00L-9S2e 
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INDBDE xX 


204 
245 


246 


247 
246 


243 


250 
251 
252 
253 
254 


2s5 
256 
2s? 


258 


254 
260 
261 
262 


263 


264 
265 
266 
267 


268 
269 
270 


271 


ate 
273 
ata 
275 
276 
2717 
2738 
2719 
280 
23} 


542 


544 


545 
546 


548 


550 
552 


S64 


564 


568 


570 
572 


574 


SUBROUTINE MNCHN] 


ZCALC (NT) =AINCIN(KPLANE) 
GO TM é6lo : 


YS THERE AN ANISOTROPIC 3URN@RATE CALCULATION REFERENCE DISTANCE 
“TF CAINCPL1545 9564.545 


IF THYS OLSTANCE IS CLOSE TO A 8.P,sUSE REF .OISTANCE 

UF CABS CAINCING( JU) @AINCPL} =. 01) 54623469548 

JJ = J + 1 . 

IS AINCPL ENCOUNTEREO 3EFORE THE NEXT SLOT OR Q.P. 

IF (AINCPL©AMINI CAILNCPL »SCURTTISs1)} 155095509564 

1S AENCPL WITHIN THIS DELZ INTERVAL ? 

IF (ZCALC (NI) ©AINCPL) 54095525552 

ZCALC (NI) =AINCPL 

NINCPL=NE 

AINCPL=0,.0 

GO TO S40 

IF SLOT AND ReP, ARE VERY CLOSEs USE SLOT 

IF (AMS (ALNCIN (U0) -SCUR( TES +1) )=601)$66 566,568 

JJ = Ju + 1 ‘ 
GO TO S70 

WHICH IS ENCOUNTERED FIRST SLOT OR RePe i 
TF (AINCING JJ) ~SCUR (EIS 919959095 709970 

1S SLOT WITHIN THIS DELZ INTERVAL 

EF (SCUR (ELS 1) -2CALCINT) 57205727540 

2CALC(NI) SSCUR{IISy1) : 
NISNI¢] 

ANJAANT +100 

IS THERE A ReP. IN THE SLOT 

IF (AINCING IS} -SCURCEIS 92) ) 57495 (69516 

Yes Pi 

ZCALCINT) SAINCINI JU} 

JJ = JJ #1 

NI=NIe} 


“ANISANI C10 


376 


Cc 
$90 
Cc 
592 
594 
$95 


600 
510 
520 


630 


c 
c 


AMORE THAN 100 ENCREMENTS, 
XR OCCURRED AT STATEMENT NUMBER 560.) 
cececcececcoecece/ececccecececececcceeeceecccceeccecccececccececcececece ccc 


NO 

ZCALC(NI) =SCURCTISe2) 
IIs=1ISel | 

Gu TO 540 


RePs ENCOUNTERED BEFORE SLOT. IF RePe CLOSE TO 1efeP.sUSE RoP. 


IF (ABS (AINCIN (QJ) #ZCALC (NT) F200 1)5940595 1992 
IS RaP, WITHIN THIS DELZ INTERVAL 

IF (AINCIN( 9S) <ZCALCONS) 359505959540 
ZCALCINIDSAINCEN( 4S) 

JJ FS 6 2 ; 

TF (ZCALC(INT) »GEeATNCINCKPLANE)) GU TO 600 
GO TO 540 

ZCALCENT RAINCING JUD 

IF (100-NI) 6202640640 

WRIFE (696301 0EL2 

GO [0 970 


* FORMAT (IGHOINVALID DELZes5XeSHDEL2=E20,7/74HOUELZ HAS RESULTED ITN 
ENCREASE DELZ FOR RERUN. /46HOABOVE ERRO 


THE TOTAL NUMBER OF INCREMENT OLVIDING PLANES IS LESS 
THAN OR EQUAL TO 100. CALLE SUBROUTINES TO COMPUTE 


. 


18260 
1A270 
14250 
18290 


18320 
14330 
18340 
18350 
18360 
18370 
18380 


8390 , 


1A400 


18430 
18440 


184460 
18470 
18480 
18490 
19500 
1AS10 


24530 


1A560 
1as70 
18580 
18590 
18600 
18A}0 
19420 


1A640 


18680 


1A695 
1AT00 
EATIO 
18720 
28710 
18740 
18760 
1a7AO 
1Aa790 
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282 


283 
284 


2a 
2H6 
2a7 


fasts} 
eu 
290 
evi 
292 
293 


204 
295 
296 
ev7 


298 
299 
300 


361 
302 


303 
, 304 


SUBROUTINE MNCHNI 
c CYLINDRICAL SECFION PLANE CONSTANTS AND TO PRINT 
c DATA VALUES AND ERROR COMMENTS. 


ceccec secceccecccccecceceecececececcccccccecccecet ccccecccceececeecccrecc 
440 IF (NGEG(1))660»660.650 

cececeecoceccececccecucceccccceceeccececceecceccececeecccececceececececec 

Cc GEOMETRY HAS BEEN LNPUT OR THES IS A MULTIPLE CASE+ 

Cc LOAD CHAIN 4, 1 

coeccccceccccceccccecccececceccececcececccecccececececececcececececercrene 

650 ECHN=4 


GD TO 980 
ceecccoeccceccecceccccoceccceceeecececccccecccccecceeeccccceecceccececcocec 
c GEOMETRY HAS NOT BEEN INPUT FOR THE FIRST CASE OR GEOMETRY 
Cc TS TO BE REVISEO FOR NEXT CASE. DETERMINE PLANE CONSTANTS. 


ccceccceececececcecccececcceccececcececcecccececccccecceececece¢ccceeccececc 
660 WRITE (6s655) 
655 FORMAT (#1 #) 
vO 700 JPLANE=] eXPLANE 
cceceeccecceeeeccccecececclecccecccecceccceccccececeececccececcceecececccc 
c MOVE AENCX TO AINC 
cCcoceccececcoetcccceceececcctcccceeccececececececcecceccecceccececcecerce 
DO 670 T=ls2l 4 
J=(I-2)418 + IPLANE ‘ 
AINC(L)=AINCING 
670 CONTINUE 
WRITE (63680) IPLANEsAINC()) 
HO FORMAT (//10Xs*LOCATION OF PLANE 'el@s2XvIPEL3e6) 
cececceceecccececacceccecccceecocecceecccertcccectuccccececcccccecceccecececce 


c CALL SUBROUTINES PLNCNS+ AND PLNLCS TO COMPUTE 
c PLANE CONSTANTS AND TO PRINT DATA VALUES AND ERROR 
Cc COMMENTS FOR PLANE CIPLANE), 


ceccecceccecececceceecccecceccceccecceecoccececcecceecececccaceececececce 

THQ * THOCIPLANE) 

CALL PLNCNS 

CALL PLNLCS(IERROR) 

[F CLERROR.EG.1) SYEBYE=1.0 
cccceccececeeececcec.cecccececececececececcecceccccecceceecececencececec 
c MOVE A TU GEOQCON ° 
cocececceccceccecccecceecececcoececececcceeececccetcencecececneeceeccerce 

DO 690 [=1945 

690 GEOCON(I+IPLANE) = A¢T) 
700 CONTINUE 
Cccececceccciuccccceceecccececcceceecececececcecceccceccececececceceeccc]e 


c INITIALIZE NOZZLE PLANE CONSTANTS TO LAST REFERENCE 
c PLANE {(KPLANE) VALUES AND DETERMINE HEAD END AND 
c NOZZLE ENO CONSTaNTS. 


ccccececcececcececcceceecccececcececccccecceccececccccecececccececeececece 
710 WRITE (60720) 

720 FORMAT (9HOHEAD END? 5 
Cccceccececccceecccececceccecceecceccecceecocccecececcceecccececccecceeccece 
c MOVE AINC TO AIENCN 
ecceccccecccoceccccecececcececccececcceccccecetcccccceccecceeccecececcece 

DO 730 T=lec) 

730 AINCN(T)SAINC(T) 
~ccececcecccceecccececececcceccecceccccccecceccececccccccoccecccceccecccccec 
c MOVE A TO AN 


18800 
18810 
18830 


19870 
18890 
1a900 
1ag20 
18940 
18950 
18976 
12990 
19000 
19020 


19060 
19070 
19090 
19170 


19140 


19140 
19200 
19°16 
19270 
19240 


19280 
19296 
19300 


19370. 


19360 
1930 


19410 
19430 
19454 
19460: 
19470 
19490 
19510: 
19520 
19540 
19560 
19580 
19600 
19610 
19630 
19450 
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PrucdUL-9s¢a 


0G2-¢ 


INOE xX 


305 
306 
307 


308 
309 
3196 


311 
312 
313 


314 
315 


316 
31f 
318 
319 
320 
32t 
322 
323 


324 
325 
326 
327 
328 
329 
330 


331 
332 


SUBROUTINE MNCHN] 


cececceccececcececeeeecececeeceeceeececececececcecececeececceceecececeee 

DO 740 T=1965 
740 9 ANT) =aC1) 

IF (BTADE) 77097700750 
ceeceecececcccecctcececcccceccceecececcecececceccceeeececececececceccece 
C FORWARD DOME HAS A FULL WEBe 
coececeeeeeccececececcceccececcecececcecececcceccececeececececeececeecec 
750 WRITE (64760) BH, BTAOE RIG 
760 FORMAT (3HOBNs 12K sSHBTAOE «1 OX SHRIG/1 X93 (1PELS 671) 

6O TO B40 | ; 
crececccececcececécceccececcececeecececcecececeececécceeeccececcceccecce 
c MOVE AINCA TO AINC 


cececececcececcecccrceecocececceccccoeeccececccccecceccecececccecceccccccce 


770 = DO TAO 15102) 
Jetl-1)#18 + 1 
| 780 AINCCT)SAINCING J) 
Ceececcccececcecececcceccececeecececeeccececcceccecececeecececeecececece 
c MOVE AA 10 A 
ceececeececcececececececeeceecececececcececececececcececeecececeeeececce 
OO 790 1=1e45 
790 ACTJ=GEOCON(I61) ; 
cucceccecccceccecceeecceeceocececctecececcecceccecceecececececeeecececce 


c FORWARD DOME 15 A STRAIGAIT THROUGH WEB. DETERMINE 
c HEAD END CONSTANTS 
Cececececcccucceccecccccecececceceececcececceccecccocceccceccccece cececcce 
c INITIALIZE END CONSTANTS SUAROUTINE TO HEAD END VALUES 
Cc AND SOLVE FOH CONSTANTSs 
cceeecceececcececcccecceceecoceecceececececcccecceceerecceeceececccecnc] 
OE1=0H1 
kESHd 
AOE Me AOHM 
NT ABESNGEOHD 
NENDe] 


CALL ENDCSACTEKROR) 

IF (VCHINP,GT.0,0) VFEQ=VFH0 

IF (TERROR. EQ.) ) SYEBYE=1.40 
Ccececcecccocceccececceecccecceceeccececceceecccceccccecececececceececece 
c MOVE ENDCSB VARIABLES TO HEAD END 
cCecececececccccecccccecccecoccecccoccececeecctcececececcececcceecccoeccecccc 
800 UO 830 T=hee0 
810 RAL CN) =RELEI) 

IF (VCHINP} 430 58302820 
820 VCH=VCHINP oa 
830 VFHO=VFEO 
840 WRITE (65850)- 
85u FORMAT] LHONOZZLE END) 
COCCCLCOCCCCOCCOCCECCCCOECECCCOCCCOCCOCCCCECCOCCOCOCOCcCeececceecccece cece 


. 


c INITIALIZE ENOCSA VARIAaLES TO NOZZLE VALUES. 
c 
c MOVE AINCN 10 AINC, 


ceeccocccececccececcccececccoecccceecccececccoececcccecccccececceccccccccce 
LO 860 1=1e2) 

860 AINC(TI=AINCNIL) 

ceecccecaccecccecececcccccccectcccecceececcececcececcccacceecceeeecenece 
MOV 


19670 
19690 
19700 
19710 
19730 
19750 
19770 
19790 
19800 
19810 
19630 
19650 
19870 
19890 


19920 
19940 
19960 
19989 


2n020 
20040 
20050 
20079 
20120 
20130 
20150 
20170 
20180 
20190 
20200 


20210 
20220 
20230 
20250 
20270 
20290 
20310 
20320 
20330 
20340 
20350 
20360 
20370 
20390 
20410 
20440 
20470 
20490 
20510 
20520 
20540 
20560 
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INDEX 


333 
334 
335 
336 
337 
3348 
339 


340 
341 


342 
343 
344 
345 
346 
3467 
3686 
34649 
350 
35h 
352 
343 
364 
355 
356 
387 
3b8 
359 


36u 


36] 


362 
363 
364 
365 
366 
367 
368 


SUBROUTINE MNCHN? 


ceececccocceececcceccceceececcceccccececcececececceccceccccecccceececcccce 

OO 870 J=4045 
Byo ACIIZANCI) 

DEL=ON1L 

HEsuN 

AOQEM=AONM 

NT ABE=NGEOMN 

NEND=2 
eccececccecccececcececececcecccececececcccccecceccccceccecececececcceccccec 
c SOLVE FOR ENO CONSTANTS AND PRINT DATA VALUES. 


ceccecceeceececceceececeecececececcecececcecceeceecceceecceecceeceecceec 


CALL ENDCSBCTERROR) 

IF CIERRGR.EG,. LI BYEBYE=1,0 
Cccecccecccececcecccececcceccecccceccececceccccecececececccecceccccececc cee 
C MOVE ENDCSB VARIABLES TO NOZZLE Ente 
Cceccccccccececcccececceeceeecececceceoeccccececccececceececcececececcce 
880 OO 490 I[=1.20 
890 RNI{T)=REICT) 

IF (VCNINP.EQ,0.0) GO To 915 

VCN=VCNINP ‘ 

1F (NSUHMG.F0.0) GO TO 92n 

VCNARVCNINA 

VCNHSVCNINB 

GO TO 920 

915 VCNSYCE 

VFNU=SUMDV 

JF (NSUBMG-ED.0) GO FO 920 

VFNOA=SUMDVA 

VF NOB=SUMDVB 
920 IF (HCOMSCUR (4 ¢1)) 96099306930 

940 IF (HCO-SCUR(NSLOT 42} =AN( 38) ) 940.960 +950 

940 IF (SLTHRNINSLOT) EQe200 OR, SLTBRNINSLOT}.EQ.3.0)} GO TO 960 
WRITE (69950) ‘SLOT»NSLOTsSBINSLOT) eNSLOT»NSLOT 

950 FORMATIT2+# INVALIO Stal2et' eSxetStsl209B=% E20. 7/TAe (HCO“S4y lay 
$18) IS LESS THAN TAUMNt/T2e'SLOT ts12s8AFT INTERFACE CANNOT ARE WHT 
SHIN TAUMN OF THE AFT TANGENT PLANE WHEN THE INTERFACE IS NOY INHIi 
$ITED* es /T2e" ERROR OCCURED IN MNCHNE AT STATEMENT 930%) 


BYEBYE=1 00 
ceeccececccecccuccecccecccececoccceececccccccccceccceeeccccereeeccececec 
C PRINT THE PROGRAM INPUTS FOR THE PROPERTILS OF THE 
Cc PROPELLENT AND THE BURYING RATE EQUATION CONSTANTS, 


cecececceccececececcucececececcecececececceccccoccecceccececececccccoeccece 
960 1CHN=2 
CCCCOCccccccccccccecccecccccceccccceccecccccccececccceccceccecceccceccce 
Cc CHECK THE VALIDITY OF THE RURNING RATE EQUATION CONSTANTS 
Cc AND PRINT APPROPRIATE O17 AGNOSFEC CUMMENTS. 
cececcececccceccccceccoceccecececcecccecccecececcecceecceccecccccecccccce ce 
CALL R&YSUB 
IF (BYEBYE+LT.1.0)G60 FU 980 
970 BYEBYE=0.0 
- IERROR=O 
ICHN=S 
980 RETURN 
END 


20580 
20600 
20610 
20620 
20630 
20640 
204650 


20670 
204690 
207168 
20730 
20750 
20770 
20790 
2nanta 
20830 
2n8en 


70880 


20990 
20970 
20990 
21000 
2t020 
21050 
21070 
21090 
21100 
21120 
211460 
21150 
21160 
21170 
21180 
21190 
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pe0Z001L-9520 


Z0Zre 
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SUBROUTINE MNCHNL 


SYMBOL ee ee ee ee ee et ers 


210WR elie 


10 - 7900 ele 
11 = 30000 lols 
20 ~ 77 gee 
30 = 82 ase 
50 ~ 86* 

60 ~ 86 a7 
70 - B7aWR ga 
40 - 86 508 
140 - 934 

135 - 9300 95b0 
140 = $2 $33% 
150 - 133p0 142 
160 - 16200 164 
170 . 16900 171% 
180 “ 17200 i7a% 
200 = 17900 18000 
290 - 91 203% 
350 - 206WR 2078 
36u - 205 2098 
400 - 209 2)2# 
410 - 212 2138 
420 - 212 2ise 
430 - 22 215 
440 - e1l6wR 217% 
450 ~- eis 2198 
460 - e20, 2218 
470 - 22) 2228 
480 - e222wR 2234 
490 - 221 2268 
500 ~ 226 227 
510 - 228wR 229% 
520 - 21900 225 
536 - 214 220 
940 - 239% 250 
24) - 242 aoe 
542 - 242 243 
244 - 242 243 
545 - 246 2478 
546 - 247 2488 
548 - 247 2498 
950 - 249 250% 
$52 . 250 e514 
564 - 246 249 
566 - 255 2568 
568 - 255 2586 
570 - 257 258 
572 = 259 2604 
574 = 263 2644 
576 - 263 2688 
590 - 258 ‘271% 
592 - 271 2728 
596 - 271 273% 


966 


18}% 


226% 


226 
232% 
254 


B44 
2460 


2550 


259« 


231% 


259 


2706 


272 


REFERENCES 


276 
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£02-€ 


595 
600 
610 
620 
636 
640 
650 
655 
660 
670 
680 
690 
100 
Mu 
720 
730 
740 
750 
760 
770 
780 
730 
800 
10 
820 
630 
840 
450 
y60 
470 
8g0 
49u 
91S 
920 
930 
940 
950 
960 
O70 
980 
100) 
1010 
1036 
1020 
4040 
1050 


AAAA 
AAN 
AANN 
AAP 
AgB 
ABCYL 
ABHO 
ABIGR 


INOE x 


~ 
- 
~ 
- 
~ 
- 
- 
~ 
- 
- 
- 
~ 
~ 
~ 
- 
~ 
- 
“ 
~ 
_ 
- 
- 
- 
7” 
7” 
~ 
- 
- 
~ 


271 
275 
243 
278 
279WR 
278 
262 
2aSWwR 
262 
28800 
292HR 
29800 
28700 
301 
301 WR 
30300 
30506 
3a7 
308WR 
307 
31100 
31400 
424% 
324606 
376 
326 
310 
329uR 
33100 
33300 
342% 
34200 
344 
346 
355 
356 
358wR 
355 
89 
264 
10300 
to2 
41000 
109 
12800 
12600 
20C0 
28C0 
58CO 
59CG 
26C0 
29C0 
31C0 
8co 
46C0 


272 

2tTu 
245 

279% 
281# 
eaet 
2a 
chit 
2ase 
29s 
2y3e 
agyt 
300% 


J024 
J04¢ 
306% 
J08% 
309% 
3l1le 
3134 
315% 


3254 
3278 
J2a 
329" 
330+# 
d3e+ 
334* 


3434 
3504 
349 
3564 
357 
359% 
456 
208 
363 
loads 
109% 
116 
le6# 
1334 
127 
942 


105= 


274% 
278% 


352 


357 
280 
3674 


125+ 


132+ 
299 


36] 
3642 


306 


315= 
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3342 
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ybz200L-95¢0 


b0e-E 


TNOE x 


ABN 
ABNA 
ABN? 
ABP 
ABS 
ABSLTA 
ABSLTF 
ABTOT 
ACCEL 
ACG 
ACGA 
ACG 
ACK 
AEE 
AFF 
AFP 
AFRPL 
AHH 
AHO 
AIBCYL 
AIG 
AINC 
AINCH} 
AINCIN 


AALNCN 
QINCPL 
AINCW 
ALNCK 
AINCY 
AIPCYL 
AIT 
AJHSH 
AJ8H 
AJBHED 
AJBHN 
AJBHO 
AJON 
AJBNDZ 
AJPH 
AJPHED 
AJPHN 
AJPHO 
AJPN 
AJPNOZ 
AJPP 
AXGY 
AKGYP 
AKGYX 
AKGYY 
AKRST 
AL 

ALA 
ALADM 
ALAMDA 


PrPrreretnres uate rrdvarpprpgad 


esi r_tanritiairtrretervebtrepesnepeureezeaypeaa 


aco 
73c0 
73C90 
27c0 

247 

37¢co 
37c0 
5aco 
31C0 
24C0 
34C0 
34C0 
25c0 
46C0 
4560 
5200 
68C9 
32C0 
4ico 
60C0 
S9co 
2ico 
31C0 

scu 

e7e 

201 
11¢0 
s?Co 
39C0 
390 
60CU 
58C0 
55CO 
$5C0 
32C0 
3200 
33C0 
5500 
3200 
$6CO 
3eco 
3eCO 
33C0 
5600 
32c0 
45CO 
57C0 

8CO 
60CO 
60C0 
§7C0 
45C0 

5c0 
21C0 
42C0 


lies 
Li7vs 
118 


255 


1862 


177= 


290s 
205 
2e73 
3045 
e4o 


l3is 


189s 


e71 
292uR 304 
2064R 209 
275 277 
332 
247 249 


31a= 


2toweR 
290 


332 


243 
413 


251 


SUBROUTINE MNCHNI 


244 


2535 


247 


ess 


25H 


243 


264 


PAGE 


2n4 


e7) 


pe-bz001-9520 


GOZ-E 


ALAMIN 
ALB 
ALBOM 
ALC 
ALO 
ALDP 
ALE 
ALEOM 
ALFE 
ALFEM 
ALHO 
ALITQ 
ALITIL 
ALL 
ALP 
ALPPL 
ALPRP 
ALPX 
ALPY 
ALQ 
ALSX 
ALS1 
ALSIDM 
ALS2 
ALS20M 
ALTA 
ALTAP 
ALTB 
ALT BP 
ALTO 
ALVA 
ALVd 
ALVC 
ALX 
ALLIA 
AL3A 
AL? 
ALS 
AMACH 
AMAXO 
AMIN] 
AMPN 
AMTIL 
AMFJ 
AMW 
AN 
ANI 
ANIBO 
ANK 
ANLOPS 
ANO 
ANODM 
ANOX 
ANOY 
AQ 


NOE 


Persea parce ever enrreeartr vec rr arae eee evr rere cr ears rar area aaerae 


Xx 


4200 
5c¢ 
21C0 
20C9 
20c0 
a 7CO 
5cd 
21Co 
23C0 
23C0 
47CO 
46C0 
59C0 
45C0 
66CD 
aco 
a8CD 
41Co 
41CO 
3300 
56CO 
Sco 
2tco 
5c0 
21T0 
?acOo 
26C0 
2960 
27Cco 
30CO 
50Cc0 
50C0 
50C0 
42C0 
63C0 
63C0 
§2c0 
seco 
31co 
233 
249 
§7CO 
33C0 
33£0 
§7CO 
201 
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SUBROUTINE MNCHN2 


SUBROUTINE MNCHN2 IS THE CONTROL ROUTINE 

WHICH DETERMINES THE INITIAL FUEL AREA (AFF) AND PORT SREA (A>) 
FOR THE CYLINDRICAL SECTION REFERENCE PLANES AND DETERMINES THE 
BURN AREA AND INITIAL FUEL VOLUME OF THE STRAIGHT THAGUMH SRATN 
FORE*HESD and AFT*HEAD SECTIONS 4S A FUNCTION OF OISTaNCY 3JURNED. 

cecceccececcececce cere cececeeceeceeccececeeeuccecececce k¢ ccecccuceccceccece 
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¢ ALS1 (18) pALSP CLA) pAL ATE) vALU (29) eALE (1A) AOL CIAL 
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CUMMON/INPUT2/THO( 18) se TSLVR (14) 
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COMMUN/WURKSSZA15) ¢R1 e299 TH] pT2Ms TGMe TSM XGS a YGSeAL CHAVIS YOS» 
ROD KOS eVOS eNOS eAD7 oe VOloROT>T OMe Tt PMoTIOMyX7O2 V7 Os 
ALD eX09DsVOIPRODeKOLIAYOLE ROL) sTLOMe TOM a TAUMe THD 
TASS TH4e37 1M eR PAM BSI Me BOOM 

COMMON/WORKAZSATNCE (1) pANUIMeRE DMs TAUWOM RAMP RIDWVAPR4OMARSDM yg VOM 

1 R7IMSRINMSALS EDM SAL S201 ys ALADM s ALB DY eALFDM 6 AW (5) 

COMMON/WORKODE /DE 1] »Bi 5 SOE 4 

COMMUN/WORKRE /RE } sALFEMeALFE sREe s HE] ste 2 tHE Os WER VFEOSVCE » 

1 TOUENs TAUE] +CAE s CBE sCCCE sCCVE +CDCE e COVE sCECE CF VE 

COMMON/WORKRH/ RA] (5) eH 2 ACG) HHWs VE HD oe VCH e ANK (10) 

COMMUN/WORKRA/RNI (8) es VED e VEN PACK (10) 

COMMON/COMH AHH s AJPHN s AJ IHN ¢ TAUAD) AJPHED e AJBHED s AUPNOZ sAUA WO + 

1 XSHeXBNODTINT 

COMHON/COMC/AMT Us AMT I s AJPHO 2 AJHHOs XH IN ALO 

COMMON/COMD/BHOLD sp RHOLD RGF eRGI a XSARST sAUSTP PAISTB EWTST >» 

1 RGFR RGIB 

COMMON/COML/ THOX 

COMMON/COMOZ/ THSLV a TSL VOM THSL VV A ASLVR SAHOSRFHI gp ALPX9 APA 

1 RBH +ALPY eaPYrVSLVR 

COMMON/COMT/ TAUsRC + SUMDV s XReHE eAL (13) oXBARTHSASE OAFF OWI] WT oRAg 

RAOALL oAJPP YAS] 

COMMON/SCOMK/COSA (5S) ¢SINA (5S) sD TAUX sD TAUWX 

COMMON/PARMA/SAPP eAL7 + 4.69 FAUTOVs BVM BYXX 

COMMON/PARMB/AP sPMIN ePUAX eWOOTs TIT eT 1JeWDOTDsNSLOTsNTABE eNIMES 

1 JAUTOs TOFLAGeNINCPL sBRNOUTs [IS eI 51) ¢IS2eNTeSCUR(18 +2) 

COMMON/PARMD/KRASUB eK XQSUB s AJBB HEL sAJBN gp AUBHs XBARI 

COMMON/PARMF /PHe TIME ¢AINCN eT eP DEL TAs UsAKGY sPONS DIS sAMPNGATs 

1 AMWyAKAST 
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21210 
P194D 


21990 
2700 
22015 
P2020 
2P0hK9 


PAGE 


219 


ALTYNG A00d Fo 


SI GOVd TVNIDTEO 


bebzoul-9620 


U2e-£ 


INOE x 


32 
33 
34 
35 


36 
37 


Cc 


SUBROUTINE MNCHN2 


COMMON/PARMO/ALP + KRASBB oe XXRSBB + KGAM 

COMMON/PARMS/ICHN 

COMMON/PARMAB/ HSUBMG+ VSUBMGsNENDs ASE AS ASE se SUMNVAs SUMDVB 
COMMON/PARMAD/ PMOTNA (50) #PMDINB (S50) sRMOTNA (50) oe AMOENA (SO) ¢ 

$ XCGNA (50) ¢ XCGNB (50) sABNA (50) ¢ABNR (SO) 
COMMON/PARMAE/ XBARTASKHARI Bs AJPPAs AJPH s SUBBASAJRBA 

DIMENSION ALPPLX (S50) eALPSLV (18) pAKGYPX (SO? sABEND (50) ePMOIE (S0} 6 
1 ° RMOTE (50) sSLVA CLA) se TAUEND (50) » TAUPLX (S50) »XCGE (S01 


ecceeccceececceeecceccececeecececceceecoeccecceceeeccececeeeeceececcecce 


MOVE REFERENCE FRAME A FO WORKING STORAGES 


ceeccceceecceeccecceeececcececceeececcecceeeceecceecececceecceeceeceeece 


10 


c 


OE} =0H) 

HE=8H 

AQEM=A0HM 

NTAGE=NGEOHD 

NENO=) - 
IF (BTACE,GT+0.0) NTABES=-]) 
CALL TRAN(RH1sRE1 +20) 

NO 67> NPLANE=] +PLANE 

LO 10 1152) 

J= ¢1-1)4#18 + NPLANE 

AINC (I) eAINCINGI) 

bO 35 [5] 945 

ACI) = GEOCON (Ts VPLANE} 
OTAUX = DTAUCNPLANE? 
LTAUWXs OTAUWCNPLANE) 
TSLYDM# TSLYR{NPLANE} 
THOX = THU(NPLANE} 

GO YO 350: 


eecceecccececceccececececececerccecceceéceccecectceecceccececeeeeccecccer 


STORE GEOMETRY TABLES FOR REFERENCE PLANE A, 


cecccceceecceccececececeececececceeeccececcececccceceoecececcceeccceccecce 


20 


30 


40 


290 


‘ 


DO 30 J=) sNGEOMX 

TAUPL (deNPLANE) = TAUPLX (J) 
ALPPL{(JsNPLANE) = ALPPLX{J} 
AKGYP{JeNPLANE) = AKGYPX(J) - 
NGEV{NPLANE) = NGEOMX 

APORT (NPLANE) =APORTA 

1F (NPLANE 6GTe1} GO TO 675 
TF (NGEOHD NEO} GO TO 675 
IF (BTAQE.GT +060) GN TO 675 
DO 40 J=lsS0 

TAUHD (J) = TAUEND { J? 

ABHD (J) =ABEND (J) 

PMOTHD(J)= PMOIE CU) 
RMOTHD(J)= RMOIE CU) 

XCGHD (Jha XCGE(J) 

NGEQHO = NGEOEN 

GO TO 675 


coceeccececcccccccecececceccccececececcececcccectlcecccececececceccececece: 
Cc 


ceccccccceccecccccceecccceeececcecececccecccececccccceceeccceecceceecccce 


MOVE REFERENCE FRAME N TO WORKING STORAGEs 


0E1 = ON} 
BE=BN 
AOEM=AONM — 


22040 
220An0 
22100 


P?e290 
22310 
22330 


22520 


22560 
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INDEX 


16 
77 
7a 
79 
80 


81 
62 
B3 
8a 
85 
46 
87 
88 
uy 
90 
91 
v2 
93 


94 
95 
96 
37 
98 
99 
100 
101 


iu2 
103 


104 
105 
106 
107 
108 
109 
1q0 
ill 
112 
113 
114 
115 


SUBROUTINE MNCHN2 


NEND=2 ‘ 
CALL TRANIRN] +RE] +20) 

NTABE=NGEOMN 

NGECEN=NGEOMX 


GO 70 360 
ceccccecccceccececceecececececeeccececcecceceocceccececcceceecceeccccecececc, 
c DETERMINE FUEL AREAs AFFs AND PERIMETER LENGTH + ALP, 

c FOR REFERENCE PLANE Xe 
c INITIALIZE DATA 


cecccececcccccecccceccceccceeccecceccececccccecccecceccececcecceccceccccc 
350 IF (NPLANE <KPLANE) 36042904360 
360 1s} 
FAU=0.0 
TwEe=} 
NWEUSO 
RC=RE] 
NTEST=0 
370 = CALL: LPDAPS . 
JF (TAY) 380 5380,390 
380 APOHTX = PLHRFDMee2 ~AFF 
TMAX=TAUM 
IF CTSLVON+¢GT»0.0) TMAX=FSLVOM 
THAX=AMINI (TMAXe TAUM) 
cceccceccccecectccceceeccececcceeceeccececccceceeccececececececceccceecce 
c STORE GEOMETRY VALUES FOR PLANE X, 
cecceecccctcencecceeccocececccceccececccecccceceecececccccececccccccecce 
3906 ALPPLXC1) =ALP 
AKGYPX(T) =AKGY 
TAUPLX{1}=FAU 
IF (NPLANE=1)41024109400 
400 IF (NPLANE=KPLANE)S1024100410 
430 IF (NTABE) 4209420eS10 
420 IF (NPLANE=1)4409430 2440 
430 TF (SYAQE) 44025404510 
ccceccccecceccecccccceceecccecceccccececcecccecceccceceecccecceccececcceccc 
Cc DETERMINE FUEL AREAe ASE» AND VOLUME» SUMDV, 
c tor END SECTION. . 
ccccccccoceeccecccceccoccecececeecececcccccceccceccceeecececoceecc cet ccece 
440 CaLL RCSUB 
CALL ASESUB 
ceecctecccCeccceccecccceecccccececcececcecccecceececccecceccececcceccecce 
Cc STORE FUEL AREAs ASEe FOR END SECTIONs 
ceccceccccccceccccececceccececccececcceccccceceecccececececececeeeccecce 
ABEND ([) =ASE 
IF (NEND.EQ.1 OR.NSUSMG.ED.01G0 TO 645 
ABNACI}=ASEA 
ABNB (1) =ASEH 
445 TAUEND(I}=TAU 
IF (TAU) 460 450,480 
45¢ IF (NPLANE<1) 47054609470 
460 IF (NGEOHD»LE« 1} VFHO=SUMOV 
TAUAO=TAU 
AINCH=000 
GO T0486 ' 
470 IF(VFNO.GT.0.0) GO To 475 


22680 
25750 
25760 
25420 
25840 
25860 
25870 
25880 


25890 
25900 
25910 


25930 


25950 
25970 
25990 
26010 
26030 
26040 
26050 
260A0 
26076 
26030 
26090 
26100 
P6120 
26140 
26350 
26170 
26190 
26200 
26220 
26240 
26260 
26280 


26300 
24310 
26320 
26330 
26340 
26350 « 
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122 
123 
124 
125 
126 
127 
.128 
129 
130 
131 
132 
133 
144 
135 
136 
137 


~ 138 
139 


140 
141 
142 
163 
144 
145 
146 
147 
148 
149 
150 
151 
152 
183 
154 
155 
156 
157 
158 
159 
160 
161 


SUBROUTINE MNCHN2 


VFNO=SUMDV 

IF (NSUBNGeEG.0) GO TO 475 
VFNOASSUMDVA 

VFNOB=SUMDVB 


475 AINCW=HCO , 


4B0 


IF (KMOICG}510 25009510 


ecceceeececececceectececececcececececececuccecececcececcececeececececcee 


Cc 
c 


DETERMINE MOI AND CG FOR END SECTION ANDO STORE 
PARAMETERS. 


ceccecceecoecccccceccocecucceceeccececcccececccccecececcccceccecccccccce 


500 


510 
520 
530 


cccce 
C 
ccccc 
540 
541 


542 
543 


544 


545 


546 
S47 


CALL PTIAA(L) , 
XCGE (1) =XBANI 

PMOTE (1) SAUPP 

RMOFE (3) SAJHB 

IF (NENO.SEQ.1 2ORe NSUBMGAEQ,0} GO TO $10 
XCGNACE) =XBARIA f 

XBARI d= XHAR 1 B+HSUBMG 

IF (XS8ANTH.EQO,.4SUBMG) XBARTH=0.0 

XCGNS8 (2) =XBaARIB ie 
PMGINA (1) =AuPPA 

PMOTNB{ 7) =AuPPB 

RMOENAC]) =QJd8A 

RMOINBC]) =AlBab 

IF (50"1)520954U 9540 

WRITE(65530) NPLANE eDIAUXeDTAUWX , 

FORMAT €27HOINVALID DTAUSDTAUW. PLANE »A1938M TABLES EXCEED FHE MA 
XXe ALLOWED (50). / 10X+36HCHANGE ONE OF THESE VALUES DTAaui = 
K FT%s4sSXs+SHOTAUW = F7,4 ) 

ICHN=5 . 

RETURN . zi 
Leceeeceeccececeeceecececccecececeecececceecececcececcetcceeeceecee: 
INCREMENT TAU 
cCccececcececceeccececccecccccceccccccctcccececccceeccececceccececcece 
GO [0 (541 556495494967) »TWER 

IF ((TAU+UTAUX) «LT. TAUWOM} GO TO See 

OL TWIM=TMAX*TAUWOM i 

IF (DLTWTMeLT. (200013) GO TO $43 

TausTAUWDM 

TWE8S2 

6d TO S70 

TAU=TAUCDT AUX 

GO 10 ST) 

TAU=TMAX~o01 

iwea=4 

Go TO 5706 

TAU=TAUWDMs 01 

TWEBS3 

Go FO 570 : 

IF (CTAU*OTAUWK) aLTsTMAX} GO TO 546 

TAUSTMAX#001 

IWEBS4 

6o TO 570 

TAUSTAUSDTAUWK 

GO TO §70 

Is]Iel 


26420 
260440 
26450 
26470 


26500 
24510 
26520 


26530 


26550 
26560 
26570 
26530 
26590 
26610 
26630 
26650 
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162 TAUPLAII} =TMAA 

163 ALPPLX(!) =000 

164 AKGYPX1(1) =000 

165 TF CONPLANE EQ «eKPLANE) ¢ ANDe (NGEOMN.EQ.0)) GO TO 560 

166 GO TO 660 ; 

167 S60 TAUEND (1) =TMAX 

168 ABEND (1) =0.0 

J69 ABNA(T)=0,0 . 

170 AGNB(1}=0.0 

17] IF (KMOICG,EQ.1} GO TO 660 

172 xCGE (1) 50.0 

174 XCGNA(T)=0.0 

1I4 , XCGNB{1)=0.0 

17S PMOLTE(1)=0.0 

176 PAOINAC{T) =000 

177 PMOENB(1}=0.0 

178 RNOTE(1)=0.0 

179 RMOINA(11 20.9 

140 RMOIND (7) 2006 ; ‘ 

ia] GO TO 660 ’ 

182 570 IF (NEND.NE.2) GO TO S75 

183 IF (NSUKMG,E0.0) GO TO 575 

184 IF (NWER«LT.2) GO TO S/1 

145 G) TO 575 

186 S71 IF (NWER.EQ.1) GO TO S73 

ia? IF (TAUsGEoTAUMNB) GO TO 572 

148 GO TO S575 

189 St2 TAU= [AUMNE~0.01 

190 NWEB=] 

193 IWEB=3 

192 GO 10 575 

193 S73 TAU=TAUMNE 

194 NWEB=2 ‘ 

195 IwEBS3 

1496 S7S IF (NTEST.GTe2) GO TO 620 

197 LF (NTEST.G¥.0IGO TO S90 26720 
198 IF (THAX=TAU) 58055809630 

199 580 NTEST=1 

206 GO TO 470 26760 
20) 590 IF (NTEST.GTei) GO TO 600 26770 
ave NTEST=2 26790 
203 oO TO 670 26800 
204 600 IFC CTSLVDM+).0E-06)+GT.TAUM .0Re TSLYVDMALT.TAUWD4) GO TO 610 

205 ALPSLV{(NPLANE} ALP 26820 
206 SLVAUNPLANE) =AF P&ANOON 

207 ASLVR=SLVA(NPLANE) , 26840 
208 GO TD 620 “ 26850 
209 610 ALPSLV(NPLANE)=0.0 ; 26A60 
210 SLVACNPLANE) =0.0 26870 
211 ASLYR=0.40 ’ 26880 
2le 620 ALPPLX{1) 000 « 268590 
213 AKGYPX(1) 5000 26900 
214 ALP=000 26910 
215 NTEST=3 26920 


216 630 IF (ALP) 640 5640,670 26930 
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217 
218 
219 
220 


22) 
222 
223 
224 
225 
2d6 
227 
228 
229 
230 
231 
232 
233 
234 
238 
236 


237 
238 
239 


24u 
241 


243 
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640 IF (NTAHE} 66056509660 
650 = IF (ASE) 66056605670 
660 NGEUMX=I 


NGEOEN=T 
ceececcecceecccccccececcececccccccccecececececceccccceccececececcececcecccce 
c PLANE X GEOMETRY CALCULATIONS HAVE BEEN 
c COMPLETED FOR THIS FRAME. RETURN FO 2030, 

Sl Saha al eC a a a cc 
670 Is1+} 
GO TO 376 


675 NTABE = ~] 
IF (NGEDMN.GT»0) GO TO 685 
DO 680 J=15S0 
TAUN(J)= TAUEND (J) 
ABN(J) = ABEND (J) 
PMOIN(J)= PMOIE (J) 
RMGIN(J)= RMOTE (J! 

680 XCGNIJP=XCGE(J) 
NGEOMN = NGEOEN 

685 IF (NGEOHD.GT.0}) 60 TO 690 
ICHN=3 ; 
GO TO 700 . 

690 ICHNS4 ; 
cececccececceeceeceecceeccee cecececececeecececcecceccecceccceeeescceecee 
c COMPUTE KEFERENCE PLANE INERT SLIVER AREAe PERIMETER» AND VOLUME. 
Ccceccecccecececcecccccecccecececeecceccececececececcececceccceccccecece 

700 VSLVR=0,U 

IF (ISLVR(1} LE e000) RETURN 
DO 720 f22+KPLANE 


THSLV=ACOS { (RFA 2+ROTHOS~ (RS+ TSLVR} HO 2) 7 (2ORF HRD) } 


Ona 


VSLVR = VSLYR + (SLVACED *SLVACT©1)) @¢AINCIN(T] @AINCINGT@1) 1/260 
720 CONTINUE 

WRIFE(6—9/30) VSLVRe (LT eSLVACT) sALPSLV (1) e131 ¢NPLANE) 

730 FORMAT (IHUs27HTOTAL ENERT SLIVER VOLUME SLPE16.9//) X9S5SHINERT SLIV 
XER AREA AND PERIMETER AT EACH REFERENCE PLANE//30Xs15HREFERENCE PL 
XANE sOXs1IHSLIVER AREAsGXeLGHSLIVER PERIMETER/(IAXs1O07Xs E1165¢8X 
39€1165)) 
WRITE (69740) 

740 FORHAT(IH1//) 
RETURN 
ENO 


26940 
26950 
26960 
26970 
26990 
27010 
27020 
27040 


27070 


27080 ° 


27310 
27130 
27150 


e7220 
27230 


27240 


27350 
27300 
2/370 


27390 
27400 
27410 
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INDEX : SUBROUTINE MNCHIN2 
SYMBOL Pape b heed sedntn gue ems memset mtetatate REFERENCES 
16 - 4600 4B 
15 - 4900 soe 
20 - 56% 221 
30 - S600 Son 
40 ~ 6500 7o" 

290 - 73" 8] 

350 - L-) alt 

360 - 80 61 bee 

370 - age 223 

380 - 89 90% 

390 - ao 94% 

400 - 97 Jae 

410 - 97 98 99% 

420 - 99 1094 

430 - 100 1lok* 

44U - lad 1OL 102% 

44S - 105 108% ; 

450 o 109 1104 

460 ~ 110 114 

470 - 110 14g4 

479 - 115 117 12046 

480 - 109 114 12}.¢ 

500 ~ 121 1228 

$10 - 94 99 101 121 126 L356 
520 - 135 1368 

930 - }36wR 137% 

540 - 135 1408 

541 - 140 ig1e@ 

542 - 141 147 

343 - 143 149% 

544 - 140 1524 

545 - 140 155# 

546 - 155 1598 

S47 - 140 lol 

560 - 165 167# 

570 - 146 148 15} 154 158 160 182 
571 - 1a4 166* 

572 ~ 1a7 1894 

573 - 186 193% 

575 - la2 183 185 188 192 196% 
5a0 - 198 1996 

590 - 197 20oL¢ 

600 =» 201 204% 

610 = 206 209% 

620 - 196 208 2bee 

63U - 198 216% 

640 - 2164 217¢ 

650 - 217 2138 

660 - 166 17k * 181 21T ‘218 219% ' 
670 = 200 203 216 218 222 

675 - 4500 62 63 64 72 224% 
640 = 22600 231% 

685 - Bas 233% 
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690 
700 
720 
730 
740 

A 
ABEND 
ABHD 
ARN 
ABNA 
AdNY 
ACG 
ACK 
AFF 
AFP 
AHH 
AHO 
AINC 
AINCIN 
AINCW 
AJBH 
AJEBA 
AJBBH 
AJBH 
4JBHED 
AJBHN 
AJBHO 
AJBN 
AJBNOZ 
AJPHED 
AJPHN 
AJPHO 
AJPNOZ 
AJPP 
AJPPA 
AJPPG 
AJSTH 
AJSTP 
AK 
AKGY 
AKGYP 
AKGYPX 
AKK 
AKRST 
AL 
ALA 
ALADM 
ALB 
ALBOM 
ALG 
ALD 
ALE 
ALEOM 
ALFE 
ALFEN 
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235 
23900 
242w0R 
2440R 
15CO 
3701 
6cO 
6CO 
35¢Co 
35C0 
19C0 
20ca 
26C0 
2BCO 
21CoO 
2S5C0 
t6co 
3co 
aico 
30C0 
36CO 
36CO 
30C0 
2ico 
2ico 
2eco 
30CO0 
21Co 
21¢o 
2ica 
z22co 
21co 
2600 
36CO 
36C0 
23C0 
23C0 
$co 
31CG 
6CO 
3751 
9co 
31CG 
26C0 
3cQ 
16C0 
3ca 
46CO 
1SCcO 
15CcO 
3cO 
16CO 
18cCO 
18CO 


236% 
237% 
241% 
2430 
245% 
St= 
&7 
67= 
22h= 
106= 
1lo7v= 


9a 
206 


4a= 
4B 


113=° 


d25 
133 
134 


124 
tai 
132 


95 
592 
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1042 1685 228 


169 
170= 


240 
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INDEX 
ALL - 26C0 
ALP - 32C0 
SLPPL ~ 6CO 
ALPPLK « 3701 
ALPSiLV = 3701 
ALPX = 25C0 
ALPY - 25c0 
ALO = 22C0 
ALS1 - 3co 
ALSIDM = 16CO 
ALS2 ~ 3co 
ALS2DM « $6C9 
AL7 ~ 28C0 
ALG - 260 
AMIN] “ 93 
AMPN - 31¢0 
AMTI - 2eco 
AMTJ - 2eCod 
AMW - 31CO 
ANK - 39CO0 
ANO - 3c0 
ANODM ~ 36C0 
ADEM - 17C0 
AQHM - 7CO 
AONrA - eco 
agi - 3€0 
Ade - 3co0 
AGZ ~ 3co 
AQ4 - 3CO 
AOS - 300 
AP - 29co 
APORT - 6ca 
T 

APOGRTIX «= 61 
APK - 25Cc0 
APY - 25¢0 
ASE ~ 26C0 
ASEA ~ 34CO 
ASEB - 34CO 
ASESUB « 1034 
ASI - 26C0 
ASLYR - 25c0 
AT bad 31C0 
AW - 16C0 
BE oe 17C0 
BH - 7co 
BHOLD = 23C0 
ON ° &Co 
BRNOUT ~ 29C0 
HTAQDE = 7co 
BYR - 28co 
BYXX - 28C0 
B71M - 15C0 
872M - 15c0 
891M ~ 35C0 


94 

S8= 

$3 
205s 


206 
405 
40 
75 


90= 
loa 


106 
107 


207s 


39s 
39 
74 
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205 214s 216 
94s 163= 2)2e 
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892M 
CAE 
CHE 
CCCE 
CCVE 
CDCE 
COVE 
CECE. 
CEVE 
COMB 
COMC 
Comb 
COML 
COMO 
Comt 
COMX 
CONSTS 
COSA 
DELF 
DELTA 
VELZ 
DE1 
OH] 
vIS 
ULRF 
OLTWTM 
DN] 
URVRF 
OTAU 
UTAUNW 
OTAUWX 
DTAUX 
OTENT 
SEOCON 
ONOT 
HCO 

nE 

HET 
HEO 
HER 
HEL 
HE2 
HHR 
HHwW 
HH2 
(abate 


ICHN 
tll 
IIJ 
11s 
UNPUTA 
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SUBROUTINE MNCHN3 
cececeecceccecececceccreceececeeecececeeccececeecceceececcecceccecceccec 


c SUBROUTINE MNCHN3 IS THE CONTROL ROUTINE 
c WHICH DETERMINES THE [NITLAL FUEL VOLUME AND BURN AREA 
c AS A FUNCTION OF TIME FOR THE HEAD END WITH WEB, 


ccccecceccecececceccececceceececcccececcecccccecccccccceeececeeccccececccce 
COMMON/CONSTS/GNDT 1 PI PL O2sRADIAN 
COMMON INFUTIZAINCIN(G1 8) ¢ANO 618) eRF (18) eTAUWI'(18) sRAC1 Ade 
1 R3(18) oR6 (18) 1RS (1B) R618) oR7(18) oRBC1B} » 
2 ALSLCLB) »ALS2(1B) sALA(18) sALBCIH) pALE (18) eAOE (18) » 
3 £02(14)0A03 (38) 6406 (18) eA05(18) 
COMMON/ INPUT 2/4 THO(1 8) sTSLVR (18) 
COMMON/ INPUT 3/4GE0CON{45,18) 
COMMON INPUT4/NGEO (18) APORT (18) e TAUPL (50 5/8) sALPPL (50518) » 
i AKGYP (50918) + TAUHD (50) ¢ABHN (50) »PMUITHD (50) 5 
2 RMOTHO (50) sXCGHD (50) + TAUN(50) #ABN(SO) sPMOEN 50) » 
3 RMOTN (50) 9XCGN(50) sNGEOHD +NGCOMN 
COMMONS THPUTACB PAGE #0H] 2 3Hs ADHMPRIGeHHR 
COMMON/ INPUTO/KPLANE sKMOICG 
COMMON, INPFUTS/DTAU(IR) »OT4UWE1 8) 
COMMON/ INPUTU/DELF pe PAs ONT sHCOsDELZ s KDUMP (72) 
COMMON/ WORK 454A (5) 61 29 e THL eo T2Me Tome FSM eg AGSe VGSeALCoX0 A670 de 
HOZeXOS eYVOSeROGAXU7T SY OT PROTO TEOMs T7TUeTL2MeX OV 765 
ALD ep X09 YOVsSRODSXOLIs VOLI e RULE oe TLOMs TOM, TAUMS FH? 
TH391H4e371M 8724, B91 HsB92M 
COMMON/WORKAZATNC (1) sANOIMSREDMs TAUH «+ R20M+R30MeR40MeRSDM RED, 
1 R7O4%—sR80M,ALS1DMy ALS2DMe ALADM,ALBDMyALEDM, AW(S) 
COMMON/WORKDE/DE1 «BE sAGEY 
COMMUN/ WORKRE/RED eALFE EMeALFE s REQ 2HE] pHE2 SHEERS VFEOsVCFe 
{ TAUEOs TAUE] #CAE sp CBE eCCCE ps CCVE sCOCE sCUVE CECE sCEVE 
COMMONS WORKRA/RH)] (5) eH? sACGeHHW s VF Oe VCHeANK (10) 
COMMON/DUMY J/AUBNE Ws AUPHEW ep AKHF Be ARRFP ¢AKHIBSAKRIPs XBARRF 0 


he 


t KHARRI 
COMMON COMB / AHH s AUPHN» AJ3HN» TAUAOs AUPHED s AJBHED» OJPNOZ ep AIBNOZ» 
1 MBH eo KANSDTINT 


COMMON/ COMC/AMT Jy AMT E eA JPHO sp AJBHOeXBTHy ALU 

COMMON/COMO/BHOLD sRHOLD + IGF sRGI + XBARSTrAJSTPsAJSTBeWTST> 

] RGF ByRGIB 

CUMMON/ COMO / THSL V9 TSLVIMy THSLVV 2? ASLYR s AHO PRFHI yALPA VAP Xe 

H RAH] sALPY eGPYeVSLVR 

sre ROA REET CO eA Tee g Pmt At bo NYA CEASED ALTRI oy eRe 
RAGPALL sAJPPSAST 

* COMMON /COMV/VSTRe VETO STOYAX DOLASD01B0XNAKeZHAKs YHARDALEHDs 

1 ROPE) eROPE? » ROPES» ALDP 

COMMON/COMX/COSA (5) »SENA (5S) sOTAUX sDTAUWX . 

COMMON/PARMG/VF Hp AANo VEN PVISe43T oSPHDTsSPONDT eVFINT s VEHs ARTOF 


COMMON/PARMJ/WTH 

COMMON/PARMS/ICHN 
cececececceeceececcecececcecececceceeceececcecececceceeceeceeccececcecce 
c . MOVE REFERENCE FRAME A AND HEAD END SECTION TO WORKING 
c STORAGE « 
cccoceecccecccoceccececcéceccceceececccccccaceccecccccecceccceeccecccerac 

0a T=1ls2 


Ja {T-}}4#28 ¢ 1 
hO AINC{I) = AINCING I> 


27430 
27810 


27840 
27850 
27870 


27890 
27910 
27920 
27940 


PaGE 
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y-Oel1-9e20 


pe)ert 


39 
40 
4] 


42 
43 
4s 
4S 
46 
47 
48 
49 


$0 
S2 


53 
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00 15 3=1,45 
1S A(T) = GEOCON(I»1) 
DEt = 0H) 
BE = BH 
AOEM = AQHM 
CALL TRAN(RH} RE] +20 
OTAUX = OTAUG)) 
DTAUWK= DTAUW(1) 
TSLVOM= TSLYR{1) 
PEREG ECE EU EC Cee rer ernac ma seme oye unres CuuranelE TC OUbnUG Er CGCUClOECCCEtRS 


¢ INITIALIZE DATA CELLS. 
éceceececcececcecceceecceccecceccecceceecceececceececececeecceceecceccce 

I=] , 

TAU=0 40 ‘i 

Iwe6=1 
ceccecccececcceccceccccceecececcececceceecccecececcecceccccececcececencecec 
c DETERMINE BURN AREA AND FUEL VOLUME UF HEAD END, 


coccecececececeeccteecceececcceecceecececceceececeecececcecececeeccececct 
2u CALL RCSuUB 

CALL HRDNSU3 « 

IF CICHNSEQ.5) RETURN 

IF (TAU}30530440 
30 VFHO=SUMDY 


AHO=ASI 
40 AHH=ASI 

IF (KMOICG) 2001507200 : 
ecececceccececceeccecececcececceceeecceecucececcececececcececcceeeceeece 
c DETERMINE MOI AND CG FOR HEAD END WEB SECTION. 


ccceecccceceeeccécceccececccceccececcececececcocecceecécccececcececececce 
50 1F (BTAUE} 609200960 
60 TAUAO=T AY 
CALL ASTSUa 
ecccccceccecceccececcceccceccecccececececeeeccccceccceccececeocecccccccce 
Cc COMPUTE AKRIP+ AKREGBe AKRFP se AKRFR 
rece ececcccece cence Ceer Cceaeecccececececceeetraccecereucdtucceccocccencc’ 
{TAUITO+? 0 
ceccecccececceccecccccccceeceececececcececcccecceccctceccececercccceccecce 
Cc COMPUTE AJPHOs AJBHOs XBARRI+ XBARRFs AND XBARIH 
cceececcecccececcececocecececccececceececececececetceececcceccecceccence 
70 CALL RGISUB 
AKRIP=SORT ( (WFH®DELF8RSI #824 /GNOT-AUSTP- 
AAJPHND / ( (VFH®DELF -WTH=w TST) /GNOT) ) 
AKRIS=SORT ( (VFHEDELFeRGI3#82,/GNOT-AUSTB- 
XAJBHN) / ( (VFHOELF-WTH-#TST) /GNOT) ) 
AKRFP=RGF 
AKRF B=RGFB 
80 TEMP6a (VFHODELF-WTH-WTST) /GNOT" 
IF (AKRIP~AKRFP) 1001200790 
90 TEMP 1=1.-FAU/TOMAX 
GO TO 110 ‘ 
100 YEMPASTAU/TDMAX 
110 TEMP4= (AKRFP~AKRIP) #TEMPL +AKRIP 
TEMPS= (AKRIP=AKRFP) #TEMP] +AKRFP 
TEMP 2aAUSTP+AJPHN 
TEMP3=AJSTH+AJBHN 


? 
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28150 


26170 
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26230 
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2A260 
2a270 
28290 


2A320 
28340 
26300 
28380 
28390 
26400 
28410 


28430 


284450 
26470 
28490 
78510 
28530 


2ASSU 


26560 
2As7o 
28580 
28590 
28600 
28610 
28620 
2663n 
28640 
28650 
28660 
28670 
28650 
28699 
28700 
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TEMP7= (AKRFOB-AKRIB) OTEMP] eAKRID 
TEMPB= (AKRIB-AKRFB) # TEMP] ¢AKRFB 
IF (AKREP-AKRFP} 22091209136 
120 AUPHOSTEMPG*TEMP4 RA, +TEMP2 
AJBHOS TEMPOS TEMP 7462, +TEMPQ 
GO TO 140 
130 AJPHOSTEMP HR TEMPS¢e2, + TE MP2 
AJBHO=TEMPG A TEMPB EZ. + TEMPS 
140 TEMP6=TEMP64GNOT 
IF (TAU) 16051504160 
$50 XBARRT = (ABARTH (VFH®DELF) - (WTST®XBARST) ~ 
R(WTHEXBTH) ) TEMPO 
XB ARRE =YMAX 
160 TEMP3=VFR*OELF 
TEMPAZTEMP 3eWTSTewTH 
TEMPL=WTS J @XGARST 
TEMP2=YTHEXUIA ; 
IF (XBARRI=KHARRF) 18043704170 
170 TEMP4=1..~TAU/TD4AX 
ABARTH ( ((XBARRT~XBARRF) ® TEMP4¢ XBARRE ) 4 
XTEMP4+ TEMP2+ TEMP} } /TEMPS 
bo TU 190 
189) TEMP4=TAU/TDMAX 
XHARIH= ( ({ XBARRF #XBARKT) #TEMP4+XB ARH 1) # 
ATEMPG+TEMP24TEMP]) STEMOR 
190 AJPHE WSAJPHD 
AJPHED=AJPHO 
AJBHEW=AJBHD 
AJAHED=AUBHU 
XBH=XBARIH 
XBHEW=XBARTH 


AHOSAHH 
ceccecececceclceccecccoeccecececececeerccceccccccucccccecececcececccceccce 
c STORE GFOMEIRY CALCULATIONS 


CCCCCCCECCCCCCCCCECCCOCOCCCEECCECCCCCCCCCCCCCOCCCOCCLC CLEC CeCe eCOC CCC 
200 JAUHD (J) =TAU 
XCGHU (] )=X8HEW 
PMOTHD CE) =AJPHEW = 
RMOTHD (1) =AJBHEW 
ABHD (1}#AST 

210 IF {50-1} 22022409240 

220 WRITE (60230) DTAUXsOTAUWK 
230 FORMAT (27HUENVALID DIAUSDTAUW. PLANE sAj)eJGH TAALES EXCEED THE MA 

XXe ALLOWED (50)- / 10Xe36HCHANGE ONE OF FHESE VALUES OTAU = 
X F%e4eSXeBHOTAUW = F744 } . 
ICHN=5 
RETURN i 

ececceccececcececeeccececececcceceecccecccccececcceeecccceceecececececccece 
c INCREMENT TAU 
ceecccceececcecccceccceeccccececceccecccecccccecce cece coeccceccccececcce 

260 GO TO (241 524422492247) pI WEB 

241 IF {(TAUCOTAUX) oLT,TAUW) GO TO 242 

DL TWIM=TOMAX~ TAUH 
IF COLTWTMeLT.{20001)}) GO TO 243 
TAUSTAUW 
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IWEB=2 

GO 10 280 ; 

TAU 5 TAUtDTAUX 

GO TO 280 

Tavs TOMAX#,01 

IWEBRS 

60 TO 2a0 ’ 
TAUSTAUW2 6 O01 

IWwEB =3 

GO TO 284 ’ 

IF ((TAU*OTAUWX) eLTsTDMAX? GO TO 246 
TAUSTOMAX~, 01 

TwEB=4 

G0 FO 280 : 

TAU = TAU + DIAUWK 

GO 10 280 
1=]+1 
TAUHD {1} = TOMAX 
ASHU 1) =0 7 
XCGHD {I} = 
PMOTHD (YT) 
RMOTHD(T) 
GO TO 290 
T=Ie1 

60 TO 20 


0 


0: 
0 
s 
0 
00 


. 
Q 


0 
* 


PLANE & AND HEAD ENL WEA GEOMETRY CALCULATIONS 
HAVE SEEN COMPLETED. STORE GEOMETRY TABLES. 


NGEUHD=E 
ICHN=4 
RETURN 
END 
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SYMBOL PALME MERE MEE EMH ESE MONET MEME MY SEWEN ES EM REFERENCES 
10 - 2700 2oe 
1s = 3000 abt 
20 - 424 136 
30 - 45 46% 

40 - 45 46% 

50 - 49 soe 

60 - 50 Sle 

70 - $3 S4e 

380 - 53 S98 

90 “ 50 oie 

100 - 60 oj* 

110 - 62 64% 

120 = 70 Tit 

130 - 70 Tae 

140 - 73 76* 

150 = 77 7Be 

160 “ 77 804 

170 - 84 ase 

180 - aa gee 

190 - a? 9o8 

200 - 49 so gre 

210 ~ 102 

220 “ 102 103% 

230 ~ 103¥WR 104% 

240 = loe 107*® 

241 - 107 1lua* 

242 - 108 1148 

243 = 119 116% 

244 bad 107 1lae 

24S - 107 l2e* 
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SUBROUTINE MNCHN4G 
cceeeccececceceecccecceccececececceececeeccctéccccecceccecceccecceccccecce 


c SUBROUTINE MNCHNG 15 THE CONTRO! ROUTINE 

c WHICH OATAINS THE INTERNAL BALLISTIC SOLUTION (SECTION 

c Sa2e2)e 

eeccececcecceeceececcecceccecececcecececcceeceececceceeceececececcececce 
REAL MIB 


LOGICAL LISTL STATIC 

DIMENSION AFITC(4) + TAUSAV(4) pCAFIT (4) 

COMMON/BLKOOS/ NLEWIS» VSI eNF aNRECON®NCASES NDI SP 

COMMON/BLKO21/ TSRECs TERECsCSBAR sPNSBARs FWEBeP ITH eCSCOEF (3) LIST] 
® STATIC 

COMMON/OLKN24/ AFI TsADEL > ICOUNT 
COMMON/CONSTS/GNOT eP I sPTO2sRADIAN 

COMMON/INPUT1 ZAINCING1 8} sANOC EM) oRE (18) oe TAUWI1B) sR2(18) 5 

1 R318) 9RG(18} @RS(b8) oRO(28) oR7(18) sRAILA) » 

2 ALSE(1LB) pALS2(18) sALAC1B) ALB (28) ALE (18) ,A01 (1894 
3 A02] (18) oA03 C18) 9A04 (19) pA05 618) 
COMMON/INPUT2/THO (14) + TSLVR (14) 

COMMON/ INPUT3/GEOCON (465018) 

COMMON/ INPUT4/NGEO (18) pd PORT (1B) e TAUPL (50018) ¢ALPPL(SO091A) » 


1 AKGYP (50 +38) +> TAYHI (50) sABHD (50) »PMOTHDISO) + 
2 PMOLHD (S50) sXCGHD (50) + TAUN (50) eABN(S0} sPMNIN(SO) ¢ 
s) RMOIN (50) eXCGN(50) eNGEQHD »NGLOMN 


COMMON/ INPUTDZAKRH, AKR Ys RBFLAG 
COMMON, INPUTEZAKG (5) sAKU (5) ¢AKR (39) sAKSLOT (2) ¢ NAKRa TIMAKR (25) 5 

1 TALAKR (25) »NAKEND 
COMMONS INPUTF /WPH4PHST {70} s TIMEPH (70) sNAKRSTs TAUAKR (30) e 

1 AKRTAU (30) sNTAUTOsPCTAK 
COMMON/ INPUTG/CS7 AR eGAMA sR eo NCSTR ePRESS (203 sCSTR (20) eGAMAG(20)+ 

i AMWG (20) » TCOMB (20) »NCSCOE 
COMMON/ LINPUTH/AINCPL oe YCHINP + VCNINP- 

COMMON/ ENPUTI SAN2 e CMe DE ITs ANN 
COMHMON/ INPUFK /NCM¢ TBLC4(50) e TEMECM(50) eo TIMAXeCKDUMP (80) sNPAe 

t TIMEPA (50) 6 TBLPA(50) 
COMMON/INPUTM/STFLAGsSTOYST DEL FST DEL TSSsDELTTO 
COMMON/INPUTO/KPLANE sKMOICG 
COMMON/ INPUTU/DELF +PAsPHE sHCOsDELZ sKDUMP ¢ Ze? 

COMMON/INPUTVS VFNOAs VFNOBs VCNINAs VCNINE 
COMMON/WORKAZAINC + ANOIM,REDM, TAUWOMsR2DM pRIDM se RGOMERSDOM,REDM, 

1 R704—¢RBDMpALSIOMsALS20M+s ALADMs ALBDMs ALEDMi AW (5) 
COMMON/WORKRH/RH1 (5) sHH2 1 ACG» HHW 2 VFHO + VCHs ANK (10) 
COMMON/WORKRN/RNE (8) eVENOeVCNSACK (20) 

COMMON/ XKOWORK/X0¢ YO ZO eX2e¥2 9722 0X) oV1 9219439 V 3073s TONGM2ySINTHRe 

1 COSTHR» TANPH] +A0, 80 +CO1D00¢BTAD*SINGM24COSGM2 » 

2 SINGME »COSGM} ,ALTO 
COMMON/DUMYG/TIMCK ] eAKRHLD pPCTABX 
COMMON/DUMYK/PRCRIT eAPORTN 
COMMON/DUMYL/TIMCKe 

* COMMON/DUMYM/CKTIME sNTESTS 
COMMON /OUMYR/ JUMP gNBACK 
COMMON/OUMYW/TAURPL (18) 

COMMON/COMA/DELT sAPHI o WDOTI pANIBOs TIMEW 9UT+ ANLOPS ACCEL» 

] ABCYLePRNT (101615) sAINCH] sAMACHsZCALC (101) 

COMMON/ COMB/ AHH + AJPHN » AJBHN » TAUAO s AUPHED pAJBHED pAJPNOZ ee AJBNOZ* 
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i XBH+ XBNeOTINT 

COMMON/COMG/TAUZ (161) »RBZ(10}) eTAUZTOL101) PRBZTO(1019 »PD(LO1)» 
t TAUWDP (101) sRBoVF pOWDOT SVP 
COMMON/COMH/POPR (2012) oV{1OL) sVFRiIO1) 

COMMON/COMM/ TAUTOZ sRSLVRNV PAX (45) ¢AY (45) oAINCX LE) @ANOX ORFX es TAUWKe 
1 DUMX (17) sAENCY (1) eANOY eRE V9 TAUWY sDUMY (17) oF PP 
COMMON/COMN/TSLYRXs TSLVAY 

COMMON/COMO/THSLY 9 TSLVIM¢ THSLVVs ASLVR PAHO oRFHT pALPX AP Xs 

i RBHI pALPY APY eVSLVR . 
COMMON/COMS/ FPR» AKRADJs J END 

POTD COHR/TAU a, GUNA RE che (AC TASIS RBARINGASEXAPPUULaNTSRN: 
1 RAQsALL s AUPPs AST 

COMMON/PARMB/AP »PMIN»PMAX eWDOTe LIT 8] 1UeWDOTO+NSLOT sNTAGE sNTHE » 
i TAUTOs TOFLAGeNINCPL sBRNOUTe LISsIS1e1S2sNT eSCUR(19¢2) 
COMMON/PARMD/KRASUB sKXRSUBeAJAA CHET t ARN ep AJBHe XBART 
COMMON/PARMF /PHs TIMES AINCWeT sPeDELTAs Us AKGY sPONSDISeAMPN DATO 

1 AMWeAKRST 

COMMON/PARMG/VF Hs AANs VFS VIS sALT » SPHOT 9 SPONDT p VF INT # VEHsABTOT 
COMMON/PAHMI /AOMCYL ¢ATBCYL eALPCYL s AKGYX 4 ARGYY pb VPH a VPN 
COMMON/PARMK/F ¢EP1sPEPO,CFOL s VFWER pW eDEEOsCLOPS,CFOsWGTOTs 

L SWOOTN 

COMMODN/PARMG/AGYP (18) sAF RPL (18) 2 ALPRP(18) 

COMMON/PARMRZABSLOT rRSLOTASRSLOTF sSLIFLG 

COMMON/PARMS/ICHN 

COMMON/PARMZ/ABSLOT + PO 

COMHON/PARMAG/ TOs IFLAG 

CONHUN/PARMAB/ HSUBMG e NSUBMG s NEND » ASE 49ASE8 y SUMDVAySUMDVB 
COMMON/PARMAD/ PMOINA (50) ePMOING (50) sRMOINA (50) ¢RMOINH (50) » 

$ XCGNA (50) eXCGNB (50) eABNA(S0) eABNB{50} 
COMMON/PARMAI/ VFNAs VENA a VCNAsVCNB 

COMMON/PARMAJUS AANA + AANG s AJPNZA s AUPNZ3 ¢AJUNZAs AJ8NZB ¢ XHNA se XBNB 
COMMON/PAKMAK/P LAT + AENTsUL4sPEAs PIB 9AZA p VGA e PMA ye PMAZ e TMAGVGA7 © 
% MDBETA,UIBSALAeMDLB 
COMMON/PARMAL/DWDOTA sOHWDOTB sDWOTAsOWDTHPIBT + ¥1G5M1B 
COMMON/PARMAN/ A18,A2B 

DIMENSION APORT (18) »RHAPL CIA eSVALP (1B) 

EQUIVALENCE (AX{38) eTAUMXA) + CAY (38) 5 TAUMY) 

ceoececceeccceececececcecececccecececceccececececucccccecccececceccececccec 


c INTTIALIZE REFERENCE FRAME A GEOMETRY TABLES, 
ececcccececceccecccceceeccececeeccccecocecccecccececeecccccecccecceccccce 
OO 10 [#1918 


10 APORT{1}=BPORT (1) 


cccecceeccecceeccecececececcceccecccecececcecececcccececcecececccceccocccc 


c INITIALIZE DATA CELLSs 
cccececececccececcecccecececececececectcceccececccoccccececccecceccocece 
20 BIGUN=] ,0E +36 

PH=PH1 

PON=PHT 

TPR=1-0 

AKRHLO=0.0 

PCTABX=1.9 

IF(STFLAG eGTeo De 0) PH=0.S®PHI 

IF t{STFLAGeGT.000} PON=0,5%PHI 

PO=PH 

DTINT=000 
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SUBROUTINE MNCHNG 


P=PR 
DWDT=0,0 . 
AHO=0.0 

IF{NCSTR} 25,25924 

CALL XLIN{PRESS+ FCOMBeNCSTRsPHsTOel} 
CALL ‘XLIN(PRESS +GAMAGs NCSTR+PH,GAMA?+2) 
T=TO 

UT=SORT (TORR#GNOTROAMARZ, /(GAMA+} 60} } 
TIME=0.0 - 


SET OEL+TIME TO EXTHER STEADY=<STATE OR TRANSCIENT VALUE 


DELTSUELTSS 

IF (STFLAG.GT, O65} DELT=JELTST 

Yi=0.0 

TAU=0,0 

AHO = ABHI{1) 

ANOX= ABN1) 

IF ({NSUBNGeEQ.0) GO TO 26 

ANDAX=ABNA (1) 

ANDUX=ABNB C1} 

AANZANOX 

AKH=aHO 

VF HEVFHO 

VFN=VFNO 

IF (NSUBMG.EQ,0) GO 10 27 

VFNASVFNOA 

VFNG=VF NOY 

AANASANOAK 

AANH=ANOBX 

LF (VCHINP 6GT,0¢0)} VCHEVCHINP 

IF (VCNINP*GT, 0-0) VCN=VCNEINP 

OO 28 T=leld 

ALPRP(L)= ALPPL(1eI) 

IF (STFLAG) 35939430 

PH=0,5#PHI 

NIP] = NI #1] 

NIP2=NT+2 

DO 40 I=tesNIP2 

POPR(T)=0.5#PHI 

TAUZ(E)=060 

TAUZTO(1) =060 c 

TAUWDP (3) =0.0 

RBZTOC1)=0.0 

PRNT(ie1)}=0.0 

RBZ (1) s000 A 
OO 4) Y=1918 
TAURPL (1) =020 
PMINEPA 
PMAXS8IGUN 
FPRSPON/PH 
ANLOPS = 0,0 
TEs0 . 
TF CNCM.GTeO) CALL XLIN(TIMECMs TBLCMeNCMy TIME »CMe 3) 
IF (NPASGTeO) “CALL XLIN(TIMEPAs TBLPAINPAr TIME PPA, 30) 
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cccecccececccceccecccccceececeeccccececececeeccececceecceccecceccceccecccece 
c DETERMINE BURN @ISTANCE FOR REFERENCE PLANES B THROUGH J, 
ccoceceeeccecccecccee coececcceccececcececcccccececececeeeccceccecceccecccce 
IF (NSKR.EQ.0} GO TO 60 
CALL XLIN(TIMAKR s TELAKR » NAKR» FIME sAKRADJ + 4) 
60 KPML=KPLANE=1 
NIMLENI =] 
1ts=1 
Ka} ‘ 
70 DO 320 [=2_KPM} 
80 IF{SCURCLESs1) «GE. AINCIN(T)) GO TO 110 . 
IF¢{SCUR(EISs2) «GE. AINCIN(E}) GO TO 310 4 
100 I1S#1IS¢) 
GO TO 80 
110) 0©=—- 00 120 LK yNIM} 
IF C(AINCINGI)@ZCALC(L)) 13061300120 
120) 4 =©CONTINUE 
cecececeeecececceecceccccecececcececececcececcececeecceececececceccecccecec 
Cc ZCALC(K) IS JUST DOWNSTREAM OF AIENC 
ceecccecccceecececeeccceecececlcceccecececececcccecccectececcceececccecc 
130 CONTINUE 
IF (SCURCIISs1) eLEaAINCIN(I)) GO FO 170 
140 IF CAINCIN(T) »GEsZCALC(L}) GO TO 160 


MSL 

LeL-l 

GO TO 250 
160 Male] 

GO fO 250 
cececcececccccceccceecececceccececcececcecccceccceeceeccecccececcccceccecc 
Cc CURRENT REFERENCE IS ON OR DOWNSTREAM OF CURRENT SLOT 
c FORWARD INTERFACE. (1-E. 2EFERENCE PLANE [S IN FHE 
Cc SLOT), GQETERMINE INCREMENT DIVIDING PLANE THAT [5 
c JUST DOWNSTREAM OF SLOT FORWARD INTERFACE}s 


cccecccccecccecetccececccecececeeccececcceccececrecceceeccetccccecccececc 
170 IF (L-1) 200 ,180+180 
t80 IF (SCUR(T1S 91) ~ZCALC(L1 119021902200 


190 L=L-1 
GO TO 170 
200 LeLel . 
eccecececcceccecceccecececceccecceccecccecccecececcecececcocccecccccceccccc 
Cc INCREMENT DIVIDING PLANE L IS JUST GOWNSTREAM OF CURRENT 
C SLUT FORWARD INTERFACE. DETERMINE INCREMENT DIVIDING 
c PLANE THAT 1S JUST UPSTREAM OF SLOT AFT INTERFACE. 
cecccecceccccececcceeccececcececceccceccececcoccececcccecccectecccceeccccc 
M=Lo} ‘ 


210 IF (NI@M) 24002200220 
220 TF (ZCALC UM) @SCUR TIS #2) 23002309240 


230 TH+] 
6O TO 219 : 
240 M=M~] 
ceccececcececceccecccececcecececceeececceccecccceccececccececececececcccc 
c DIVIOING PLANES JUST UVPSTREAM {(L) AND DOWNSTREAM {M) 
c OF THE CURRENT REFERENCE PLANE (1) HAVE BEEN FOUND. 
c OETERMINE MAXIMUM WEG THECKNESS (TAUM) OF INCREMENT 
c DIVIDING PLANES L AND Me 


31160 
31140 
31200 


31220 
31230 
31240 
31250 
31260 


31300 
31310 
31320 


313460 
32360 
31380 
31400 
32420 


31460 
31470 
31480 
31490 
31810 
31530 
31540 
31550 
31560 
31580 
31600 
31610 
31620 
31630 
34640 
31660 
32686 
31690 
31700 
31720 
31740 
31750 
31760 
31770 
317890 
31790 
31819 
31830 
31840 
33850 
31860 


PAGE 246 


v-O0e0UL~9S2G 


Lert 


INDE xX 


160 
161 
102 
163 
164 
1.65 
166 
167 


173 
174 
175 


176 
177 
178 
179. 
180 
181 
182 
183 


144 


18S 
186 
187 


188 
1a9 


190 
193 
192 


SUBROUTINE MNCHNG 


Ccceccececcceccecceccecccccececeecceccceeccecccccecccececceccceecceecccce 
250 TAUMX=GEOCON(36+f~1} 

TAUAY=GEOCON(38s1) 

AINCX(1) SAI NCIN(T=1) 

AINCY(1F=AINCIN(E) 

280 AINCX(1)SAINCY(}) 

TAUMX=T AUMY 

AINCYCLPSAINCIN(T +7) 

TAUMY=GENCON( 386141) 
Ceeccceceecccececccecccceccccceceeccececceecccceccccecceccecececeecccectcccce 
Cc OETERMINE BURN RATE FOR REFERENCE PLANE (1). 
cecceccececcceecececceeeecececccecceccecececececceececeececceececeecacecce 

RBRPL OI) =RBZEL) 

IF (ZCALC(M) NESZCALC(L}} RYURPL IT) =RBZIL) + CAINCIN( ID) -ZCALC (LID 4 

Lo (RAZIM) mRBZ(LI IVS (CZCALC(M) =2CALC(L)) 
320 CONTINUE 

RBRPL (KPLANE) =RAZI(NI) 

RARPL OL) RBZ (1) 
ececetcceeccccececececcecececceecccececececcceccccccececccececececccccce 
c DETERMINE DISTANCE BURNED FOR REFERENCE PLANE {1}. 
ccccccecoececececcceccceccececcecceceececccceiccececcececceccccececceccecec 

QO 321 IT] sKPLANE 

TAURPL (1) STAURPL{T) *RBRPL C1) HDELT 

32) TAURPL OT) saMINE (TAURPL (E) sGEOCON(3681)) 
cecccecccecceccceccecceccceccccecccccccecccccccuccccceccecceccccecececccc 
c SAVE PREVIDUS VALUES OF PERIMITER AND AB (END) 
ccccecccececceccccececceeccecccececcececceceececcceccececcccerececcccecce 

bO 330 T=LeXPLANE 
330 SVALP CT) SALPRPC(I) 
AHO=AHH 
ANOX=AAN 
IF (NSUBNG,EL.0) GO TU 340 
ANOAX=AQNA 
ANOGXSAANB 
340 TAURPL (1) 8TAUZ C1) 


CALL LOOKUP 
Cc 
cceececeeccceecceececeeeeceecccceecececccceccecceceececececececcecececce 


c DETERMINE HEAD END GEOWETRY VALUES. 
eccoceececcececececeecceecceececccecccecceceececcccecercccececeetececccee 
VFHPR=VFH 


VFH=VFHPR~ (AHO*+AHH) #RBZ(1) @DELT/Z. 

VFHSAMAX1 (VF Hs 020) 
ececccceeccceececeeccceeccececccecececcececcceccecceececececececcececcece 
c DETERMINE REFERENCE PLANE GEOMETRY VALUES« 
ecoececceccccececccecccecceececcoececceccceccetcccccccceceecccececececccecece 

00 S20 IPLANE=1sKPLANE 

APORTCIPLANE) = APORT(JPLANE) + CALPRP(IPLANE} +SVALPCIPLANE)} # 

i RARPLCIPLANE) #DELT/2.¢ 

AFRPL (IPLANE) =(2.04P1°RQF (EPLANE) } -APORT (IPLANE} 

520 CONTINUE 

APOR TN=APORT (KPLANE) 
ecececcceccccecceccccccecccceecccecececccocececcecccecceccecccceccceecccece 
¢ DETERMINE NOZZLE END GEOMETRY VALUES, 


316A0 


32050 


32140 
32189 


372 30 


32270 


32350 
32.370 
3PARO 
32390 


32400 


32630 


324560 
32470 


32510 
32550 
32560 
32576 
32800 


32600 


43750 
33770 
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INDEX 


193 
194 
195 
196 
197 
198 
199 
z00 
201 
202 
203 
204 
205 
206 
207 
208 
203 
elo 


211 


22 
213 
24 
245 
216 
217 
218 
219 
220 
22h 


222 
223 
2246 
225 
226 
227 
228 
2e9 
230 
231 
232 
233 
234 


SUBROUTINE MNCHNG 


ceecceceeccecececceececeececoececcceccccoecccccecccccecccecececcecceeecee 
IF (NSUBMG,.GT.0) GSO 10 539 
VFNSVE N= (ANOX*AAN) MRBZINT +1} @DELT 200 
VFNSAMAXE (VFN«O.D) 
Gd TO 540 
530 VFNASVFNA= (ANJAX¢AANA) FRAZINI¢1/ *OELT/200 
VFNB=VFNB«= (ANOBX*AANB) #ABZ (NI 42: *DELT/2.0 
VFNASAMAX] (VFNASD.0) 
VFN@=AMAX1 (VFNB 20.0) 
VFN=VFNA4VFNS 
5460 IF (KDUMP(S5)eEQ.0) GO TO 580 
IF {TIME SLT .CKOUMP(3)) GO To 580 
IF (TIME .GT.CKOUHPI4}) GO TO 545 
GO TO 550 
545 KOUMP{S}=0 ‘ 
60 TO 560 
§50 WRITE (69560) ‘ 
560 FORMAT IH] sS4Xe "INDICATOR DATAtS//) 
WRITE (69570) ANI BOsANLOPS + BRNOUT sCKT IME sCLOPS eI CHNvIEsIFLAG® 
A YD) eTiseTtSs” IPLANEsIStsIS2s JUMP + KPLANE #KRASUB eK XR5UR 0 
B NBACK a NI sNENCPL ¢NSLOT sNTME sSLTFLGeTIMCK] s FIMCK 2, TOFLAG 
S70 FORHATCTCANIGO= %o Fase IXs*ANLOPS= 'sF 4 QU yp 3XetBRNOUTS %eF 20s 3X 
LICKTIMES ty Flee 3XetCLOPS= teF2eO/OICHN= MeTlycXetlE= te tl vcXs 
2YTFLAG= tyl2eeXet LT 1= te l3e2XetLIU= telascre* LIS "el 3s2Xy 
3 CIPLANES tel2y2hetISls tol3eerXetiS3= telas2Xs 
4HJUMPs PeTLecXe*KPLANES Cy P2/tOKRASUBS Mal2s2XeIXXRGUB= Vo T2eeXy 
SINBACK= tyoTbedXetNTe Pe LSyeXePNINCPL= "oles2Xet*nSLOT= "s12s2Xs 
GENTME= te] 3e2X%e"SLTIFLG= MF 3e002Ke*TIMCKI= P oF 7.2e2Xe* TIMCK2= by 
7 FU7.e/*CTOFLAGS %5F7,2) 
580 IF (ICHN»ER,S) RETURN 
IF (KOUMP (71)9720+%720,680 
680 JFUTIME=CKOUMP(1)) 70096907690 
690  KNUMPCL)=L 
KDUMP (2)=1 
KDUMP (3) =) 
700 IF (TEMEWCKDUMP(2)) 72057209710 
710 KDUMY ($)=90 
KDUMP (2950 
KNUMP (3) 59 


* COCCCCCCCCCOCCOCLCCCCCCCCOCCCCCCCCCCECCCCCCOCOCCeCCCCCCCCOCCLCOCCECoCCe cee 


c INIFYALIZE DATA CELLS FOR NEXT FORE HEAD PRESSURE ITERATION. 
COCCCCOCECCCCCCCCCCCCCOECECCCCLOECCCCECCCCCCCCCCELCCCE CCeCeeCCceccecccccececce 
720 © CONTINUE 

U=0.0 

WOOF=0.0 

VP20.0 

AMPN=0.06 

ABCYL=0.0 

AOMCYL=0.0 

AIPCYL=0.0 

AIBCYL=0.0 

AINCW=0 00 

JAUSTAUZ (1) 

RB=RBZ (1) 

TIts} : 


33790 


34290 


34310 
34320 
34330 


34350 
34360 
34370 
33840 
33860 
33Aa0 
34380 
34390 
34400 
34410, 
34420 
34430 
34440 
34450 
34460 
34470 
34440 
34490 
24500 
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INDEX 


23 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
aal 
248 
249 
250 
251 
252 
253 


254 
255 
250, 
257 
2548 
259 
260 
261 
262 
263 
264 
26> 
266 
267 
268 
269 
270 
271 
2T2 
273 
274% 
275 
276 
277 


278 
279 
280 
28) 
282 
263 
284 
285 
286 
287 


730 


740 


750 
760 


770 


780 
790 
600 


B10 
820 
830 


840 


B50 


SUBROUTINE MNCHNG 
TIJ=1 
I1s=1 
IF(IE.GFo1IGO TO 1100 
ANLOPS#ANLOPS+¢], 
IF (ANLOPSeLTe2t.)GO TO 730 
lk=2 
60 TO 1200 
VFEVFH 
AP=APORT {1} 
APHI=AP 
POC LSPA 
P=PH 
IF (NCSTR) 75057504740 
CALL XL EN (PRESS CSTReNCSIRFPONICSTAR®S) 
CALL XLIN(PRESS» COMB sNCSTR» PH, 1046) 
CALL ALIN(PRESS +GAMAGsNCSTR »PH«GAMA? 7) 
CALL XLIN(PRESS sAMWGeNCSTRgPHeAMW ed) 
R=1565.864/7AYw 


IF i CSCOEF (1) aNE e000) CSTAR=CSCOEF (1) +CSCOEF (2)4 


5 PON+ CSCOEF (3) *PONt#2 

f=10 

DELTASP/ (12 ¢#RET} 

IF (TAUM (1) =TAUTO=TAUZ(1)) 76057605770 
JOFLAG=1.0 

TENDs1 

CALL RESUS 

TENU=O ra 
IF (ICHN.EW.SIGO TO S50 

IF (STOYST=1.0)8007780s780 

IF (AKRH} 800 »800, /90 

RR=AKRH#P HH AKR (37) 

TOFLAG=0,9 

RBZIL SRY 

¥PHSVCH+YFH 

DWOOTSRB#OELF#AHH 

IF (TIME eb T+ OFLT «AND. STFLAG «GT. 060)0ND00T=0.0 
IF (TIME eh Te DELT «ANDs. STFLAG .GTe 020) DNOT=0.0 
LF (PCTAB) A20.620,810 

OWDOT=DWOOT#PCTAD 

IF (STFLAG) 8.100830 5840 

CALL ATBSUBIIE) 

IF CICHN.EQ,.5)G0 TO SSO 

60 TO ASD 

OWDT=DELTA# (VFHPR=VFH) YZERODV(DELT) ¢VPH* (PD 41) -PDPR(1)) # 
XZERODV (12.eRHTHDELT) 

IF (TIME .LY. OELTIOWOT=0.0 

WOOTD=DPwOUT-DwDT 

WDOTD=AMAX] (060 enDOTD) 

WDOT=wDOTD 

P=PD(1) 

IE=0 

POQ=PH 

DO 860 I=1leloa 

U=WDOT#R*T#ZEROOV (PH AP) 

AMACH=U* ZERODV (SORT (GNOT#R# T¥GAMA} ) 


34520 
345 30 
34540 
34550 
34560 
345970 
34580 
34590 


34620 
34630 
34640 
34650 


34670 
346480 


36700 


316720 
34730 
34740 
34750 
34760 
34770 
34786 
34790 


34800 
34810 
46820 
34830 
34860 
34850 
34860 
34870 


34850 
34890 
34900 
349106 
34920 
34930 
34940 
34950 
34960 
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288 
289 
290 
291 
age 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
3¢3 
304 
305 
306 
307 
308 
309 
310 


311 
312 
333 
at 
Bb 
316 
317 
48 
319 
320 
321 
322 
323 
324 
325 
326 
3a? 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
333 
339 


860 
870 


4 


SUBROUTINE MNCHN4S 


TSTO*ZEROVV (1a + (GAMA~14) PAMACHHH2 6/20) 
P=P04(THZEROOV{TO)) 4 *(GAMAZ (GAMAW1¢}) 
UTMP=wDOT#R#T*#ZERODV (PAAP) 

ERRORS (U=UTMP) #ZEROOV (UTP) 

IF (ABS CERROR} ~6001) 87008709860 


CONTINUE 

POCIII)=P 2 
PO=PH 

PRNT (29110 ? 
PRNT[te2]=P 


PRNT{1e3)5T 

PRNT (104) =U 

PRNT (145) =AMACH 
PRNT (166) S5ALPRP(1) 
PRNT (167) =APORT {1} 
PRNT (t69] =wDOT 

PRNT (910) s0WD0T 
PRNT (1¢21)=0w0T 
PRNT (1012) =R0 

PRNT (1013) aTAUZ{(1) 
PRNT (2914) 2RBZTOCL) 
PRNT (1915) =TAUZTO(1) 
IF (1E)5R09R75 0580 


cecececcccecceecccceccccceeccececccecececcccccccceceecceeccececceeccccec ccc 


c 


IN}TIALIZE X AND Y REFERENCE FRAME DATA CELLS 


cececcccecccccccccecccececceecccececcceeccecccceccecceccccceccecccccecercce 


ATS 


880 


gBS 


950 
980 


990 
1000 


KPM1=KPLANE@=) 

DO 950 I3)eKP*] 

PQ BBO Jzis2l 
K=(J°1) "1B +] 
AINCK{ J) SAINCINGR) 
AINCY (JI SAINCIN(A4]) 
DO BBS J=1—45 

AX (J) =GEOCON(Je]) 

AY (JP =GEOCON{ Je Tel) 
APX SAPORT(E) 

AKGYX = RGYP(T) 

ALPX = ALPRP(I} 

APY = APORF(1+]) 
AKGYY= RGYPCI+1) 
ALPY = ALPRP(1+1) 
TSLYRX=TSLVRGI) 
TSLYRY= TSLYR(I4+)} 
CALL SEGSUBI{IE) 

IF (ICHN.EQ,5) GO TO 550 
IF (IE) 9806950.580 
CONTINUE 

VF SVE eVFN=VSLVR 
ABTOTSAHHF*ABCYL #44N 
AP=APORTN 

APHI=aP 

IF (TAGWOP (NI) ~TAUTO=TAUZ (NI) } 99099041000 
TOFLAG=1,0 

TEND = 2 

CALL KBSUB 


34970 
34980 
34990 
35000 
35016 
36020 
35030 
35040 
35050 
35060 
35070 
35080 
35090 


35320 
35130 
35140 
35150 
35160 
35170 
35180 


3s210 


35760 


37260 
37270 
372R0 
37290 
37300 
37310 
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340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
26 
397 


358 
359 
360 
301 

362 
a63 
364 
365 
366 
367 
368 
369 
378 
371 

372 
373 
374 
375 
3/6 
377 
378 
379 
380 
381 
362 
383 
384 
385 
386 
387 
388 
Bao 
390 
391 
392 
393 


1010 
1020 
1030 


1046 
1050 


1055 


1060 


SUBROUTINE MNCHNG 


IF {ICHNSEG.SIGO TO 550 
IFASTDYST +100) 10307101 002010 
IF {AKRN) 103051030+1020 
RB=AKRN#PFHAKR (37) 
TOFLAG=0.0 

ROZ(NI O61) =RB 

RBZTO(NT*1) RG 
DWOOTSAA: #DELF eR 

IF (PCTAB) 105051050,10460 
DWOUT=DWwDOT#PCTAB 

IFCTIME LT, DELFT .AND, STFLAG oGT, 0.0) DWDOT=0.0 
IIQ=1IT+} 

IF (NSUBMG+LE.O) GO TO 1055 
TOPT=3 

IF(STOYST»EQs1,0 eAND. STFLAGEUe0.0) [OPT&2 
CALL NSCE (LOFT) 

IE=0 ‘i 

IF (ICHN.EQ.5) GO TO S56 
REGION OUTPUT DATA 
PRNTC(IET¢1] 01) =P18T 
PRNT(Lil+t]s2) =P35 

PRAT CIE141,3) 5716 

PRNTCT 141-4) su)8 

PRNT (I 7141-5) =M18 
PRNTCIIE41,7)=a18 
PRNTCIIIT41,9) sOwDOTH-dwOTe 
PRAT CIL141,10) =DwdOTe 
PRNTCIL141 913) sOwOTB 
PRNT(TT1T41e12) sRBZINT+2) 
PRNTCIT2Y41.213) sTAUZ (NI +2} 
PRNT CII ¢1914) =RBZTO(NT +2) 
PRAT CYT eli d=OWwOTA 

TITS=tli-] 

GO TO 1060 

CALL AIBSTC(IE) 

IFC ICHN.E@.5)60 TO SSO 
PsPDO(ITI) 

IIIS] 11#) 

PO=P# (TO/T) ## (GAMA/(GAYUA@=1.)) 
PONSPO 

VPN=VCNeVFN 

PRNT(I 114151) =PON 
PRNT(1IY41s2) =P 

PRNT(TI1 4153) =T : 
PRNF(ITI4+1,4) eu 

PRNT CILI +195) =AMACH 

PRNT CITI +} 97) SAP 

PRNT (CITI +199) 2wOOT 

PRNT (TT 1+lel0}=0wDOT 


+ PRNECIYI*le12)5RB 


1070 


PRAT (Ii Telyl3) =TAUZCIII+1) 

PRNT (ITI +1914) =RBZTOCITI¢1} 

IF (NCSTR) 1080+106051070 

TOTEMP=TO 

CALL XLIN(PRESSsCSTReNCSTRePONsCSTAR SD) 


37330 
37340 
37350 
37360 
37370 
37380 
37390 
37400 
37410 
37420 


37430 


37450 
37460 
37410 
37490 
37500 
37510 
37520 
37530 
37540 
37550 
37560 
37870 
37580 
37590 
37600 
37610 
37620 
37630 
37640 
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394 
3958 
396 
397 
398 


399 
400 
401 
£02 
403 
404 
405 
406 
407 
4048 
409 
410 


41l 


412 
413 
ala 
als 
416 
4l? 


418 
419 
420 
42) 
422 
423 
424 
4258 
426 


a2et 


428 
429 
440 
43) 
432 
433 
434 
435 
436 
AST 
438 
439 
440 


44h 


1080 
1090 


1100 
1120 
1320 


1260 


1270 
Cc 


l272 


1273 FORMAT CHL THE RECONSTRUCTION HAS DIVERGED st TIMES16F10. G/t APETSts 


c 
l2i4 


1276 


1278 


t2ao 
1290 


1300 


SUBROUTINE MNCHNS 


CALL XLIN(PRESS+TCOMB re NCSTRePHsT0e2 0} 
CALL XLIN (PRESS »GAMAGeNCSTR+PH;GAMAe 11> 
CALL XLIN(PRESS »AMWGsNCSTR PH AMWe 12) 
R=1545,864/AMwW 


IF{ CSCOEF(1).NE.0.0) CSTARSCSCOEF (1) *CSCOEF (2) 8 
& PON+ CSCOEF (3) #FONHH2 

TO=TOTEMP 

IF (1E)580 210909530 


CALL SETPH(IE) , 

IF CICHN.EG.5)G0 TO S50 

IF ¢1E)1100,2100+580 

IF ¢TIME@DELT}I2Z70e1270¢1119 

IF (BRNOUT=2.)112091270%1270 
PRCRIT2(24/(GAMAS] 4) } OHI GAMAS (GAMA=1,.) } 

LF (NAKRST}127091270+1260 

TAUTOSTAUZ(NINCPL) 

TAUTO = AMENI{TAUTOs TAUACRINAKRST) } 

EF (NTAUTO.GT.0} TAUTOSO.0 

START AKRST PROJECTION ROUTENE FOR RECONSTRUCTION 
IF (NRECON-LTo? eOR. TIVE.LT< (0.5*T1MAX)} GO TO 1278 
INTTIALYZE FIRST & POENTS INTO TABLE 

ICOUNT = ECOUNT + ] 

IF (ECOUNT.GT.4&) GO TO 1272 

AFETCCICOUNT?= AKRST 

TAUSAV{(ECOUNT)= TAUZ(1) 

GO FO 1278 

IF (AFIT.NE.O.0}) GO TO 1278 

CURVE FIT AND PROJECT THE DATA 

CALL LESSUCTAUSAVSAFITCs4eCAF IT} 

APROJ = COE ECT TRAD LV te 1 SU AUE EE SEARED CYS TAMER) ee 
ADEL = (AKRST*APROJS} /AKRST 

CALL VARI CAKRST pASSIGs4F ITC 4) 

IF (A3SIG.GTeASS(ANEL}) GO TA 1274 

IF (ADELsLT.0.0) AFIT=~1.0 

IF (ADEL2G7T.G.0) AFIT= 1.0 

WRETE (691273) TIME SAFE Ts TAUZ(1) sAKRST 


BFLO6O/E TAUC EIS" eF 10,6749 AKRSTStoF1lO.6s1H1) ° 
IF (AFIF.NE.O.0) GO TO 1278 
UPDATE TABLES FOR NEXT PASS 
DO 1276 [5204 
AFITECI =) P=AFITCC(I) 
TAUSAV CIT = lL) STAUSAV(T) 
CONTINUE 
AFITC(G}=AKRST 
TAUSAV (4) =TFAUZ (1) 

CALL TeMOQUT (IE) 

IF {NAKRST) £12905129091280 
CALL RBSTSB 

CONTINUE 

IF (1LE+GTel) ICHNES 

IF (I CHN.EO.5)60 TO 550 . 

IF CTIMAX) 13102231051300 ; 

CHECK FOR CASE TERMENATION BY MAXe TIME OR MINe HEADWEND PRESS. 
CONTINUE 


« 


37660 
37670 
37680 
37490 
37700 
37710 
37730 
37790 
3A010 
38020 


38060 
38070 
38080 
38090 
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1320 CONTINUE 
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1320 IF {PH=PA/SPRCRIT) 146041330¢)}330 
1330 CONTINUE 
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1340 N=NI+*2 
c STORE PREVIOUS-TIME VALUES FOR CONTINUED START OR YAILOFF TRANCIEN 
¢  1T Cale, 
DO 1350 I=19N a 
VPR(T) =V (1) 
1350 = PDPR(1}=PUCI} 
1360 CONTINUE 
IF (TIME «Lb eT [MEPH(NPH) ,OR.NRECON.GT.0) GO TO 1370 


of} TO £360 
aS ESTIMATE BURN RATE COEFFICIENT IF HEAD“ENUL PRESS. SCHEDULE WAS GIV 
c LEN 


2370) CALL RBSTSB 
IF (ICHN.6EQ.5)G0 TO 550 
1380 CONTINUE 
‘ IF (NPH.GT.0 OR. NRECON.5T.9) GN TO 50 
1390 CONTINUE 
IF (STFLAG) 5055051400 
3400 IF (TIME-DELTIIGI 05241001420 
1410 PH=PHI 
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c “CHECK FOR STEADY*STATE PRE-AURNOUT==CONTINUE SOLJTION 
1430 LF ¢{dRNOUT<1060) 505144091440 
c CHECK FOR START-TRANS.s PQE-BURNOUF<<CONTINUE SOLUTION 
$440 TF ¢TIME~1¢0E-6)509145051450 
c CHECK FOK TERMINATION OF TALL-OFF 
1450) IF (PON@PA) 146091660950 
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c INTERNAL BALLISTIC SOLUTION IS COMPLETED FoR 

THIS CASE CALL CHAIN le 
¢ scoeceneecccececcecceceecececcecececceceececceccecccecceccecececcecccee 
1470 RETURN 

END 
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fu ACGB= { ARCL ARTO} *# (ROE ] © TAU) #4272, 
GO RCGU= {XCGA*ACGA-XCGB#ACG3) 7 LACGAWACGH) 
L00 ZCG=ZRO*RCGO#SIN( CARCL+ANCO) /20) 
L1Q YCG=VROeRCGO#COS ( (ARC 1 + ARCO) 726) 

leo AMT L=2Z06499% ( THR] + THRO) #DELF #AANN4 CACGA~ACGB) /GNOT 

WI=CACGAWACGOd) & (THRE + TARD) PVELFHAANNYZCG 

Wlavt-wt 

whHoaT 

AJAHOR0 20 

AJPHO=050 

XHARI He (WIOXdAR IT H~ WA YCG) JWT 

XBTHRXBARLH 
130 AMT J= (ACOA~ ACGH) #AANN*DELFOZCGE (THRI + THRO) # (VOG¢HCO) See 

A/GNUT+AMTIZ2, 

RETURN P 

END 
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10* 
hi® 
12* 
13° 
148 
156 
16% 
17% 
184 
194 
208 
214 
2oe 
aco 
6C0 
6CO 
760 
BCO 
5CO 
SCO 
7c0 
7co 
8CO 
700 
5C0 
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INDEX 
INPUTA - 34 
INPUTU = 4% 
xOUMP - 4c0 
MTISUB # i+ 
PA ” 4c0 
PARMH = Be 
Paka - gt 
PHI - 4CO 
PI - 2co 
PJQe - 2c0 
RA - 7CoO 
HKADIAN + eco 
RAO ~ 7cO 
RC - - 7CO 
RCGO “ 6C0 
RETURN o 30% 
HIG - 3CO 
KOE 1 - sco 
ROPEG - a8CU 
RXX - 8CO 
SIN - 12 
SORT - 10 
SUMDV - 7Cu 
TAL “ 7co 
FAUWET = 6CO 
THRI - 8c) 
THRU - acu 
wl - 7CO0 
wT - co 
47H - 9Cc0 
XBARIH = 7C0 
AQTH - 5c0 
XCOA - 6co 
XC68 ~ 6co 
XR - 7¢0 
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Ph - 8CO 
é2RO - 6CO0 
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SUBROUTINE NSCE (IOPT) 

IMPLICIT REAL (A=HeO=Z 9M) 

1OPT=) CORRECT FOR CONTOUR EFFECTS AND RETURN 
IOPT=2 STEADY STATE CALCULATIONS AND RETURN 
1QPT=3 NON STEADY STATE CALCULATIONS ANU RETURN 

COMMON/CONSTS/GNOT oP I sPI02,RADI AN 
COMMONZ INPUTG/NGEO (18) gAPORT (18) oe TAUPL (50018) eAL PPL (50918) 9 

1 AKGYP (50018) ¢TAUHO (50) pABHD (50) pPMUITHD(50) » 

2 RKO IHD (50} eXCGHD (50) 6 TAUN (50) #AGN (50) #PADINGSO) + 

3 RMOIN(50) »XCGN(S0} »NGEOHD eNGEOMN 
COMMON/ INPUTG/CSTAR 9 GAMA #ReNCSTRePRESS (20) sCST2( 20) ¢GAMAG (20) « 
L- AMWG (20) pe TCOMB (20) eNCSCOE 
COMMON/SINPUTIZAN2 sCMe 0k es JT oe ANN 
COMMON/ INPUTO/K PLANE ¢KYOTCG 
COMMON/ INPUFU/DELF «PAs PHI sHCO+DELZ eKDUMP (72) 
COMMON/COMA/DELT sAPHE ewDITK sANT SOs TIMEW UT pANLOPS + ACCEL » 

1 ASCYL »PRNT (101915) pAINCHI sAMACHy ZCALC (LOY! 
COMMON/COMGZ TAUZ (101) eRBZ (LON) oe TAUZTOCION? eRUZTOCLO) +POCEOL) » 

1 TAUWDP (£02) 228, VF sOWDUT» VP 
COMHON/PARMBZAP pPMINe PHAXeWDOTs LLIsTISeWOOTDsNSLOT eNTAWE sNTME ¢ 

V TAUTO 9 TOFLASeNINCPL eBRNOUT pTiSeISteTS2eN1eSCURI1He2) 
COMMON/PARMF /PHe TIME sAINCWe TsP DELTA Ue AKGY ¢PONs SI SeAMPNeAT >» 

1 AMwWeAKRST 
COMMON/PAHMS/ICHY 
COMMON/PARMZ/ABSLOT + PO 
CUMMON/PARMAG/TOeIFLAG 
COMMON/PARMAG/ TXSUB (20) + TRGUB (20) »NPSUB 
COMMON/PARMAH/ VNUZSBe THETEX sSTRATC eNCONT 
COMMON/PARMAI/ VENA VFNB + VCNAs VCNB 
COMMON/PARMAJ/S AANA s AANA AJPNZ As AJPNZB ee AJBNZAGA JANZH4 XRNAy XBNB 
COMMON/PARMAK/P LAT cAENTs JIAPPLASP 1c A2As VAG PMA OMAZ« FMAOVGAZ 4 

$ MDBE TAU sALA MOLE 
COMMON/PARMAL /OWDOTAsDWOOTHeOWDTAeDWOTH »PIBTsTI]H»M1B 

COMMON/PARMANS ALB,A28 
COMMON/OUMYD/T] 4P ,UTMP 
COMMON/OUMYX/ VGB2Z+PMB2+¥GHyTIMEZsPMBe TPASS 
NAMELISTS USED FOR DEBUG PRINT 
NAMELEST/NPL SZ TTP] BeP2dT sRAIBsRB2aeDWDOT SUTMPs TT MPePTMPyRHO1Ns 

d RHOTHP SAR SATS AENT ALA AA TO, GAMA PN DT PL 
NAMELLST/NPOS/ LTP2BeRALASRB2AsDWDOT MOBETA+MBETASTHETAsCAETAs 

& YWEArPBETAsPUN 

NAMELIST/NP34/ | TPIR CLs 41s TLAG+PLBG + VGASVGAZ ¥VGBeVGB7 «PMA SPMAT, 

% PMB sPMEZ PRB ByPZHTeDWOOT > IMB sQWOT eMD Heise UMB PUR TEMA, 

b ANAT SAENT sALASAZA TO yg Re GAMA SDT PI a VCNAs VCNB oe VENA CVFNB ee VNOZSB 
NAMELIST/NPGB/ITTIB PULA» TOsGAHAeR se T1B + T1BGs TEME 
NAMELIST/NPSB/I1IP2RsRB]AsPLAsP1B y+ RBZA rDWOOT s TMA. YDBETASDWOTAs 

& MBETAsTBETAsCBETA,UBETASUMAs PRE TAS PMA , PMAZ 


GQ TO (1091005100) »10PT 

CORRECT FOR CONTOUR EFFECTS 

IF (THETEXSEU.000 WAND. SIRATC.EQ.0.0) GO 10 35 
IF (THETEX2GTe0.0 «AND, SIRATC.GT.0.0) GO FO 15 
TF (THETEX6GT.0,0) AN@={AN2+THETEX) /2.0 

IF (SIRATC*+LE.0.0) GO TO 1) 

AN2R=PIRAN2Z/180¢ 


27A 
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6L2-£ 


INOEX 


36 
37 
34 
39 
40 
41 


42 
4&3 


44 
4b 
46 
a7 
4&6 
49 
bo 
bl 
ae 
53 
54 
Sb 
So 
of 
58 
sy 
od 
61 
62 
63 
h4 
45 
66 
67 
648 


69 
7U 
7 
72 
#3 
14 
7S 
76 
7? 


79 
80 
gl 


83 
B4 


86 


il 


1s 
16 


100 


105 
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AN2R=ACOS(SIRATC® (COS (AN@R) 01.60) =1.0) ° 
AN2 =(180.8AN2R) /PT 

CONTINUE 

RETURN 

WRITE (6916) THETEXsSIRATC 

FORMAT CYLERROR IN DATA [INPUT TO NSCey IOPT=15s" 
& SXe*STRATC=" +t 15,4) 

69 TO 9ooU 

STEADY STATE CALCULATIONS 

CONT TINUE 

INEFTIALIZATION 

IF CTIME.GT20.0) GO TO 105 
AT=P]#D7#92/4,0 

PIBSPA 

bwOuTu=0.0 

DADTASO.0 

DwO fd=0.0 

PlnTsPa 

T1nsT 

41H=0,.0 

TIMEZ=0,0 

PMA=PA 

PMR=PA 

VGASVCNARVFINA 

VGHSVCNB=VFNB<VNOZSt 

TlaatT 

UlARU 

PLaTRPa 

P1ASP 

ITPld8=0 

LTP2xn=0 

IvT1B=0 

AENTSPI*#TRSUBE]) F442 

ARZAENT/AT 

ALA = APORT(KPLANE} 

AZAZALB4AENT . : 
PRELIMINARY CALCULATIONS FOR REGION B 
IF (NCSTR.LE.O} GO TO 1)0 

CALL XLIN(PRESS + TCOMAsNCSTIRePLATsTOa3l? 
CALL XLIN(PRESS sGAMAG«NCSTRaPLAT eGamAe 32) 
CALL XLIN(PRESSeAMWG oNCSTRsPLAT »AMWs 33) 
R=}545.864/4MH 

P2BT=P1AT 

RHOIB = P29T/(12.*R*T0) 

P=P2aT 

CALL RHSUH 

DWDOT=RB#AANBRDELF 

ULB = «DwOOT/(}2.*RHO1S#418) 

IF (TOPT.EU.4I) GO TO 190 

UTMP=U18 . 
PLB=P2BT~.S#RHOLBHULB SH? 

PTMP=P]B 

RHOTMP=RHO1B 

IF (ULYSGE 20.0) GO TO 120 
RHOTMP=-DWOOT/ (12. 9UTMP#A18) 


THETEX= 49 F 15,86 


PAGF 279 


PrUZUG be 9526 


O82-E 


INOUE X 


a7 
88: 
89 
90 
91 
92 
93 
"94 
9S 
96 
97 
98 
99 
100 
101 


Cree 
120 


130 


SUBROUTINE NSCE (TORT) 


ITERATION LOOP 

P=PZBT 

CALL RBSUB 

RB2B=R8 

P=PTMP 

CALL RBSUB 

RB}8 =RB 

IF{NCSTReLE 0) GO TO 130 

CALL XLIN (PRESS pTCOMBsNCSTRsPIMP,T0934) 
CALL XLIN (PRESS pSAMAGeNCSTR 9 PTMP GAMA » 35) 
CALL XLIN(PRESSSAMWG »NCSTRYPTMP » AMWs 36) 
R=1545,664/AMe 

DWOOTs(RB1B4+RB23)/2_ # AANG*DELF 

RAZ(NT +2) = (RBIB+RB2B) 42.0 

D¥DUTB = vwDOT 

RBZTO (NI *2) =RAZ(NJ +2) 

UTMP= ~DOWDOT/ (125*RHOTMP#ALA) 

TTMP= TO~(GAMA+1 oO) SUTMPHEZ/ (2. &GNOTHREGANA) 


» PIMPS P2BT + &@.*OWDOTSUT HP? (GNOT* (ALB +AZ8) ) 


3600 


140 


Caos 
150 


RHOLB=PTMP/(12.#RY TIMP) 

TEMP = RHOTMP-RHO1H 

WRITE (6eNP18) 

IF (ABS CTEMP)/RHOTMP .LE, 20002) GU TU 140 
RHOTMP = RHOLS = 

ITPlH = ITPIB + } 

If (LTPLBsLEs21} GO TO 120 

WRITE 1691000) PTMPyRHO)] BsRHOTMP 

FORMATCR $430 (9%t),/0 88% ERROR [N NSCE STEADY STATE CALCULATION= 
SREGION B - PRESSURE ITERATION FAILEUt/9 PTMPH=EGFE0.493X,*RHOOHts 
SLO eB + 3IXs*RHOTMP=t eFIO,4/2 by BCE aR) 

GO TG 9000 

PL=PTMA 

Tia@sTTHP 

U18=UTHP ‘ 
MIS=SORT ((204(TO-TIA))/ 1 (GAMA~306} #T1B)) 
MD1e=OWOOT 

PLOT=PEBO (1.4 (GAMAW~1,)/2, ANI 982) #4 (GAMA (GAMA~1,0)) 
SECTION A CALCULATIONS ; 
P=P)A 

CALL RHSUB 

RBLASRB 

P=P1B 

CALL RASUB 

RBZA=RG F 

PHDOTS> (RBLA+RB2Ad/2_ * AANA*DELF 

RBZINT ©] p= (RBIA*RB2A) /2.0 

DNDOTA = DwooT 

RBZTOCNE41]) SRBZ(NI41L) 

MOBEfA= wDOT + DWOOT + MOIRA 
IF(NCSTAR.LEO! GO TO 160 

CALL XLIN(PRESS+ TCOMMSNCSTRePlAs T0037) 
CALL XLIN(PRESS*¢GAMAGeNCSTR+P1AsGAMAe 33) 
CALL XALIN{PRESSeAMWG sVCSTRePLAtAMWS39) 
R315465.864/AMH 

TMA= 1.0 S 
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« 
x 


137 CALL SUBSON (ICHOKEsI0OPT) ai 
L368 IF {I CHOKEsEQ,0) GO TO 170 me od 
139 160 CALL MACH(AR»+ GAMA yMBET A) eit as 
140 JRETA = TO/{1Le*(GAMAW] eo) /2e #MBETAH HC) he 
141 ‘CHETA = SQRT(SNOT#GAMACHE THETA) ig tee 
142 UBETA = CBHETAPMBETA ee 
143 PHETA = (1e/AENT) #0 (bo /GNOT) ® (WDOT*URNDBETA*UHETASMDIBOULS) ¢ 2% 
& PLA*ATAsP1d%A1B & (PLAS219)/2. *. (AZAATA)} ae 
1446 PON SPBETA#(1a4(GAMA=1Le) /2e*MHETA® #2) BO GAMAS (GAMAW]1 »)) ied us 
ce#e CHECK FOR CONVERGENCE wy 
c WRITE (6+NP28) et 
1465 270 IF (ABS{PON-P13T) /P18T.LE.0.G00)1) 60 TO 30U ss 
146 ITP) H=0 : 
147 IF{1TP28,G6T.0) GO TO 180 
148 P2ZOLD=P2bT 
149 IF{PON,LT.PIBT ) PAdT=2929T#0.99 
Su IF (PON.GT.PIBT } P2HT=P23T#1.0) 
lb} PRABO=P]BT/PON 
1S2 TTP2d=] TP284) 
153 60 TO 120 
154 1H PRASNSP]BT/PON 
15% SLOPE=(P20LD~P287) / (PRABO-PRABNI 
156 BINT = P2YT-SLOPE *PRAHY 
Lb? PRABO=PRAGN 
158 P20LD = P2B) 
459 P28T = SLUPE+SINT 
160 ITP2B = ETR23 + 1 
16) IF({ITP2B.LT«2l)? GO TO 120 
tod WRITE (641020) PTYPePldsPZHTsPHETA 
log LulO FORHAT(# te30te#t)7t ee ERROR IN NSCk STEADY STATE CALCULATIONS 
4, d= REGION A = PRESSURE ITERATION FAILEN'/# PIMPS of 2004s9X%9tPlOsty 
is DELO 4 eBXe (PZBTH FLO Se 3XetPRETAR=H OF 1O64/% te 3(t#t)) 
164 6 TO 9000 
C#e* NON@STEADY STATE CALCULATIONS@PRELIMINAKY 
165 190 IF (TEME.EQ.0.0) RETURN 
166 CIBSSOQRT (GAMAHGNOTHRETO) 
167 M1B=AaS (yiB/C1B8) 
t64 TIBGSTO/ (1.6% (GAMA~14) *413942/2.0) 
169 PIBGE1Z, #RHOLYRRET ERG 
170 TFCTIME.EQ.TI4MEZ) GO To 19S 
171 TIMEZ=TIME 
172 IPASS=0 
174 195 IPASS=IPASS4} 
174 IF (IPASS.GT.1) GO TO 198 
175 VGAZ=VGA 
L76 VGRZ2VGB 
177 PMAZ=PMA 
17a PMBZ=PMmB 
179 198 VGA=VCNA@#VFNA 
1BU VGH=VCNB@VFN3~VNOZSA 


Coat NON=STEADY STATE CALCULATION@-ITERATION LOUP 
Cees REGION 8 ITERATIONS 
18k . 200 P=P1aG 
182 CALL RESUS 
183 RBIS=RB 
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P=P2aT 

CALL RBSUB ~ 
RBZ2BsRB ; 

OWDOTS (RB1A+RAZB) MAANBAOELF /260 

RBZ (NT +2) =(RB1B+RB2ZB) 72.0 : ‘ 
OwOOTB = OwOOT : 
MASS STORAGE TERMS 

PMB2(PIBG ¢ P2HT)/2.0 

TMB=(TIBG ¢ TO}/200 

DWOT=C 1e/CL20#ROTMBYDELT) 1162. *PMB*VGR=PMBEVGB7 —PMAZYVGA) 
OWDFB=DwOT 

MD1B=DWOOT=0WT . 
UIB=*MD1B#R*T1HG/ (P186%A18) 

UMB=U16/200 

TERM] =VGBFUMB# ( PMB@PMBZ) /(126*GNOT#R*TMAHDELT) 

TERM2=PMB¥U 48" (VGB=VGBZ)/ (126 *GNOTHR* TMBMUELT) 

PIBSP2AKT + (2e/ (ALN WACB) ) #{ TERM] + TERMS *UIEEMDIB/ SNOT) 
TEMP=P1B~P10G 

WRITE (6sNP3d} 

IF (ABS (TEMP) /P1LuGeLE.020001) GO TO 230 

IF{LTP18,6T.0} GO TO 210 

P180=P1B6 

PIBC=P18 : 

P1BG=P18640.99 : 

ITPLB=ITPLB+1 

GO TG 200 


210 TTPLB=ITPLBe} 


IF(ITPIB.LE.22) 50 TO 226 
WRITE (661020) PLAsPlLAG,TIAG 


1020 FORMATC! 8,30 (th0),/5 Bee ERROR IN NSCENON*STEADY STATE CALCULAT 


dION-REGION Bo = PRESSURE ITERATION FAILEDI/# PlSHteF10.4e3XsIP1BG=t 
SeFiDeBeAXot FlAG=b oh LO4G/4 Fe IO CHD) 
GO TO 9000 


220 SLOPE=(P18G-P1&0) /(P1B/P1BG-P 1 BC/P AKO) 


GINFoP I BG*SLOPESPLH/P1YG 
PiBC=P IB 

P180=P 286 
PIBG=SLOPE+H ENT 

GO FO 200 


230 ULS=9MD16"R#T) 657 (P18%413) 


240 TIBETO ~ (GAMA-1.) #ULEH#27 (2. #GNOTHGAMAMR) 


IFINCSTR.LE.0? GO TO 240 

CALL XLIN(PRESSs TCOMBe NCSI RoPI1Bs TU940) 

CALL ALIN (PRESS sGAMAGSNCSTReP 1B eGANAr4]) 

CALL XLIN(PRESS pAMHGeNCSTReP1Bs Amuse 4c} - 
R2)545,864/AMNW 


TEMP=718G6-T1B 
WRITE (@eNPGB) ° 
IF (ABS (TEMP) /F18G.LE.0,001 } GO TO 270 
IF CITT18.GT.0) GO TO 250 
T1BO0=T18G ‘ 
TLUCHTILS 
J18G=7186%0.995 
ITP18=0 
- P1BG=P1B 


AITTVAD Yood WO 
BI @9Vvd TVNIDIYO 


b-uzout-95z¢ 


eG2-e 


INDEX 


234 
235 
236 
2a? 
2338 
239 


249 
24) 
242 
243 
244 
245 
246 
247 
248 
249 


250 
eas! 
Ps2 
253 
254 
235 
256 
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258 
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POU 
26h 
262 
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266 
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269 
270 
27k 
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ITTIBHITTLB+L : . 
6O TO 200 
260 ITTIBsITT1O+1 
IFCITTIB.LE.13) GO TO 260 
WRITF (651030) T1B,TIBG»PIG 
2030 FORMAT(# @€,30¢89t),/8 345 ERROR EIN NSCE NON=SfEaDY STATE CALCULAT 
SION“REGION do = TEMPERATURE LTEXATION FAILENt/§ FLOP oF 10.4 + 3X 
HOTLAGE FLO e Be IXetPlLoHteFIO.G/st Me 30 (ES9)) 
GO TO 9000 
260 SLOPE=(T18G-T1H9) ZC TId/T18G-TIBC/TIRO} 
BINT=71BG-SLOPE ST 18/7136 
TIBGO=SLOPE 48 I NT - 
Pitu=P18 
TIPLo=0 
GO TO 200 
270 MLB=AUS (ULB/SORT (GNUT#GAMA®RET IB) ) 
HHOLBSP 1 E4 (1ee%R#TI1H) 
PIBT=H1B8% (TO/T1d) 8 (GAMAS{GAMA=1.)) 
Cease NON-STEAVY STATE CALCULATIONS FOR REGION 4 
IF(NCSIR.LE.O) SO TO 280 
CALL XILINCPRESSs TCOMH A NCSTR +P] As T0942) 
CALL MLIN{PRESS 9 GAMAG s NCSTR PLA eGAMA 144} 
CALL XLIN(PRESS*AMWG eNCSTRPLArAMW 945) 
R=1545.864/A%H 
280 PMAS(PIA+PIB) £200 
P=PIA 
CALL RHSUd 
RBIA=RhB 
P=PLAR 
CALL RBSUB 
RB2ASRR 
DWDOT= (RHLA+RAGA) Z20 FAQNAPDELF 
R87 (NI41}) = (Red LA+RA2A)/2.0 
DWDUTA = DwDOT 
TMA=(TLA#WDOT+ TOYDWOOT+ FIBER) J (WDOT+DHUOT+MD1 3) 
MDBETA = WOOT+DHDOT+MDLS = VGA* (PMA=PMAZ)/ (12, RE TMASNELT) 
BS <PMAY (VGA=VGALI/ (12.#RYTMASDELT) 
DUNTA = (VGA (PYA=PMAZ) 42M AS (VGARVGAZIIS (12, ¢RUTMAROELT) 
CALL SUBSON (I CHOKE, IOPT) 
IF (ICHOKE.EU.0) GO TO 285 
CALL MACH (AR, GAMAsMHETA) 
THE TA=1070).4 (GAMA=1.0) 424 #HRETAPR A} 
CHE TASSORT (GNOTHGAMASRATAETA) 
UKE TACMBETA®CSETA 
UMA=(ULA+UBETA) 72.0 
PHETA= 1, /AENTSIPLAHAL ASP ER HALBe (PLA+PIH) 


% #{AZA*ATA) 7200 = VGAMUIMA®(PMAW~PHAZ) 
$ 4012. #GNOT#Q 4 TMAGDELT) —PMABUMA 
$ #(VGA$VGAZ) /(E2,2GNOTHRE THOSUELT) 
% “UBETAPMOBETA/GNOT + ULA#WDOT/GNUT 
$ + U]B*MDIB/GNOT) 
PON=PBETA#(1.¢(GAMA™].) 720 #MRETAP92) HO (GAMAS(GAMAW=1.)} 
Cc WRITE (6+NP5B) 
245 IF (ABS{(PON=P1 37) /PIKT.LE.0.0002) GO TO 300 
TTP1A=0 
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293 
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295 
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299 
3uu 
301 
302 
303 
304 
305 
3G 
307 
308 
309 
310 
3il 


290 


1040 


Cer 
300 


9000 


SUBROUTINE NSCE{ITOPT) 


ITTiB=<0 

IF(tTP2B.GT.0) GO TO 290 

P2OLD=P2BT ¥ 

IF (PONSLTsP1BT) P2AT=P28T#0.99 

IF (PON,GT.P1BT} P2RT=PedT#1.01 
PRABO=P1BT /PON 

ITP2B=j[ TP2be1 

GO TO 200 

PRASN=P16T/PON ' 


SLOPE=(P20L0~P2BT} 4 (PRARO=PRARN} . 


bINT=P28T=SLOPE#PAABN 

PRADO=PRABN 

P20LD=PeRF 

P2ATSSLOPE se INT 

ITP28=1TP2de1 

IF(ITP2B.LT.21) GO TO 200 
WRITE{631040) P2BTsP20L0sPHETA+PiBsT1B 


FORMAT(T Ue F0(IOt) gs HEE ERROR IN NSCE NON=STEADY STATE CALCUL AT 
SIUN*REGION A ~ PRESSURE ITERATION FAILEDt/? P23TS¥eF ID ,Ge3Xe 
BIPZVLOH (pF LVS IXeIPBETAS) oF EO eGo IXePPLBSteFLOeGe3Xe'TIH=Fe 


DFLOL4G/st te 30 844)} 
GO FO yo00 


TOTAL CONVENGENCE ACHIEVED = SET VALUES ant RETURN 


CONTINUE 
WOOTSMODSETA 
P=PBETA 
POSPON 
U=UBETA 
T=TGETA 
AMACH = MHFTA 
AP=A2A 
DWOOTSLeu0TA 
RHSRGZ CNT +P) 
RETURN 
ICHN=S 
RETURN 

END 
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SYMBOL eee Po eo ee eee er ee ee er REFERENCES ae eet ee ee eee eee 
10 : 30 31* 
1i : 34 36* 
15 - 31 32 4Q# 
la - 4uUWR ale 
100 - 30 aie 
dus . 44 Sae 
110 - 43 74h 
120 - AS BT? 110 153 l6l 
130 ” 93 OHH 
£40 - in7 Lp4e 
150 - 20% 
160 - 131 $346 
170 = 138 146% 
180 - 147 1s4# 
190 - 80 169 
195 - 170 L7a* 
198 - 174 179# 
200 - ifi¢e 207 218 235 246 286 294 
210 - 202 é2oa* 
220 - 209 2b ae 
2340 - 20) 219% 
240 - 220 2254 
eso - 226 236% 
260 - 237 24a) 
270 - 227 24q7# 
2au - 250 25Se 
285 - 269 277te 
296 - 280 2are 
300 - 1465 earl agua 
1000 = ltlwer 113% 
lore - to2uR 163% 
lo2a - 2104R ale 
1039 - 2384R 2394 
1040 ~ 295wR = 296# y 
9000 = 42 VW13 164 212 240 297 S004 
AANA - 19C0 126 262 ‘ 
AAND - 19C0 74 96 187 
ABCYL - 9c0 
ABHD - 4c0 
ABN - 4co 
AHS “ 107 1465 167 20) 227 24? ar 
aBSLOT = 14c0 
ACCEL - 9c0 
THE VARIAHLE= aCOS “IS USED BEFORE IT- IS OEFINEN 
acos - 3b 
AEN] “ 20c0 25NM 27NM 65= $6 68 144 275 
AINCHI = gco 
AINCW - reco 
AJBNZA Y9C0 © . 
AJUNZB = 19C0 
AJPNZA = 19¢0 
AJPNZB = 18Co 
AKGY -  _ eco 


beuz0Gt-99e0 


SUC-E 


eee 


INOQExX 


AKGYP 
AKRST 
ALPPL 
AMACH 
AMPN 
AMW 
AMWG 
ANIBO 
ANLOPS 
ANN 
Ane 
AN2R 
AP 
APH 
APORT 
AR 

Ay 
ALA 
Alt 
A2A 
A28 
SINT 
SRNOUT 
CHETA 
ca 
COMA 
CONG 
CONSTS 
cos 
cSTar 
CSTR 
Clk 
ve 
vELF 
vELT 
DELTA 


“UELZ 


uls 
ot 
OUMYD 
UUMYX 
OwD0T 


UWDOTA 
OwOOTB 
OwDT 
OwDTA 
DWOTB 
GAMA 


GAMAG 
GNOT 
HCO 
ICHN 
ECHOKE 
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4co 
12c0 
4C0 
9c0 
22C0 
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NP2u - 26NM 
NP 3 - 27NM 
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NTABE ~ 11¢0 
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PH 
PHI 
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P102 
PMA 
PMAX 
PMAZ 
PMB 
PMB2 
PMIN 
PMOTHD 
PMOIN 
PO 
PON 


PRAEN 
PRAHWO 
PRESS 


PRNT 
PIMP 
PLA 


PLAT 
P1B 


P1BC 
P1BG 


P1BO 
P1B8T 


P2BT 


P20LD 
R 


RADIAN 
kis 
RBSUB 
RBZ 
RBZTO 
RBLA 
RBLB 
Raz8 
Ra28 
RETURN 
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JAUHD - 4C0 
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TEMP - 27Nm 
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THETEX - 17C0 
TIME - 12Co 
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TMB “ 27NM 
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SUBROUTINE PCHWRT 


NPLTAB=O (NO GEOMETRY TABLE OUTPUT) 

NPUTAB=1 {PUNCH GEOMETRY TAALES} . 

NPUFAB=2 (PUT GEOMETRY TABLES ON DISK wITH NAMELEIST DATA) 
NPUTAB=3 (D0 BOTH OF ABOVE} 


REAL®8 A(10),5END 
Data END/* SEND A 
COMMON/INPUTIZAINCIN(18) sANOC1H) RF (1B) oe TAUW CIS oRZITADs 


1 % R3(18),R4(1B) ¢RS(18) oRGI18} RITTER) GRELLAD, 
2 ALS (£8) ¢ALS2 (18) eALACIB) pALHC18) sALE (16) cA] LIA 
3 AUZ(1S8) © A03(18) cAUG (1H) 2405118) 


COMMUN/ INPUT3/GEOCON(45518) 
COMMON/INPUTG/NGEO (18) ¢APORT (18) » TAUPL(50%138) eAL PPL (50018) o 


! AKGYP (50018) s TAUHD(S0) pABHD (50) PPMUITHD (50) » 
2 RMOTHD (50) sXCGHI (50) pe TAUN (50) sAQUN(50) sPYOIN(50) 4 
3 RMOEN(50) sXCGN(S0} eNGEGHD sNGEUMN 


COMMON/ INPUTL/PRTIFLG sNWRTAG sNPUTAD 

CUMMON/ INPUT O/KPLANE sKYOI CG 
COMMON/WORKRH/RHI (5) pHH2 Pp ACG pHHw e VF HOs VCH eANK (1 0) 
COMMUN/WORKRN/RNJ] (8) ps VENI VON PACK (20) 

COMMON/PARMAB/ HSUBMGe NSJBMG+NEND» ASEAs ASER + SUNDVA 2 SUMDVE 
COMMON/PARYAD/ PMOINA (50) sPMOINH {50} sRMOINA (50) eRMOINA (SO) 
é XCGNA (50) + XCGNB{(S50} eAdNA(S0) »AANB (S50) 
nIBOUT=20 

IF (NPUTAK.EQ.0) GO TO 220 

PUNCH REFERENCE PLANE GEOMETRY CONSTANTS 
IF (NPUTABCEQ2)} GO TO 5 

REWIND NIVOUT' 

READINIGUUTs3-¢END=800) (ACT) »1=1,10) 

FORMAT {1043) 

iF¢A(1}.EQ,END} GO TO 4 

GO TO 1 

NUNIT FSNIHOUT 

BACKSPACE NIBOUT 

GO TO w 

NUNITS7 

CONTINUE ’ 

DO 20 J=) sKPLANE 

WRITE (NUNIT 630} Fe (GEOCONC Us T} 0 J=1 945) t 
FORMATILXe GEOCONC Lot el2atyats( GC" SsERLeSototy)} 

WRITE (NUNIT940} NGEOHDsNGEOMN 

FORMAT (1X49 *NGEGHO=" 91554 sNGEQMNS# 9355450) 

WRITE (NUNIT 950) (2 eNGEO(I) oT=lek8) ; 

FORMAT(® NGEO(tel2s')= telaytet) 

WRITE CNUNIT960} (APORT(I) eT=1 PLANE) 

FORMAT (IX PAPORT CL =P/ 11K s6 (FL eSe 85") > 

WRITECNUNIT*®70) (CTAUHD(T} 9 I=) sNGEOHD) 

FORMAT (1X STAUHDL 1) SOS (LXeGKE LL e529 981)) 

WRITE(NUNITs80) (ABHD(I) s I=] sNGEOHD) 

FORMAT (Xs FABHD (1) = 7C1X06(E1 165949 9))) 

WRITE CNUNIT 290) (FAUNCT) »f=1 sNGEOMN) 

FORMAT CIAs  FAUNCLI SP /tUXe GCE Lb eSs te!) 

WRITE CNUNITS100} (CABN(T) ¢ I=] +NGEOMN} 
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peuZuU “9st 


eu2-€ 


100 


115 
120 


130 
140 
145 
top 
179 
180 
190 
200 
2to 
25 
220 
150 
480 
490 


6an 


510 


520 
530 


540 


550 


560 
S70 
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FORMATIIXe TABNOLPSt/ (1X eB(ELlstintet))) 
DO 145 f=leKPLANE 

NN=ENGEG(T) 

WRITE (NUNE T1110) 1 

FORMAT CIUXe PTAUPL CY ete l 2st} Ht) 
WRITECNUNIT¢115)} (TAUPL (Jo T) JS] eNN) 
FORMAT ¢ Att PeELLeSetet)} 
wRIFE(NUNIT#120) J 

FORMAT CIXeALPPL (Let sl2etiae) 

WRITE CNUNIT#115) (ALPPL (Jo I) sJeEeNND 

IF (KMOTCGeNE.D) GO To 145 . 
WRETE{NUNITs130) [ 

FURMAT {UX es (AXGYP(Leoteleyty=t) 
WHIFECNUNITs 125) {AKGYP (Jel) «JEL oNN} 
CONTINUE ; 

IF (KMOICG.NE.O} G0 TO 220 
WRITECNUNITs160) (PHOLHDtI) ©} =] sNGEOHI)) 
FORMAT (1 Xe fPMOTHD(LS=9 701 X eG (E LL eSe%9 993) 
WRITE CNUNIT#1 70) (RMOTHDCE) oe T=} »NDEQHD) 
FORMAT (LX s#RMOLADC LIS" ZINA (EL Lado tet td} 
WRITE (NUNIT T1160) (xCGHO(E) sl=leNGEOHI)) . 
FORMAT (1 Xe *XCGHDCLISt/S(LXeA(E 11 oSet9%))) 
WRITE{NUNT Tal 90) (PrOIN( 1) e T=] sNGEOMN) 
FORMAT LUXS FPMOING RP SIS CL KeO (EDL Sate td} 
WRITE CNUNITs 200) {RMOIVGT) + I=] +NGEOMN) 
FORMAT LUX e FRMOING YSIS OLX eG(ELL Sete td}) 
WRITE CNUNIT+21G) (XCGNET) e I=] sNGEOMN) 
FORMAT CIXe FXCGN CES" C1 XeG(EL1 Sets) 
IF (INPUTABLEQ.3 eANDs NUNITANE.7) GO TO 5 
IF (NPUTABSGT61) WRITE INESOUT<215) END 
FORMAT (AB) 

IF CAWRTAGLEQ,0) GO TO 746 

PRINT GEOMETRY TABLES 
FORMAT()X»1PHE11.4) 

WRITE 160490} 

FORMAT (1H1¢S8X015HGEOMETRY TABLES///) 
wR1Tt (oebd0} 

FORMAT (IHX L PHF ORESHEAD SECTIONS /1nAySHTAUND) 
MRITE 69150) CTAUAD (CT) »L=2 yNGEQHU} 

WRITE (60510) 

FORMAT (LHAs 4HAKHD) 

WRITE (60150) (AKHD (1) » f=] sNGEOHD) 
IF{KMOICG.NE.0) GO [0 560 

WRITE (60530) 

FORMAT (1HX ¢6HPMOTHD) 

WRITE (60150) (PMOTHO (1) 9151 sNGEOHD) 

WRITE (62540) 

FORMAT (1HX »6HQMUTHD} 

WRITE (69150) (RMOIHD (1) o L=heNGEQHD) 

WRITE (69550} . ' 

FORMAT (1HX%»SHKCGHD) 

WRITE (69150) (XCGHD( J} +15] sNGEOHD) 

WRITE (69570) 
FORMAT(1HUs///1HXs16HAFT-HEAD SECTION//2HX s4HTAUND 
WRITE (65150) (TAUN(I) s Fe eNGEOMN) r. 
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WRITE (64580) 

FORMAT (IHX»3HAN) 

WRETE (6¢150) (ABN (1) e151 NGEOMN) 

IF (NEND.EQ.1.0R.NSUBMG,E2.0}G0 TO 588° 
WRITE (6#584) 

FORMAT (1HXs4HAHNA} 

WRITE (65150) (ABNA(T) 6 T31 eNGEQMN) 
WRITE (64546) : 
FORMAF (1H y4HABND) 

WRITE (63150) (AUNB OT) et =) aNGEOMN) 

IF (KMOICG.NE.09G9 TO 630 

WRITE (64600) 

FORMAT (1X eSHeMOIN) 

WRETE (64150) (PMOINCE) e152 sNGEQMNY 
WRITE (69605) 

FORMAT C*GPMOI NAS) 

WRITE (G0190) (PMOINALE) + E=1 sNGEUMN) 
WRITE (65608) 

tONMAT (1 UPMOINE 9) 

WRITE(6e150) {PMOINO (1) «F=l eNGFOMN) 
WRITE (67610) 

FORMAT C1HXe5HRMOINI 

WRITE (60150) (RMOINCI) eI =i sNGEOMN} 
WRITE (As 615) 

FORMAT (10RMOTNAT) 

WRITE{6e150} (CRYIINA( 1) 6 T= eNGEOMN) 
WRITE 69618) 

FORMAT (1QRMUINGE) 

WRITE(65150) (RYOINB (1) eI) eNGEOMN) 
WRITE 462620) 

FORMAT (1HX 9 4HXCGN) 

WRETE 65 $503 (ACGNET} 5 Lot eNGEONN} 
WRITE (61625) 

FORMAT (1 OXCGNA®) 

WRITE 462150) (KCGNACE) ¢1=12NGEOMN) 
WRITE (G62) 

FORMAT (¢OXCGOND*) 

WRITE (64150) (XCONK(1) » 1=1+NGEOHN) 
DO 730 K=1le18 

KH=NGEO(K) 

[IF (KB) 74097409640 

WRITE (Q<¢650) *< 

FORMAT C}HOe///* REFEREVCE PLANE 'tsI2} 
WRITR(6+660) 4 

FORMAT CYOTAUPL (Let el2ard =!) 
WRITECGs3 50) CTAUPL (UeK) eUa1 eK) 
WRETE (64680} 

FORMAT CHUALPPL (Lletelestyat) 

WRITE (60150) (ALPPL (Jo€) oe Jah KH) 

LF UKMOICG.NE.O) GO TO 730 
WRITEChsTLOD K 
FORMATCUOAKGYP (1 ete t2eept) 

WRITE (60150) (CAKGYPI Je} oJobeKA) 
CONTINUE 

RETURN 
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SUBROUTINE PCHWRT 

800 WRITE (62810) i: 

BLO FORMAT(* ERROR? IN PCHWRT OF TBM MODULE*/10NO SEND CARN FOUND IN IK 
LOATA NAMELIST#/*OCONTINUING EXECUTION AND PUNCHING GEQMETRY TASLES 
et) 

NPUTABS1 
GO TO 5 
END : 
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SYMBUL Peet ee ee ee re ee ee ee eer er REFERENCES per ter ree er ee eee Ser Seer Sere er eer eae Pee eee ee | 
1 - 17# 20 
3 = 17RO 168 
& 2 19 ele 
3 - 15 ese 7U 154 
8 = 23 e5¢ i 
2a bed 2400 ait 
340 = 27wR 2o* 
40- - 29WR 30e 
20 - 31¥”R 32% 
50 = 33wR 344 
70 - 30k 36# 
30 = 370k 38% 
50 - 39WwR 40# 
100 - 41H 42 
10 = 45WR 46% 
1is - 470k Ghe Slwe SSWR 
120 - 49un 5oe 
430 = 53WR S4e 
140 - 550 
145 - 43200 a4 S6* - 
iso - 74H THR 8ewR BawR B9WR 92WR gowR 98WR 102wR 105WR 109we il2aR 119WR 
11avR 12lwk 124wr 127wR 130wR 133we 14) WR 144WR 14AwR 
160 ” S6wk Sue 
17a - 608R ole 
180 - 62eR b63* 
190 - 64aR bot 
200 - HOwR 67* 
210 - aber hye - 
els ” T1eR fee 
2eu = 14 5? fs 
4BG - Tae 
490 - TowR THe 
500 ad TTwR TAY 
$10 = AUWR gl* 
520 - Bae 
930 - déwR BS 
S4u - 8? wR uae 
550 - 9OWR Le 
560 - a3 yae 
270 - g3wR 9qe 
380 - 96uR OTe 
244 - 100WR 1o1l* 
586 - 103WR 104+ 

DBE - 99 106* 

5990 = loT* 

600 = lo7wR loss 

ods = 1idwk Lire 

bd - 113WR 114% 

61u = 116WR lL? 

615 - 119¥4R teat 

618 bad 1Z220R 123% 

bed ae: 1250R le6* 

625 - 1280 429% 
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62H - 131WwR 132% 

630 - 106 13448 

540 - 136 « 4378 

650 - 137¥R 1388 

640 - 139WR 140% ~ 

680 ~ 142wWR ]43% 

700 - 146* 

710 - 146w8R ya7e 

730 - 13400 ras 149% 

(40 - 73 136 150% 

300 -“ TTRD ib]* 

BLU - 15lwR 1526 

A - 2@RL b7RD 19 

AGHD - 6CO 37 wx g2uR . 

ABN - CO 41WR | = GHWR 

AGNA - 12co0 102WN 

AGNB - 12C0 105WR 

ACG - 9CO 

ACK 10C6 

AINCIN = 4c0 

AKGYP 6co 5Swr 148WR 

ALA ~ 4C0 

ALS ~ 4Cu 

ALE - 4C0 : 

ALPPL = 60 SiwR = 144uR 

ALS1 - 4C0 

ALS - 400 

ANK “ 9C0 

ANO ~ 4c0 

aul - 4c0 

AD2 - 4CO 

A403 - , 6€6 

ANG - 400 

A0S - 4C0 

APORT - 6CO0 33wR 

ASEA - 11co * 

ASE - 11c6 

ND - 2RL 3DA 19 71WR 

GEVCON - 5CO 27wr 

HHW - 9CO 

HH2 - 9C0 

MSUBMG ~ 11co , 

I = 17RD 26N0 27wR 314k 33WR 35wr STWR 39wR 41¥R 4 30 4s 45upr a TWP 
49NR SiwR S3wk SSwk 58wR 60wWR 62NR 64nR 66H0R O4WR 79HR BAwk RowR 
89OwR 92WR O5WR 9awek 102WR 105Wk 109WR 112WR 1} 5WR 11AWR L2bwR La4wea Laruo © 

130NR 133WwR 4 

INPUTL «© T# 

INPUTO = BH : 

INPUTL = qe 

INPUTS = Se 

ENPUT4) = 6% 

THE VaARIABLE- J “IS USED BEFORE IT IS DEFINED 

J - 27HwR 47WR SiweR SowWR 14] WR 144WR 1448WR 

K - 13400 135 137wWR 139wR 141WR 142wR 144WR 146aR 148aR 

KB - 135= 136 141WR 144WR 148WR 


bruguul=9526 


L62-€ 


e 


INUDER 
KMOICG ~ BCO 
“PLANE - &CO 
NEND - 11c0 
NGEU - 6CU 
NGEOHD ~ 6CO 
NGEDMN = 6CO 

115Wk 
NIBULUT = 13= 
NN - 44a 
NPUTAB = 7co 
NSUBMG) = 1ico 
NUNIT - 2iz= 

Slwk 
NWRTAB © 7co 
PARMAB -@ 11# 
PARMA «= y2» 
PCHWRT = i# 
PMOIRD = 400 
PMOL - 6CO 
PHOINA © 12CaQ 
PMODINK © 12cu 
PRIFLG = 7Cu 
RETURN = 1s0# 
RF - 4C0 
RHI - 9caq 
RMGIHD = 6Cu 
AMOILN - 6CO 
H#MOINA = 12Co 
H#4UINB = 1200 
ani - Loco 
re - 4Cu 
Ra - 4CO 
ty - 4Co 
KS - 4CO 
HE - &CO 
HT - 4CO 
RB - 4C0 
SUMDVA 1)Co 
SUMDVBE «= 11ca 
TAUHD ~ * 6COa 
TAUN ~ 6cO 
TAUPL - 6CO 
(AUW - 4co 
¥CH - 9CO 
V¥CN - 10C0 
VFHO - 9cu 
VFND - Loco 
WORKRH = pe 
WORKKN = 1o* 
XCGHD ~ 6CO 
XCGN - 6Co 
XCGNA - 12c0 
XCGNB ~ 32C0 


$2 
26bu 
99 
J1uR 
Z9weR 
29We 
118wR 


SHwR 
64WR 
licwrR 
115WR 


60WR 
66un 
121lwk 
124WR 
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SUBROUTINE PLNCNS 
ecceccceecoecececceeccocececcecceeccccccecccececcccecececccceecceccccccce 
c SUBROUTINE PLNCNS CALCULATES THE GEOMETRY CONSTANTS OF RACH 
c CYLINDRICAL SECTION REFERENCE PLANE (SECTION S.1.t)e 
ececcececceeccecececececcecccecececceccececceccecccecececccececccrececcece 
COMMON/CONSTS/GNOTs PT pO I2,RA0TAN 
COMMON/INPUTA/BTAGE 0 DH] #3Hs AOHMsRI & eHHR 
LOMMON/ WORK 45/0 (5) ¢R1 929s THL oe T2Me TGMe TOM se X450 G5 pALCOXO IPOS 

ROTDXVG a VOSrROTAAOTSVO7 ROT ATOMeT 74a TLE te X7AeY TOs 
ALO SXO9s YUP eRODAXOLL VOLTS ROLL FI OMe TIM TAUMe TH? se 
TH3sTH49372M1872M 289i MeB92M 

COMMON/ WORK A/AINC sANO9 RF s TAU SRA eRB PRG PRS PRE ONT We 

1 ALS] yALS2sALAsALBoALE eAQ (5) 

COMMON/COML / THO 

COMMON/COMX/COSA(S) 2STNA(S) oO TAUX SDTAUWX 
16 DO 20 T=155 

ACTISAU(C ET) /RADIAN 

ZAAZACT) 

SINACI)SSIN(ZAA) 

20 COSA(T) =COS(ZAA) 

R1LskF -TAUWHALS1 

R9=KF -TAUWHALS2 

THISPL/ANO~THO 

TAMAR2¢ALA4SINA (1) /CUSA (1) 

T4M=T2M+aLn®SINa (2) 7C0SA (2) 

TSM= ( T4M4R4) #COSA(2) /COSAL3} 4 

X45= (TSM+RS) #COSA (3) 

Y454R1L¢R2H (1 e-SIVALL)) sALAHCOSA (1) +F2MA(SINA (1) -SINA(2)) 

X+ALH®COSA (2) ¢RGH{SINA(3) =SINA(2) } -RS#SINA C3) 

TEM2Z= (RF = TAUS*RS) #024 X458C0SA (3) 14S YS TNA (3) ) O92 

TEMLEXG5¥SINA(3) #Y459C0S8 (3) 

ALC=SORT (TEM2)-TEML 

IF (ALC) 30950050 
30 IF (TEML 9#2=TEM2) 460940950 
40 ALC#6, : 

SU XOR=(TAM-R3) HI COSACLIFIANC (ACL IMAC 29972.) HS INA] )) 

YOSARLERZ4 (RIRPNZ) OSTNA G1) © LK TPM@R3d HTANC (ACE) 9A (209722) 4A8L 4) #COSS ( 

x1) 

ROIZSONT (XOI4S C+ YN IAG?) 

X0S2{(TSMeRG) HCOSAL3) 

YOSsYGb¢ (RS“RG) #SINA (3) 

NOS#SNRT (XOSH8 Se YOSRH) 

XO7#X4S54ALC#SINA (3) 

YO7=Y4S4ALC#COSA (3) 

ROT=SORT (XO7TSH Se YOTHSE) 

T6M=TSOM+ALCHUSINA (3) ZCOSAL3) 

T7M=SORT (XO07#024 (RE=YO7} #42) -S 

T1l2M=RY4+ALE®SINA(S) /COSALS) 

X 762041 2M+RS) OCOSAIG} 

Y¥765R94RB* (1 SINA(5)) ¢ALEPCOSA(S) oTL2M# (SIENA (5) —SINA (4) ) 

X=RG*SINA (4) 

TEML=X76#SINA(4) +¥76#COSA (4) 

TEM2= {RF =TAUW=-R6) ##2- (XTO*COSA 14} -Y764SINA (4) } BoD 

ALDO=S5QRT (TEM) - TEM] 

IF (ALO)60-80580 
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60 IF CTEML#4#2-TEM2) 70570080 
70 ALD=0.4 
8D XO9=X7G4ALD4SINA (4) 
YU9=¥ 76+ ALD®COSA (4) 
ROQ=SORT (X09%424y99882) 
KORLACTI2H-R7) #CTANC {A (5) =A (45) 972.) MSINA(S) #COSA(5)) 
YOLIAR9¢RG+ (R7T-AB) MSINA (5) 41 CTL 2M=R7D TAN ( (ACD) 014) 72.) *ALE) PCOSA 
45)} 
ROLIESQRT (xd1]#82+Y01bes2) 
TIOM=T1LOM+ALD®SINA (4) /COSA (4) 
TONSSORT (XN9HH2 + (RF-YOF) #42) -RE 
fF ¢T7M-196}90+300+100 
20 TAUM=T9M 
GO TO 110 
t00 TAUM=T IM 
110 DUM] = YO? /# RO? 
THe = ACOS{uUUM)) 
DUus2 = YO9 / R09 
TH3 = ACOS(QUM2) 
THasTH1-THa-TA3 
TEMP={T7MERD) S#2~{RF=-VO7) B42 
IF (TEMP}1209130e230 
120 TEMP 30. 
230 DUM3 = SQRT{TEMP) £ CT7M + RS) 
B7 1m = ACOS{(DUM3} - A{3) 
B7PM=PIT 269 THe-371M-A( 3) 
TEMP= CIOM*HG) BH2~ (RE -YO9} AHS) 
1F (TEMP) 14091502150 
140  TEMP=04 
150 UuM4 = SURTETEMP? / {T94 + RG) 
oYIM = ACUS(UUMG) « A(4) 
BY2M=PI/20eTH3I<-d9I1MAA (4) 
IF (THO} 17991705260 
160 ANGAJB=ASIN( (RF mRS~TAUW) BSINGTH2) 7 CTOMORS) } 
ANGABCEP [THe -ANGaJd 
ANGACH=ASIN{ (RE =RS5~TAUW) FSINCANGAKC) /RE D 
ANGBAC=P I -ANGABC-ANGACS 
ANGOFE=P1/2¢-AC1) 
ANGAFESP]/2,¢A(1) 
ANGAEF=ASIN( (RECRZDPSINCANGAFE) (RFD 
ANGGAE=P [ ~ANGAF E~ANDAEF . 
IF (THOSLTeANGGAEIGO TO £62 
TAUMSRF <KE 
G) TO L7u 
162 BHEbORT (RF 4H 264% (RE RRS TAUW) HH 2,-2.6 4RF 4 (RE -RS~TAUW) HCOS (THO+ THAD) 
IF ( (THO* THE) eLTeANGUACIGO TO 164 
ANGAHBSASIN ( (RF =RS@TAUW) SSINCTHO* THe) ZH) 
ANGABH=P 1 -aNnGAHB~THO-Ta2 
ANGHYC=ANLADC-ANGARH 
BHPR=HH*COS (ANGHBC) 
TAUMSAMINI] ( (RF @R]) 2 (BHPR@RS) 3 
GO fOQ 176 
leg = FAUM=AMINI ((RF=R1]) s (BHR5)) 
170) = WRITE (69180) 
180 FORMATI(GH «Als 13%) 2HA2¢1 3X8 2HAS LIX e2HASe LIX eQHAS 1 3Ks 
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AZHR1 9 13X 9 2HR9 41 2Ke4HTH)) 
WRITE C 66190) (ALLE) oL=1¢5) oR] sRO9THI 

f ORMAT (7 (1PE15.7) 9 1PE14.7) 

WRITE( 69200) 

FORMAT (SH T24yL2Xe3HTGMeL2Xy SHTSMg LOX eSHAGS o LOX y GHV 4S 12Ks 
X2HLCw13X 2 dHXO3e 1 tXeJHYO 3) 

WRITE ( 69190) T2My T4MsTS49 X45 yY4SeALCoX039¥03 

WRITE ( 67210) 

PORMATISH | RO3s}2K» IHXUS 9 12Xy HYOSe 124 yIHROS 9 L2Xy JHA Ty 12Ks 
XBHYO7 01 2X9 3HROT LEX 3HT 64) 

WRITE ( 64 190)RO3eX05 9 YOS9ROS,XO72YO7+ROT» 16M 

WRITE{ 692270) 

FORMAT(SH T?7M eS 2X e4HT) 24o lI Xs 3HX 7601 2XeIHY7G0 LOX oe 2NLMo] BXo 
AQVAKIGs 1L2X9 FHVOSe LI Xs 3HROD) 

WRITEL tel SOIT Ms TleM se X7HeV76,ALDoA09FVOU ROD 

WRITE( 69230) 


FORMAT (GH AOL] eo LIX eGHYOLLelLIXFSHRO] Le LIXsGHT OMe] LAs SHTIIMe LAX 


XGHTAUMe 1] L Re SHTH2 9 LL As 34TA3) 

WRITE C Ge L9OPXOL Le YO] sROLIs Ti OMe F9Me TAUMs TH2eTHS 

WRITE 69240) 

FORMATI{SH TH4 se L2Xe4HUTIL Ms LIX SHB 72M LIX e4HdDLMs bX 2 SHBIL4) 
WRITE 64250) TH4 987 1Me372Me891 M9 892M 
FORMAT (1X5 C1PE35,7) 07) 

RETURW 
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INDEX SUBROUTINE PLNCNS PAGE 301 
SYMBOL ee ert ee ere te ee ee rer ere REFERENCES Med wbae ene wted mewbatasmtesad ms mewtatetugwd 
io - 4 
<0 ~ 6D0 128 : : 
30 - 24 eS 
40 - 25 26% 

50 - 24 es 27 
60 - 44 4S8 
70 - 45 46% 
80 - 4% 4S 47H ‘ 
90 = 55 2o6R 
100 - ss S8+ 
110 - Ss? 598 
i120 “ 65 66% . 
130 7 65 67s 
440 - 71, fas 
150 ~ 71 734 
160 - 76 774 
162 - 8s Aue 
164 - a9 Joe 
170 -~ 76 87 95 97s 
hee - 97WR bae 
190 - 99WR 100* 2O3wR 106WR 109WR 1) 24k 
200 = LO TWR lope 
210 = 104WR 10S* 
220 - 107wR 108* 
230 - 110wR ble 
240 =, 113WR 114# 
250 - 11] 5”R 116% 
A - 4CO 9= 10 27 28 50 51 68 69 1% 75 Al 82 
SYWR 
THE VARJABLE= ACOS “IS USED BEFORE IF IS DEFINED 
acos - 60 62 68 74 
AINC - 5cO 
ALA ” 5CO 16 20 238 
ALB “ 5C0 L?7 20 
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56 280 CONTINUE 452H0 
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8B 4ol WRITE C &e470} A56¢U 
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SUBROUTINE POSUB 
LCCCCCCOCCLCCCCCOCECOCOCLCCCCCOCCOCCCLCCCCCCCCCCC CCE Ceece eececccece ccc 


c SUBROUTINE POSUd DETERMINES THE COORDINATES (X04 YO ZO) OF THE 
c POINT PO THAT 15 LOCATED ON THE INTERSECTION OF THE INNER 
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nwifl=e 

KA Teae 
HCREHCO 

AANA FARO 
AJKH=0.0 
hIBdASO,0 
AJIHDH=0.U 
AJPP=0.U 
AJPPASN «UI 
AJPPH=0.0 
XRARL=00U 
XHARTASO0U 
AGARTH=0,0 
wi=0.¥ 
wilA=0.0 
WIH=0.0 
wfaUelJ 
wIA=0,0 
wIK=0e0 
AKGY=060 
DELL TI =bL RE ORE 
00 40 J=le7 
KRASUH=T 
KXAPSUB=IE 
ALSX=AL (1) 

IF {ALSK) 50440530 
CALL SDIDIZ(IEX) 


44490 
46aan 
46670 
446680 
46690 
46796 
46710 


4AT UM 
46740 
4A750 
4A7A0 
4ATTU 


46H40 
46A50 
4HAK50 
464870 
46880 
46390 
4A3900 
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4g 
45 
40 
4&7 
aa 
49 
ED) 

Qo] 

be 
54 
54 
aS 
bo 
bs! 
ou 
SY 
60 
ol 

62 
63 
bs 
65 
66 
of 
od 
oy 
iv 
7k 

te 
3 
ry 

fs 
7o 
tt 
rs 
v9 
80 
4] 

ge 
83 
aa 
Hb 
Hts 
Be 
a8 
ay 
vO 
91 
ye 
93 
94 
95 
96 
97 
96 


40 
on 


60 


19 
60 


90 
100 


120 


130 
140 


1S0 


160 
170 


180 


JAS 
190 


200 
210 


SUBROUTINE PTLAAIK} 
OD TO (40950590 )+1EX 
CONTINUE ; 
LswITl = 2 
Ts}3J3 
KRASUBET 
KKRKSUBST 
ALSXEAL C1) 
IF (ALSK} 70180570 
CALL SOLOIICLEX) 
60 [0 (80550590 ) »EEX 
[s1-] 
(F (1-8) 9019060: 
LF CTAUW) 29072905100 
ALL=f. 
RASRF=<TAUW+ AU 
[TF (RO“RF IF 20¢1 105110 
KASHF 
CALL .HESUB 
HE ) =HE 
HETASHEA 
HE TBSHEBK 
RAN=SKA 
ALL=DELLS 
IF CALL =TAUW) 140914090130 
ALLS T Ate 
KA=KF ~TAUW+ALL TAU 
LF (Rh ARRF) 16091509150 
RAEHEF 
GY 10 (1709180 JeKwIT2 
TEMP=RAOH #4 
TEMP L=Ratt4 
A JPP=AUPP+ (TEMP I<TEMP) RPI /2, 
whaal+ (RASH 2mRADH HA) MPL 
AKGY=SOR | (AJPPRZEROUV OWT)? 
60 TO e250 . 
CALL HESUK . 
We (HAH8 2-RAQHH2) OP] OE (HECHE LP SDELF 2.) 
AJPP=AUPP+ (RAD# 4 2¢HAG82) HY] £02, *GNOT) 
TIF (NEND.EQ.1 208. NSUSHG.EN.O) GO TO 145 
WIA = (RASH2 = RADHH2) HP] 4 ( (HEASHETA) *UELF /2.)} 
WIR = (RAt82 & RAQHHAS HP] # ( (HEB+HET YU) SUELF/2.) 
AJPPASAIPPAS (RADH 42 ¢RADH2) FWTA/ (2. 8UN0T} 
AJPPA=AIPPRe (RADHA +RARHD) tWIB/(2.9ON0T? 
IF {AENCWHCO) 1905200,190 
RCGEHCH* (HE*HET) £44 
LO TO 210 
HCG=(HE ¢HEI) 46 
TEMPERADS PAeRAetA 
TEMPI SHE +HET 
TEMP es (TEMPI#&®2/12.+ TEMP) #WI/ (40 *GNOT) 
AJHB=AIBBORCG##29WI/GNOT + TEMP2 
ABARTS ( (HE *HEL) Owl /4e ew T#XBART) #ZERODV (WI + WT? 
IF (NEND.EQe1 .OR. NSUBMG,E020) GO TO 215 
RCGA=(HEATHET A} /44 ' 
TEMPISHEATHE 1A 


46910 
44920 
46910 
46950 
4bA960 
4h5 70 
46940 
4A990 
a7hoo 
47010 
4702U 
47030 
G7040 
47050 
47060 
G1070 
470080 
47090 
arian 


4710 
471 eo 
47130 
4&714N 
47150 
47160 
41170 
47180 
47190 
472nn 
47210 
47220 
41aso 
47240 
47250 
472A 


47290 
47 IHU 
47310 
473P0 
47330 


47360 
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INDEX SUBROUTINE PTLAA(K) PAGE 


sle-c 


yd FEMP 25 ( TEMP] ##2/12. + TEMP) AW1A/ (42 #GNOT} 

100 AJHBDA= AJHAA + RCGAR#2HWITA/GNOT + TEMP2 F 

101 ABARLASC(HEA+HET A) OMIAZG. +H TAPKBARTA) OZERODV (WIASWIAD 

lu2 RCGR=(HEBSHELB) 44, 

103 TEMP 1 =HEB SHE JB 

104 TEMP 2>(TEMP19#2/12.4 TEMP) PWIBS (4. 9GNUT) 

los AJBBBS AJBBK * RCGR*#2#wIB/GNOT ¢ TEMP2 

106 XANART B= ( (HEB HE 1S) HWE / oe +WIReXBARIB) #ZERUDV (WIR WIRD 

107 215 IF (AINCwW-HCO) 23052705230 

los 220 XENSAWARI 

lug AJHNOZ5AJH3 47410 
110 AJPNOQZ=AJRP 47430 
111 60 TO 260 47440 
lle 230) XBARTHEXHARI 47450 
113 XSHEADARL 47460 
1s AJPH=AUPP 7 47410 
lls AJPHEY=AUPP 47620 
llo A JKHE AIS 42490 
Ll? AJHAFD=AJHR & IGG 
lis e460) wTzalewl , &7S10 
ile wlhswlaewla 

jc wlnsawTHewly 

121 250 IF (ALL ~TAUW) 26052909290 6 ?SPn 
le 2Ag ALL =ALL+UELL I 47S - 
les IF CALL -TAUW) 2809 2HOe elt & IS40 
l24 270 aL. sl Aw &7S50 
12> eso RALISPA 47560 
126 HE J =He, 47S?o 
ler HETASHEA 

128 HE [d=HEH 

1249 IF (RF RAV) 29062905190 & 7540 
130 246 LSafTl=l 47590 
13} RETURN 47h}0 


132 NU 
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SYMBOL Foe tesen sats nto eutwsrntmemtmemganemreperurm =  HEFERENCES = stuetwdn teen te tebe ete tn tadngatetwhabuteees 
10 - 16 lye 4 
ed - 16 198 

30 = 42 aye 

40 - 3800 42 44 ase 
£0 - 44 4he 53 

oO - 4Br bode) 

70 - 51 $24 

40 - SI $3 548 

90 - 44 b3 bb 564 
100 ad $6 o7e 

ilo - 59 60+ 

120 - 59 4616 

130 - 67 684 

140 ” 47 49% 129 

150 - 70 71* 

160 - 70 7e2e 

70 - 72 73e 

tBu - rz 79H 

Las - a2 Bik 

190 - B? GH 

200 “ 87 one 

eld - ay 9H 

els - 96 la7# 

22a = lo? 1o8# 

230 - lo? 1124 

240 - Vel 118 

250 - 7% 12148 

260 - lal 122s 

270 - 123 1244 

280 - 123 125% 

2vo - 56 121 129 130# 
AANN - yLco 20= 

AEEA - 13C0 

AEEW - 13¢6 < 
APF - 7co 

AHH - 600 

AIG - 11Cu 

AINC ~ 5Cu 

AINCW ~ 10CoO ui “407 

AJB = 6ca els 945 $09 116 11? 
AJBAA - 14c0 22= 100s 

4JKAB - 14CO 23= 10$= 

AJBH - 8CU 1]16= 

AJBHED = 6co livs : 
AJBHN - 6co 

AJHN - aco 

AJHNOZ «= 6CO 109s 

AJPH - 9CcO 114= 

AJPHED «= 6CO 115= 

AJPHN = 6CO 

AJPN - 9co 

AJPNOZ «= 6CO0 110 

AJPP - 7co 24= 75% v7 61l= 110 114% 115 


Prucul L“uS26 


LEEW’ 


= 


INOExX 
AUPPA - 14C0 
AJPOW - 14C0 
AK - 3C0 
AKOY - 10CcO 
AKK - 3CO 
AKRST - yocu 
AL - 7co 
ALA - 5C0 
ALB - 5C0 
ALE - SCO 
ALITTL = 11c0 
4Lbt - 7coO 
ALSX - 9Cu 
ALS) - 5CO 
ALS2 - sco 
SMPN - 1Uco 
aMW - 16Cc0 
waNO - 5LO 
AU - SCO 
AOE - 11CoO 
ARCU - ICU 
ARC] - Vid 
ASE ~ 7Co 
ASE A - 120 
ASES “ ]¢cu 
ASI ~ 7CcO 
ASTI - 11co 
AT “ }Otu0 
AWEA - 13¢0 
awe ts - 13¢0 
ALE - 11c9o 
SOE - ¥1C0 
JX + 11¢0 
dle - }1co 
COMe - hed 
comt - Te 
CONSTS) «= ev 
OELF ~ 4CO 
vELN * 13C0 
vELLI = 9CO 
VELLRI = 11¢6 
DELTA - y0Cu 
VEL Z - 400 
DIS - jyoco 
DLRF - 3cG 
VRVRE - 30 
UTINI - 6C0 
UVA - 130 
OVe - 13C€0 
GNOT “ 2cu 
HCO ” 4CO 
nHCR - 9cO 
HE - 700 
HEA - 13c0 
HEB ' 13¢0 


26= 


365 


41 


ais 


ea 


gu 


37= 


37 


Hk 
19 
195 
o2 
63 
64 


BS= 
B65 


77= 


30 


665 
42 


4 


66 


as 
a7 
oo 
go 
d3 
84a 


44 


1e2 


86 
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88 
97 
102 


93 


90 
98 
103 


69 


94 


92 
101 
116 
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tel 


95 
l?7 
128 


1e2= 


124 


}Ae= 


b-OOGL~AS2(1 


Bite 


ee ee ewe eD 


INDEX 


HEI 
HETA 
HEI8 
HESUB 
HSUUMG 
rf 

TEX 
INPUTC 
INPUTU 
K 
KDUMP 
KRASUB 
KWITL 
Kwit2 
KXRSUB 
LSWITh 
NEND 
NSUBMG 
p 

PA 
PARMAB 
PARMAC 
PARMAE 
PARMAF 
PARMD 
PARME 
PARMF 
PAaRMH 
Pa 
PHI 

Pl 
P1o2 
PON 
PTLAA 
RA 


RADIAN 
RAO 

KC 

RCO 
RCGA 
RCGB 
RETURN 
RF 
ROE] 
ROPES 
RXX 

R2 

R3 

RG 

RS 

R6 

R7 

KB 
$01013 


2 


opyuerpteirperreavrerpiveoe 


BCO 
1360 
130 
alt 
120 
3800 
434G 
34 
qe 
LAG 
4c) 
8CO 
9C0 
9c0 
BCO 
9c0 
12C0 
120 
10co 
4C0 
124 
134 
16 


Be 


62= 
63= 
o4= 
79% 


39 
44 


1h 


39= 
17s 
1a= 
4u= 
46s 
82 

82 


5 


Sa= 
65 


88= 
100 
105 


37 


52% 


40 
83 
B4 


40 


52AG6 


48s 
72 
49= 
130= 
96 
96 


76 


b9 
86 


73 
90= 


58 


a 90 
97 eT 
102° «103 
4k 47 
53 

80 a3 
60= 65 
9} 125 
76 BO 
94 
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92 
10} 
106 


48 


B4 


69 


81 


69 


95 126= 
le7s 

l2k= 

49 50 
Tu T1l= 
84 84 
70 7 


§4= 


74 


85 


129 


bh 


76 


a6 


RO 


91 


AL 


}25= 
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ole-€ 
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SORT 
SUMDV 
SUMDVA 
SUMDVH 
1 

TAU 
PAuAQ 
TAUw 
JEMP 
TEMP) 
FEMP? 
THRE 
THRO 
TIME 

Uv 

wl - 
wid 
win 
WORKKA 
wi 

wd 
wid 
AGAR] 
AGARLA 
AGAKIE 
AdARIH 
ADARTN 
AuH 
ALN 

AR 

yPL 


éeRODV 
éf 
2P) 


NUE X 


ert) svaanesauvnesuetue 


 raprpaedcared 


4 


77 
7CO 
12C0 
272C0 
1GCO 
7CO 
6CU 
5cu 
73= 
fan 
935 
11C0 
}iCu 
1 0CU 
10c0 
7cu 
15Co 
13C0 
Se 
ca 
19co 
}>CU 
800 
1}4cu 
44cu 
rou 
9Cv 
6CU 
ocr 
7C0 
11c0 


vf 
Licu 
11co 


dA 


5A 
73 
8 
34 
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QS 


69 


58 

9l= 
Yes 
995 


aos 
63= 
o4= 


fo 
10} 
1té 

yos 
lode 
luos 


67 
93 
93 
100 


51 
HS 
8A 


i? 
1195 
leu= 
108 


68 

39 

gas 
}04= 


93 
99 
104 


95 


lie 
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106 


69 
106 
99 
tos 
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100 
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104= 


94 
rol 
106 


123 
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118 
119 
teu 
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SUBROUTINE P1SUd 
cececcececccecececceccececceccececeeccececcececcevccccecccceccecccoecccecce 


Cc SUHROUTINE P1SUs NETERMIVES THE COORDINATES {Ale YIo AND 72) OF 
c THE POINT P1 THAT [S LOCATED UN THE Z AXIS AL*ING A LINF THROUGH 
c POTNT PO ANO NORMAL TO THE SECTOR PERIMETER (SECTION Se2sleolel}s 


ceeceeeccecoceccecceccecccecececcccccececcecceccecccecccceoccececcccr ccc 

COMMON/CONSTS/ONOT pPIsP102sRADTAN 

COMHON/WORK 457A 15} PREPARE TH s TOM a T4Me TOM KGS YGSe ALC ANI 9 V0 )s 
ROD KOSS VOS ROS eXO7 VU SROT HO TOM eT I 4eTLAMsX7GrV 166 
ALD + KO9eYO9 ROD ROLL o VOL] eRULL oe T1049 TOMs TAUMy TH2+ 
TH3s TH4 93 71MeA72H + BOIMsB92M 

COMMON/WORKAZAINC sANOsRF, TAUWsR2,RARGIRSSRGOR7 A WBs 

1 ALS] +ALS2eALAy ALE SALE SAW (5) 

COMMONS XOWORK/XO + YOe ZU X22 eV 2eZe eX eV e Zi sX3eV¥3e73e FANGM2eSINTHR, 
COSTHR»s TANPH] AD sHOs CU sDU sHTADSSINGM2sCOSGM2 


GNP. 


@ SINGM] eCOSG6M1] sALTO 
COMMON/PARMH/B LE s BOE sAONN HX eRXXSASELE SDELURT eROPEGeAIE GS YPTeZP ls 
ry ARCO SARC] pROELVALITTL ae ZI vA Ge THRE THROVAOP 


COMMON/PARMM/RAT » XRAT 2 TH2¢ GAMA] sGAMAS S21 AT 
COMMON/PARMO/AL® py KRASBA y<KRSBH + KGAM 
COSGMI=SCUS ( GAMA] } 
STNOMI=SIN(GAMAT) 
TF (THR) 20¢10020 

10 Z1=KOPE4 
oO TO 100 

20 TF (KRASBB$9) 40930940 

30 RKX=RS 
UXsd71iM 
GO TO 60 

40 IF (KRASBH=10) 70150570 

SO RXX=RO 

BX=d91M 

60 IF CALP/RXXSHX} 704700110 

70 TEMPS THR+GOMA} 
TEMP1=1.565795~TEMP 
IF CTEMP1) 60 980+ 50 

80 TEMP#1.505795 

90 ZL=ZO+KO#SIN( TEMPE COS (TEMP) 

100) | YL#YO 
ZLAT=O, : 
XLeU. 
GO FO 120 

lke ZLATSSORT C (BIER *@20YO) HALE RH2/B Ete?) 
GAMAZ0=1 6970795=GAMAL= ACOS(SORT (1 o=(COSOM1HRAT/71AT) #4?) 
215Z)AT#COS CTAR=GAMAZ0) 
XLeZLAT*SIN(THR~GAMAZO) 
Yt=y¥o 

120 RETURN 
END 


14860 
74970 
T4990 
75000 
75010 
75030 


75050 
*So40 
79070 
75080 
75090 
75100 
75110 
75120 
73130 
78140 
7TSISO 
75160 
75170 
75180 
75190 
'5200 
75210 
752P0 
79230 
75260 
75290 
75300 
78310 
79.370 
75330 
75340 
753A0 
7$390 
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INDE xX SUBROUTINE P1SuUB 
SYMBOL tee ENE Heed mbes atebetetudmbwtabmen REFERENCES 
oO = ll 12% ; 
20 - 11 14e 
30 = 14 15% 

40 - 14 18 
50 ~ 18 19e 
60 - 17 214 
70 - 18 21 22% 
60 - 24 25s 
30 ~- 24 eh 
100 - 13 e7e 
110 - 2) 31s : 
120 - 30 Joe 
A - 3co 
AANN - 6co 
THE VARIAULE= Acos “(S USED BEFORE TT [S DEFINED 
ACUS = 32 
AIG ~ 6CQ 
AING - 4C0 
ALA - 4c0 
ALB - 4cO 
ALC - 3cO 
ALL - 3co 
ALE - 4Cd 
ALITTL - 6CO 
ALP - Bco 2} 
ALS1 - 4Cu 
ALS2 - 4co0 
ALTO - 2ca 
ANO - 4CcU 
AU - 5c0 
ade = 6C0 
ARCU 7 6Co 
AKRCI = éco 
ASI1 - 6C0 
AW - 4co 
Alt = 6c 31 
bu - 5c0 ; 
aOE - 6co 
BTAQ = 5C0 
dX - 6CO 165 205 21 
BlE - 6CO 31 
H7iM - 3CO lb 
a72M - 3c0 
dom - 3CQ 70 
392K - 3C0 
co - Sco 
CONSTS <= 2u 
cos - 9 26 33 
COSGM] - 5c0 = 32 
COSGM2 ~ 5¢co0 
COSTHR - 5CO 
VDELLRI - 6c0 
vo ~ 5co 


PAGF 321 


et oe Se ee ee ee ee ee eee ee ee ee te ae ee ee ee 


h 


¥eUeELOL-IS2Zr 


Sat~€ 


FF 


INDE x 


GAMA] 
GAHA?2 
GAMAZO 
GNOT 
KGAM 
KRASHE 
KXRSHB 
PARMH 
PARMM 
PARMQ 
PY 
PIde 
P1 Sun 
RADIAN 
RAT 
RETURN 
RF 
ROE1 
ROPES 
RAX 
RO11 
RNS 
ROS 
RO? 
RO? 

RX} 

R2 

x3 

RG 

RS 

R6 

R7 

RB 

RO 

SIN 
SINGM1 
SINGM2 
SEINTHR 
Sari 
TANOM?2 
TANPH)] 
TAUM 
Tauw 
TEMP 
TEMP) 
THR 
THRI 
THRO 
TH] 
THe 
THS 
THe 
TlOM 
112M 
12M 
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7co 
7C0 
325 
ecu 
&CO 
aco 
8CB 
leks 
Te 
aH 
2co 
2co 
1* 
2c0 
7cO0 
36% 
4&co 
6C) 
6Cco 
of0 
3co 
3c0 
3C0 
3Co 
3C0 
3c0 
4CO 
4c0 
4C0 
400 


Ja 


4 
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15= 
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22 32 
2) 
26 
33 34 


BAGE 


3a? 


vrUucbOl-9Gz¢3 


* ck-e 


INDEX 
14m - 3C0 
FSm - 3co 
T6M - 3c0n 
17H - 3c0 
T9M ~ 3C0 
WORKA - ae 
WORK4S + 3H 
xO ~ 5C0 
AOWORK = 5% 
ARAT ~ 7co 
X01) - 3c0 
X03 - 3co 
xOS - 3Cu 
x07 ~ 3c0 
xu9 - 3c0 
%1 - 500 
2 - sco 
3 - 5CO 
44Gb - 3C0 
AT6 - 3C0 
YU - bcU 
YPE ~ 6C0 
yoll - 3co 
Yo - 3C0 
yos ~ 3c0 
YO? - 3c0 
Yo9 ~ 3C0 
Yl ~ SCO 
Y2 - 5c0 
v3 - 5co 
Yad - 3c0 
Y76 - 3co 
rat - 6CO 
ZO ~ Sco 
Zp) - 6CO 
ral - sco 
ZLAT ” 70 
£2 ” 5co 
23 - §co 


26 


29= 


e? 


27= 


26 


le= 
2k= 


Joe 


3) 


35= 
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rh ee er ee ee 


P-Ugld L-9Seu 


veere 


INDEX 


SUBROUTINE PJSUa 


SURROUTINE P3S5UB 
ceccecccoce .ccceccecccecececececcecececeecccececccecccceecececeecececcccer 


c SUBROUTINE P35U8 DETERMINES THE COORDINATES {A3e Y3s AND 23) OF 
Cc THE PUINT P3 THAT 1S LOCATED IN THE Y~-Z PLANE AND ON THE QUTER 
Cc ELLIPSE (SECTION Se2elalelde 


_ cecececcecccececcececcceececcccceecececcoccccececccccecceccecececeececece 


COMMONS XOWORK/XO 9 YO o ZO XP eVSs 22 XL oY lod) X3vV 39734 TANGM2 ¢SINTH2e 
1 ( COSTHR + TANPH] 940,80 eCOeD0 eR TADS SINGM2 +COSGM2 5 
2 SINGM1 +COSGM1 sALTO 
COMMON/PARMH/U IE se BOE ps AANN@UXARXX PASTE SVELLRI sROPES DALES YPT 9 7P) 5 
} ARCOSARCLyROELSALITIL s ZI] sAIGe THRE e THROSANE 
COMMON/PARMMZRAT pXHAT 2 TAR GAMA] 2 GAMAZ o ZIAT 
TF CZ1AT}10,20910 
10 K4a=X1 
yv3s71 
73=23 
GO Tu 60 
20 1F CTHR=402) 30930940 
30 PH] 1=GAMA2 
GO TO 50 
40 Fay }=ACOS {CUS CTHR*#GAMA) /SURT ( (COSGM1 # TANOM?) HEF eCOS{THReGAMAT ) Hee 
XP) 
50 TANPHISSIN(PAI}) /COS (PHT) 
YAL=CZ1*Y 1 8TANPHY) STANPH) 
BAHS<“YAL#2./TONPH] 
ARASBIEGF2/A1 £80241 ./TANPHI 862 
COCHYAL HHS eB E He? 
CALL FNGRE (AA4238R eCOCeZ3) 
YVARSURT (BIE 42-BLEM Oe 73Z4Hes ALE aS2) 
K3=0. 
60 RETURN 
END 


75410 
75510 
?$530 
75940 
75550 
7$570 


75590 
75600 
75610 
75620 
75010 
715640 
74650 
T5460 
T5670 
75680 
75690 
75700 
iS7Lo 
5720 
15730 
S740 
75750 
74760 


7S770- 
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SYMBOL Se Tah adh Dl teal el Teal tee aah tet Ded Saat Sol Del toh Sol ot Dok at tol Dae REFERENCES ee emt Ht bated mem tat mter nee at mtn ementuyet 
“10 - 5 6# 
20 - 5 10% 7 
30 ~ 10 11+ 
40 - 10 234% 
50 - 12 14e 
40 ~ v9 22e : 
AAA - 175 19AG ‘ 
AANN - 3CO0 
THE VARIABLE 4cos “IS JSED BEFORE If IS DEFINE) 
acos - 13 
AlG - 3C0 
ALITIL ~ 3C0 
ALTO - 2cu 
AO - 2co 
AOL - 3cu 
ARCU - 3Cu 
ARC1L - 3C0 
as] - 3C0 
ALE - 3CO 17 20 
BHB - 16> 1946 
dU - 2c0 
dOE ~ 3C0 
STAD ~ 2C0 
HX ” 3CoO 
dle - 3ca 17 ts 20 
ccc - 1b= 19Au 
ca - 2ca 
cos - 13 i4 
coscel - 2c0 13 
cobsbmMe -~ 2co 
COSfink «= 2co 
VELLRI = 3co 
vo - 2co 
GAMAL - 4&CO 13 
GAMA2 - 4Co it 
PARMKH - 3H 
PARMM == ae 
PHI] - i= 13= 14 
PaSUB - Le 
RAT ” 4&CaO 
RETURN = 224 
ROE} - 3coO 
aOPE4 - 3co 
RXK - 3Co 
SIN + 14 
SINGH! - 2c0 
SENGH2 - 2co 
SINTHR - 2co 
SakT ~ 13 20 
TANGM2) ~ 2co 13 
TANPHL ~ 2co 146 15 16 17 
TOGRE = 19" 
THR - 4cO ia 13° 
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GZe-£ 


INUDExX 

THR1 ~ 3¢90 
THRO ~ 3co 
xO - 2cu 
XOWURK  ~ au 

XRAI - 4CO 
Al - eco 
Ke - 2co 
XS bed eco 
YAl - 15= 

Yo - 2c0 
YP) - 3CO 
¥) ~- 2CoO 
¥2 - 2cu 
ya - 2cu 
ZI - 3C0 
£0 - 2cu 
2P1 - 3CO 
41 - 2cu 
éyat - 4CO 
22 - 2cu 
23 - 2co 
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THRI - 3c0 
THRO - 3co 
xO - 2cU0 
AOWOURK ~ ae = 
XRAT - 4CO 
XL - 2co 6 
Xa - ecu 
Xd - 2co = els 
YAL - 15= 16 18 : 
a - 2ca 
YPI - 3co 
¥1 ~ eco ? 15 
Ya - eco 
¥3 ~ 2cu 7= 20= 
Zj - 3cC5 
20 - 2c0 
2P1 - 3c0 
ai - 2cu 4 1s 
ZIAT - 4CD 5 
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SUBROUTINE RASUA (KRASUA) 
cccceccccecccececeececcccecececeeccececcecccecceeccceccccccccccecececece 


c SUBROUTINE RASUS DETERMINES THE LENGTH OF A RADIUS VECTOR FROM 
c THE MOTOR AXES 10 A POINT ON THE PEREMETER FOR EaCrH SECTOR IN THE 
Cc END SECTIUNS wITH & STRAIGHT THROUGH WEB (SECTION Sa2e3aPda 


ccecceccceeccceecccccccceccecceccceecccecececcccceccececeecccecceccccececer 

COMMON/CONSTS/GNOT eP1s?T02 RAD LAN 

COMMON/WOURKGS/A8(5) RD RSs THE oe TAM eo TGMe Tomy XG65eVG5eALCOXOI0 VO Ss 
RODS XOS + VOSe¢RNSe XO7s VOT oROTeTOMeT PMaT 1AM eXTHs V7 Ag 
ALD XU9 YOO eROGe XOETYOL] pRUL Lo T1OMeT OMe TAUMs TH2y 
FHI + TH4 e371 Me B72KM eNO LM sh92M 

COMMON/WORKASATNC sANO¢ QF o TAUWSR2aRIaR4 IRS eRGeRT RAs 

1 ALS] sALS2¢ALArALHAALE + AWS) 

COMMON/COMTZ TAU SAC eSUMOV a XR SHE pAL (13) sXHAKT MASE sAFF eWT Whe RAs 

1 RAOsALL eAUPP ASI 

COMMON/COMXK/COSA (5) eSINACS) PN TAUX A DTAUWA 

COMMON/PARMC/ DELS DEL 793719891 


wn 


GO TO (109204130040 159950s 70913008 IOe1OUF1 0120 }+KRASUR 

10 TEMP] =ke~f au 
TEMPP=COS(ALL/TEMPL) 
TEMP3ER14+R2 
TEMP 2=2.8TEMPIUTEMP 29 TE MAG 
RASSORTITEMP] #4246 TEMP Jobe TEMP?) 
Gu TO 140 

20 TEMP] oC (CPAUHR2) MSINAC]) e224RE eC ALASUEL IAL (2) ALL) OCOSA(T) Oe? 
TEMP 2= CT2M~TAU) PCOSA C1) = CAL (2) «DEL S-ALL) #SENA(]) 
RA=SURT (CTE MP2%32¢ TF MPI) 
6 TO 330 

30 TEMP 1 =ACUS (X03/RU3)} 
TEMP 2=fe3~ TAU 
TEMP] =P. 4RN34TEMP24COS CALL TEMP 2=TEMPE-A(1L) +39,94159) 
RA=SORT {ROI88 22 TEMBO8 #P-TEMPL 
ou TO 130 

40 TEMP J =¢ (T44—TAU) 8COSA (2) - (AL (4) ALL} SSINA(2)) Oe 
TEMP 2s (HS=-RGODPSTNAG( 3) 
TEMPS (AL (4) ALL) FCOSA (2) 
TEMPZ=(R4+TAU) #5INA (2) Y45=TEMP JO TEMPS] 
KASSORT CTE MP2 Ye 2+ TEMP) ) 
vO TO 130 

So TEMP] = TAU + RG 

TEMP 2=2.% TEMP) PROSH#COS (ACS) CAL (5) -AaLL) STEMPLOACOS (XO057R05}) 
RA=SORTUTEMP1® 2 24R058%2=TEMP2) 
60 tO 230 

£0 JEMP1= (CAL CAL (6) +ALL) 8#COS A092) +¥G5¢ (R5S+ TAU) PSTNA C3) 1 982 
TEMP 22 (T6M=TAU) OCOS4 (3) — (AL (6) ALL) tSINA (3) 
RA=SORT (TEMP 24824 TEMP 1) 
60 TO 130 

70 TEMP 1=FAU+RS 
TEMP2=2.°RO/STEMP] SCOS CALL STEMP Led 7 lad /2M+3.14159) 
RA=SORTIRO7##2¢ TEMP] O%2~TEMPO2) 
GO FO 130 

&0 TEMP 1 =TAU+RE 
TEMP2=2.*RO9* TEMP 1 *#COS (ALL / TEMP 1-89} -892M+P 1} 
RA=SQRT (ROOH##2+ TEMPL4#O~TEMP2) . 
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sl 
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ob 
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GO FO 130 

TEMP L=( (ALD-AL (10) 4ALL) #COSA (4) +¥ 764 [Ro+TAUPYSINA (4) ) S42 
TEMP22 (T1OM=TAU) SCOSA(4) ~ CAL (10) -ALL) BSINA (4) 

RA=SORT (TEMP2%62+TEMPL) 

GO TO 130 

TEMP 2=ACUS (X01) /R011) 

TEMPE=R7=TAU . 

TEMP252 e°RO1L) #TEMP1*COS LALL/TEMP1 TEMP CRA (5) +PT) 

RA=SQRT (RU11## 24 TEMP] #He~TEMP2) 

GO TO t30 

TEMP 1 (TAU-RY) HSINA (5) eRG*RG+ CALE *DEL7-AL C12) © 41.L)*COS4(S) 
TEMP 2= CT LOM- TAU) 8COSA (5) - (AL (12) -OEL P=ALL HSINA CS) 
RASSOART (TEMP 2BU24 TEMP} BAZ) 

GO TU 13u 


_ TEMP L=R8+TaAu 


TEMP2=R9¢4RA , i 
TEMP 3=2 o*TEMPLHTEMP28COS {ALL /TEMP 1) 
RASSONT (TEMP 1 #424 TEMP OH 2- TEMPS) 

RETURN 

END 
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INDEX SUBROUTINE RASUS (KRASUB) 
SYMBOL, Poe ee Den ee Set ee ee Oe ee a ee ee eee REFERENCES 
io - B 9* * 

20 * 8 158 
30 - & 19@ 
40 - 8 24% 
50 - 6 3404 
60 ~ 8 34e@ 
70 - 8 38a 
HO ~- 8 42% 
90 - a 464 
100 - a 5a 
10 - 6 Sse 
120 ~ 6 Soe 
130 - & 14 ig 23 29 33 a7 
a - 3cO Qi 3i 52 
THE vaRtAdLe= ACUS “IS USED REFORE IT IS DEFINED 
ACUS - 19 31 od : 
AFF - 5CU 
AENC - &cp 
AIPP - 5cu 
4L - $co 15 lo 24 26 31 34 
ALA - 4C0 1s 
4LB “ 40 
ALC - 3c 34 
ALO - 3cu 46 
ALE - 6CU 65 
ALL “ $co 10 1b 16 2) 24 26 
a? b2 55 ah 6i 
ALS! - 4c 
ALS2 - 4c0 
AND - 4CO 
ASE - 5co 
AS] - 5cO . 
aw - 6cvD 
s71 - ?co aM 
Brim - 3co 
d72M - 3co dj? 
69) - 7cu 43 
Bo]M ~ 3c0 
a92M - 3c0 43 
LOM - 54 
COMX ~ 6@ 
CONSTS - ee 
cos - 10 ral Ji 39 43 52 6l 
CUusA - 6Cc0 1s io 24 26 34 35 
YEL3 ~ 7co 15 16 
DEL? - 7co bot) 56 
DTAUWX = 6c0 
DT aux - 6co 
GNOT - eco 
HE ~ sco 
KRASUB = 1AG 8 
PARMC - 7# 
PY - 2c0 44 be 
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wENUEX SUBROUTINE RASUBIKRASUF) 

PIO2 f= 2co : 

RA - 5c0 22s Yes jo= 40= 442 ake 

RADIAN - eco 

RAV - 5c0 

RASUH = ye 

RC - $c0 

RETURN = 63+ * 

KF - 4c0 

ROL} - ace 60 be 53 

kO3 - 4dCO 19 21 22 

ROS - 3c0 31 42 

KO? - 360 av 41) 

RO9 ~ 3c0 43 44 

Rt - 3C0 at 1S 

R2 - 4Ca 9 ll 15 

R3 ~ 4c0 20 : 

R4 - 4CO 24 27 30 

KS - 400 an. 3a . 3a 

R6 - 4cO 42 46 

R? - 4cu SL 2 

Na - 4Co 55 69 60 

Rg - 3C0 bb 60 : 

SIENA - 6CO 1S 1b 24 25 27 34 cr) 4A 4? 45 46 

SORT - 13 1? ee es 32 36 4u 4a 48 53 oT 62 

SUMDy = 5cu : 

TAU - 5cu 9 15 14 20 e4 2? 30 a4 44 3n 4? 44 
47 41 5S 36 59 : oo : 

baum - CO 5 

TAUW - 4co : = 

TEMP] = = 10 le 13 lbs 17 bis 2s 2? eos Fas) n= i} 3 

‘ 32 345 36 3a= 39 4u 4as &3 44 462 at Sle se > 

53 b5= 57 39s al be 

TEMP2 = 105 lez 13 ifs 17 2u= él 2? 255 Piz PR 31s 3? 
REE 36 39s 40 432 44 ats a8 405 Ses 53 Sos we 
602 6} 62 

JEMP3 0 + Vis 12 “43 eb 27 al: he 

TH) - 3Cc0 . 

TH2 - aco 

tH3 - 3Cu 

THS - 3CO 

TLOM ~ 3ca 

112M - 3C0 

12M - 3CG 

144 - 3co 

TSM - 3co 

T6M ~ 3cu 

17M - 3co 

TOM - 3co 

wl ~ 5C0 

wORKA = 4s 

WORK4S == ae 

wT - 5Cu 

XBARIH = 500 

XR ” SCO 

AOLL - aco 
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SUBROUTINE RASUSs 
cecccucccccccececececcecececcececececeececccceecccceceecccecece ccceecerece 


c SUBROUTINE RASUdB DETERMINES THE LENGTH OF A RADTUS VFCTOR FROY 
c THE MOTOR AXIS YU A GENEAAL POINT EN A SECTOR FOR THE GLOC< 1 
c ANALYSIS UF THE dEAD END WITH WEB (SECTION Se2.telelde 


ecccececcceceeceecccecceeccce|eccececcceecececcceececeeccecccceeccceceece 
COMMONS CONST S/ONOT ePE eR? TO2sRADIAN 
COMMON/ WORK 457A (5) eR) 299TH] 9 TOMa TOM TSM eXGS 9 VG5 ep ALC oKO So ¥I36 
i KOZ X0Se VOD eROS KOT eS VOT PROT STEM a TT TLOMe Xie ¥ 7h 
2 ALD XOF%+VOFoROMKOLL SYOL 1 eRULIs TI O49 TOM» TAUMS THA» 
3 : TH3 + THS9371Ms872MeB91N+H92M 
COMMON /WOURKA/AINCG s ANU eo RF ep TAUW RZ eRA RG RS eRH RTL Be 


1 ALS] sALS2,ALAALHeALE sAW (4) 
COMMON/COMT/TAU s RCs SUMIVe XR HE CAL (15) oe AH ANI ASE SAFF OW] SWI eo RAs 
1 RAQsALL FAUPP PAST 


COMMON/CUNK/CISA IS) ASTNALS) sD IAUX eDTAUWK 
COMMON/PARMM/RAT CXRAT e THU9GAMAI sGAMAA yZLAT 
COMMON/PARMYO/ALP ¢KRASS3 9 <XRSBRKGAM 


BD TO (10530240950 O04 DO LLU 20 140 eLHUsIHDe DYOeANNe2reP al deo 
AKRASHH 
10 TE (H2) 20 2250920 
20 TEMPT=COS (ALP/R2} 
TEHPL=TEMP) 42.8HZe (RI +22) 
HAT=SURT { (Q1 422) #424R2082—TEMPL) 
GO TO 25u 
30 TEMP=1.570795"A (1) 
TEMPL=SIN( TEMP) 
TEMP 35 ALPSCOSA CL) +RE eRacaz2 COS (TEMP) 
HATSSURT{ ( TEMPL&R2+ALPASINA (11) 8924 1TEMP39% 2} 
60 TO 2Se ; 
40 TEMP) = (ALA+ ALP) OCOSACL) @R2°SINACL) ¢+R2eRL 
TEMP2={ALA+AL®)}eSINAL]} #R2°COSA01) 
GO TO 170 
50 TEMP 1=(ALa=T24* COSA CL) BSINAL2Z) )/COSAL1) #RE*R2-ALPHCOSA (2) 
TEMP 2s T2M4 COSA (2) -ALPSSINA (2) 


GO TO 176 

60 TF (R3A} 705250970 

70 “TEMP1S2.#ROBARARCOS (CALP/R343.141S99A (1) MACOS (X03/R04) ) 
RATHSURT (RO3##24R3e%2~TEMP]) 
6) TQ 250 


8u TEMPA=ALP4COSA (21 +RY+R2- (TAMSSINA (21 PCOSACI) ALA) /COS4 11) 
TEMP2=ALP#SINA (2) +COSA(2) 4T2M 
60 TO 170 

90 LF (RG) 100, 2502100 

loo TEMP L=ACOS {SORT (ROSH H26Y05##2) /HO5) 
TEMP 1L=2. #RG#ROS*COS ( (A (3) FR4-AL (5) tALP} /RO+TEMP ED 
RAT=SORT (RG##24R054%2-TEMP] } 
GO TO 250 

110° TEMPI=RS#SINA (3) +¥454ALPHCOSA C3) 
TEMP 2=TbM4COSA (3) = (ALC#ALP? PSINA C3) 
RAT=SQRT(TEMP1##2¢TEMPete2) 
bO TO 250 

120 IF (R5)13092500130 

130 TEMP 1=2.#RO7#RSHCOS (3.1 4159-872M~ (YT IMYRS<ALP) /R5) 
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SUBROUTINE RASUSS ‘ 
cecccuccecccececcececcecececceccececcecececccececcccececcececcucccececccc 


c SUBROUTINE HASUdS DETERMINES THE LENGTH OF A RADIUS VECTOR FROM 
c THE MOTOR AXIS TU A GENERAL POINT IN A SECTOR FOR THE SLOCK< 1 
c ANALYSIS UF THE HEAD END WITH WEA (SECTION 5.2,].1.1). 


eccceccoecececccecccecceecccececeececceeceeececcececccececceeceeeceece cc 

COMMON/CUNSTS/GNOT eP I oP] O2eRADIAN 

COMMON/ WORKS57A (5) eR1 029 a TH eT2M eo TOMs TSM es hG5 0 Y45 AL CoX3¢ 036 
KOSeXOGe YO SPROSeXOT PYO7oROTYTOMeTIMeTLOMeXTOrY 7H 
ALD eXOGsVOIsROSeXOL Le VOLT sROLD gs TLOMs F9Ms TAUMI THe 
TH3 eTH4 93/71 M9B72M B91 BYOM 

COMMON /WURKAZSAI NC yp ANUS 2F » TAUW S R2+RIeRG ANS tROeR7eQHs 
ALS) sALS2sALASALH CALE pAW(S) 

COMMON/COMT/ TAU se RCo SUMIV s XReHE AL (LS) eo XRARTHOASE AFF eWITaWT Rie 

1 RAOALL eAUPP PAST 

COMMONS CUMK/C 5415) sSENA(S) sO TAUX s DTAUNX 

COMMONS PARMM/NAT #XRAT 9 THU 9 GAMA] sGAMACeZ1AT 

COMMON/PARYOZALP »KRASHS 1 <XHSHH A KGAM 


wer 


~ 


60 TO C1030 SU SOOO UO IMe LLU eI 2O 140 e160 LEO CLINE 20M A205 730 Ya 
AKRASHH 
10 IF (K2) 204250920 
20 TEMPI=COS(ALP/R2) 
TEMPTS TEMPL #2 .4R2t (RD eR?) 
RATSSUNT((R14AR2) OH 2¢ReRHe~TEMPL) 
GO TO 250 
30 TEMP=1.570795A (1) 
TEMPI=SINITEMP) 
TEMP3=ALP#COS4 (1) eR +Re-224 COSC TEMP) 
RATSSURT ({ FEMPLYR2+ALPHSINA(L}) M82 + TEMP 38H 2) 
GO TO 250 
40 TEMPL= (AL ACALP) SCOSA CL) -R24S5INAC1) +R24R) 
TEMPR= (ALACAL9) MSINA C1) #224C054 11) 
60 TO 170 
SO TEMPI= (AL AwT2YMOCOSACLY HSINA (2) ) /COSA(L) #RI+R2Z—-ALARCOSA (2) 
TEMP2ST2M*COSA (2) -ALPPSIVA(2) 
GO TO 17¢ 
60 IF (R32 7092509 70 . 
70 TEMP 132 2 PRO GHRAACOS LALP/R 3+ 3. 14159-ACL) -ACOS (X037R03) | 
RAT=SUH TF (RN34424R9442-TE YP] ) 
GO TO 250 
80 TEMPI=ALP#COSA (2) 4+RI ¢R2=(TeMPSINA (2) 4COSAC1) AL AD/COSALY) 
TEMP2=ALPPSINA (2) +COSA(2Z)4T2M 
GO TO 170 
90 1F (R4)1007?509106 
100 TEMPL=ACOS (SORT (RO5442-YO5%42) ROS) 
TEMP1=2,#R4tROSHCOS ( (A (3) PR4—@AL (5) +ALP) /RG4 TE MAY) 
RATHSSORT (RG HHA *ROSHH2—TEYP] } 
GO TO 250 
llo TEMPI=ERS#SINA (3) +Y45+ALP*COSA (3) 
TEMP2S=TOM*#COSA (3) = (ALC@ALP) #SINAC3) 
RAT=SORT ( TEMPL##2+ TEMP2HH 2) 
60 TO 250 
120 TF {R5) 13052504130 
130 TEMPL=H2.#RO7#RSHCOS (39434159~B72M= (oT I MeRS=ALP) /R5) 
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RATSSURT (ROTH 26250 42=7EMP)) 

6O To 259 : 

LF (R6)150.250«150 . 

TEMP 1=26*ROSHROFCOS (30141 59=H92M— (BIIMFPRH=ALP) /RG} 
RAT=SQRF (ROGU#2eRGet*2—TEMP?) 

GO 10 250 

TEMP 1 SALP#COSA (4) eRAeRG= ( TL2M*SINA (4) #COSA(S) @ALE) COSA (9) 
TEMP2=TI2M*COSA(G} FAL PHSINA (4S) 

RAT=SQRT (TEMP) @#2¢TEMP2HH2) 

60 TO 250 

TEMP 1S CALE+ALP) #COSA(S) #ROERB-RAGSINA (SD) 

TEMP 2=RB* COSA (5) © LALE*AL?) AS fA C5) 

oO TO 170 

TEMP 1=R8+R9=ALP#COSA (4) =(TL2M#SINA (4) #COSA (5S) -ALE) /CDSA (9) 
TEMPe=T12M*COSA(4G)~ALPHSINA(4) 

60 TO 170 

LFCRTI 2105250210 

TEMP L=ce#ROLEFRIECOS (6 (30 1L6YS9RKALS)) HRIFALP) /R7OACOS(XAE] ARO) 1D) 
RATSSORT (ROLLS #2 eR fHe2—TEMPY 

GO TO 250 

FEMPLSALP#COSA (5) RAtRD=2BRCOS (1S 7O0795-A (9) ) 

TEMP 2=ALP# SINA (Ca) eR HSIN 1 2 STUT9SHA (5d) 

G 10 170 

EF (XB) 24052504240 

TEMP) =e 0 ®RA# COS LALP/RA) #(RYORS) 

RATSSOHT (HEHH2 + (R90HA) HU2=TEMP)} 

RE TURAN 

END 


TH360 
74370 


76400 
76410 
76420 
76430 
76440 
7645h 
T4460 
76470 
76480 
76490) 
76500 
Fast 
76920 


TAS4N 
76550) 
765K 
TAS? 
7H580 
76590 
TH600 
76610 
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SYMBOL Ogee Robe e RoE R ems ee beeeewewen tweets REFERENCES ere eee ere Tere re rete eee ee ee 
10 - 9 10# 
20 7 10 )14 
36 ~ 9 156 
40 - 9 20% 
30 - 9 23* 
60 - 9 26% 
70 = 26 27s 
Bu - 9 30% @ 
yo - 9 33% 
100 - 33 34% 
110 - 9 3a 
120 - 9 4a¥ 
130 - 42 438 
140 - 9 46* 
150 el 46 47 . 
160 - 9 SO+ 
170 - 22 25 32 32% 56 SY 66 
186 - 9 bat 
190 ~ 9 Sv 
200 - 9 60% 
210 ~ 60 61* 
220 - 9 64H 
230 - 9 ore 
240 - 6? bY 
250 - 10 14 ly: 26 e9 33 a 4) 42 45 46 49 43 
60 b3 67 70* 
4 = 3C0 1S ev 35 6! 64% 64 
THE VARITABLF~ Acus “1S JSED BEFORE 1T IS DEFINED 
acos - et 34 ol 
APF - sco , 
AINC - 4C0 
AJPP ~ 5CO 
AL - 5C0 35 
ALA « 4CO 20 21 23 30 
ALY - 4Co 
ALC - 3CO 39 
ALD bed 3CO 
ALE - 4CcO 560 ba 55 57 
ALL - 5CO ‘ é 
ALP - aco 1 1? 16 20 21 2d a4 a7 ati) 31 mw 3B 
39 ad 47 50 31 54 $5 37 SA 6) 64 65 hf 
ALS? - 4cD 
ALS2. - 4cO 
ANO - &cO 
ASE - 5CO 
asl! - 5c0 
aw, - 4CO 
b7in - 300-43 
B72M - 3C0 43 
don - 3CO 47 
B92M - > 3c0 47 
COMT “ 54 
COMK ~ 64 


bebeCuL-9S201 


Geert 


INOExX 
CONSTS «= 2H 
cos hl 
cosa - bCO 

55 
DTAUWX # 6CO 
OTAUA - 6C0 
bAMAL - 7CU 
GAMA2 ae 7CO 
ONOT - eco 
HE - 5¢c0 
KGAM oe &CO 
KRASBB = gco 
MXRSBH «= &CU 
PARMM - Te 
PARMO - he 
Pi - 2c0 
PyO2 - 2c 
HA - 5co 
RaulAN = ecu 
RAV - 5co 
RASUBB + 1# 
RAT - 7CO 
aC - 5C0 
RETURN = 7Ou 
KE - 4C0' 
ROL] - 3Cu 
KO3 - 3c0 
ROS ~ 3C0 
RO? “ 3c0 
ROD - 3COU 
Ki - 3cQ 
K2 - 4co 
K3 - 4CoO 
R4 - 4CO 
RS - 460 
R6 = 4CO 
RT ~ 4CV 
Ra - 4CO 
Kg ~ 3f0 
SIN “ 16 
SINA - 6C0 
55 
SQRT - 13 
SUMDY - 5c0 
TAU - 5co0 
Tavs - 3¢0 
1AUw - 4C0 
TEMP - 15= 
TEMP] - yi= 
38= 
48s 
TEMP2 - ais 
TEMPS - 17s 
THR - 7co0 
TH) - 3co 


27 
20 
$8 


6e 
2b 
35 
44 
4b 
13 
11 
et 
35 
He 
47 
6) 
> 
54 


20 
$A 
28 


1? 
t3 
43 


31 


35 


21 


64 


36 


17 
12 
28 
36 
43 
4a 
62 


57 
21 


65 
34 


16= 


44 


39: 


43 
23 


20 
13 


57 
64 


23 
36 


18 


40 


47 
24 


40 


h4 
64 


24 


40 


20= 


48 
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4l 


3u 


44= 


au 


la 


65 
AY 


3u 


44 


23= 
Sos 


52 


&4& 


31 


20 


&7 


31 


48 


a7 
$2 


$45 


68 
3 


32 


al 


68 


38 
Se 


2A 


Sas 


58 


aw 


fe 


23 
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50 51 54 
69s 

Ww 

50 51 44 
69 

34s 52 36 
als 62 64= 


B-LeLU L-ygze 


SEE-E 


* 


INDEX 

THe - 3c0 
TH3 - 3co0 
TH4 - 3C0 
T1OM - 3C0 
Ties - 3CO 
T2m - 3c0 
T4M - 3C0 
15M - 3cu 
THM - 3co 
17M - 3co0 
19M ” 3co 
wi - 5c0 
WORKA - qe 

WORK4S & 3 

wt - 5co 
AMARIH = SCU 
KR - Sco 
XRAT - 7cO 
KO1} ~ 300 
X63 ~ 3c0 
X05 - 3co 
AUT - 3Co 
x09 “ 3c0 
%45 - 3C0 
X76 ~ 3co 
Yoil - 3co0 
Yu - 3co 
yo5 - 3Co 
¥O7 - 3CO 
yao - 3CO 
¥45 - 3cu 
Yi - 3co 
Z1at - 700 
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23 


49 
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34 


34 
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ccecceececccececeeccceceececceccececcccceccceccccecccececccecccceecececcce 
SUBROUTINE RBSTSH DETERMINES THE INITIAL ESTIMATE OF THE RURN RATE 
COEFFICIENT» AKRST+ FOR EACH TIME INCREMENT DURING THE STANT 
TRANSIENT INTERVAL ANO PERFORMS THE TABLE LOOK=-UPS FOR PH AND 
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10 
20 
3n 
80 
90 
100 


110 
120 


130 
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1 
COMMUN, TNPLTG/CS TAR #GA 4A eR eNCSTR ePRESS (20) eCSTR (20) sGAMAG (PO) 9 
AMG (20) o TCOMB 120) iNCSCOE 


SUBROUTINE RYSTSd 


SUBROUTINE RBSTSB 


AKRST (StCTION 443.3}6 


LOGICAL LESTIeSIATIC 


COMMON/BLKOO5/ NLEWIS+ VST ¢NF sNRECONsNCASES a NDISP 
COMMON/BLKO21/ TSRECe TEREC eCSHAR sPNSHARD TWEN OPI Tw eCSCOEF (3) sL EST} eRECON 
& STATIC 


COMMON/BLKO23/ DATAC}O) eNWROSeNUNIT 
COMMON/CONSTS/GNOT ePIsPEO2sRADIAN 
COMMON/ [NPUTO/AKRHy AKR NG RAFLAG 


COMMON, INPUTE/ANRG 15) eASU(S) sAKR(39) pAKSLOT (2) eNAXReTIMAKR (25) » 


TBLAKR (25) sNAKEND 


COMMONS INPUTF/NPrt sPHST (70) se TIMEPH( 70) sNAKNST sp TAUAKR (30) » 


AKRTAUCIO) sNTAUTO sPCTAG 


1 
COMMONS ENPUTM/STFLAGeSTOYST MEL TST VEL TSSsDFLTTO 


COMMON/INPUTVSALTST oP ST fSTe TIMP) eT IMPT290EL TSP eANI TW 
COMMONS INPUTUZDELF sPAsP HI sHCOeDEL Ze KDUMP (72) 
COMMONS WORKRAS/Re1G 1S) sHA2s ACG s HHW VE AO a VCHeANK (19) 


COMMON/ WORK RANZRN (Bd eo VENOSVCNeACK I IU) 
CLOMMON/DUMYL ZT IMCK2 


COMMONS COMA/DEL Ts APA peDOTT sANIAO, TIME Ws UT eANLOPS + ACCEL » 

1 ASCYLsPRNT(LU1 015) sAINCHIsAMACH  /CALC (LOL) 
COMMON/COMGS TAUZ (2013963237 €101) eTAUZTIO CIOL) sRBZTN{102) sPHC101)» 
1 


TAUWOP (1012s 2B VF eDWDOTs VP 
COMMON/ CUOMS/ TPR AKRADIs TEND 


COMMON /PARMA/AP sPM ENS PMAK eWDOTS ELL eo Tle WOOT NSLOT eNTABE sNTME » 
1 TAGTO+s TOFLAGeNINCPL s8RNOUT s LISS ISL + 1S2sNT+SCUR (1 AZ) 
COMMON/PARMF ZPHe TIME SAINCWe Ts Pe UEL TAU AKGY sPONCDISeAMPN ATs 


AMwW sAKHST 


COMMON/PARMG/ VE Hs AANGVENSVIS ARTs SPDT eSPONDT PVF INT oS VFHsARTOT 


COMMONZBARMS/ICHN 
COMMON/PARMAA/TOs ITFLAG 

TF CTIMEEQ,069) TIMCK2=0.0 

EF ETIMCK2.GE.TIME) TIMCK2=TIME 


IF CNRECON.GT.0 «ANDe NPH.EQN.0) GO TU 150 


IF{NPH) 210421010 

IF (TIME =TEMEPH(NPH) ) 204200210 

IF CTIMCK2=TIME) 3053004300 

CALL XLINCTIMEPHePHST #NPde TIME sPHy 13) 
IF (oTDYST=1,.019002100210 

CONTINUE 

DO 110 I=1.NPH 

IF CTIMEPH (1) “TIME} 11001209120 
CONTINUE 

l=fel 

UPHDT = (PH=PHST(L))/¢TIME*TIMEPH(T)) 
Go TO 140 

PHZ = PH 

CALL GETDAT(TIME) 


3A5RO0 
4n750 
3AT70 
3a7no 
3a790 
3aAnv 
yAReN 


ALL 


RECON 
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v-Geuo Lege 


QEE<E 


140 


150 


169 


élu 
220 


ean 
°40 
250 
260 
270 


cod 
290 


ano 


SUBROUTINE RHSTSB 


CALL BIAS 

PH=DATA(2) 

DPHDT = (PH=PxH2)/DELT 

VOLUME= VP eVCrHeVFHsVCN=VEN 

TF (NCSTR) 1605160,159 

CALL XLIN(PRESSsCSTReNCSIH «PON SCSTAR E14) 

CALL XLINIPRESSeTCOMBsNCSTRePHeTOs15) * 

CALL XLINCPRESS s GAMAGeNCSTRePHeGAMAS1O) 

CALL XLIN(PRESS sAMWGyNCSTRePHy AM s 17) 

IF (CSCOEF (1) oNE 10.0} CSTARSCSCOEF (1) *CSCOEF (2) *2ON+CSCOEF (3) SPONGES 
R=1545.,864/0MwW 
GAMASUSGAMA4(2./ (GAMA4+1 23 44 ( (GAMA41.)/(GAMA=1.)) 
RBS (DPHOT>+GAMASOPCSTARS1 2, TATH#TPRYPH/ VOLUME) / (GAMASQ*#CSTARYH2, 
A#DELFHI2.*AB TOTS ( VOLUMEYSNOT) ) 
AKRSTERB/PHRFAKR (3) 

LF (NAKRST) 2400240,270 

CONTINUE 

(UF (TIME«DELTST=1TST} 230,230,260 

CONTINUE : 

CALL ALINGTAUAKR » AKRTA.Ss VAKRST» TAUZ{NINCPL} ¢AKRST 591A) 
GO TO 2760 

IF (NPH) 2500250260 

CONTINUE 

AKRST=AKR (36) 

TIMCK2=1¥ [ ME 

IF (TIME) 28092709280 

CONTINUE 

GO TO 300 

IF (RIFLAG) 300s3005290 

CONTINUE 

AKR (2) SAKRST 

AKR (36) =AKRNST 

RETURN 


* END 


39240 
39290 
39300 
39310 
39320 
39330 
4340 
39450 


39379 
397ARN 
39390 
39406 
3941n 
39420 
39430 
39450 
39460 
S9GIN 
39490 
39490 
39503 
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SYMBOL ere tet oe oo ee ee oe ee eee REFERENCES ee et ee ee ee ee Sr err err 
10 ” 28 208 
20 - 2? yO# 

Jo ~ 30 J1e 

oO - gee 

90 = 32 334 

1090 = 34 

118 - 340u a5 36% 

120 - 35 374 

130 - 27 4Q# 

140 - 49 ase 

150 - 46 aq qe 

160 - 46 5l* 

210 - aa 29 32 36% 
220 - 565 57H 

230 - 58 597 

24a - 56 626 

25u - 62 b3e ‘ 
26 - SB ok &2 65% 
270 - 46 oT 

280 ~ 66 Hoe 

290 - 6y 7o# 

300 bad a0 of 69 734 
AAN - 22Cu 

AGCYL ~ 17C0 

ABTOT - 22C0 b4 

ACCEL - 17Co 

ACS - 14C0O 

ACK - 15CO 

AINCHI = 17CO 

AINCW - 21ico 

All - 22C0 

ALTSF = 12C0 

AKG - §co 

AKGY - 2100 

AKR - BCO 59 64 7s Vee 
AKRADJ ~ 19C0 

AKRH - 7CO 

AKRN - TCO 

AKRST - 7100 55= A0AG 64= 71 Té 
AKRTAU = 3co 60aG 

AKSLOT - 8CO ‘ 
aku - Eco 

AMACH - 37CcO 

AMPN - 21¢0 

Aw = 2ico 50AG S2 

AMWG - 1000 SOaG 

ANIBO - 17CO 

ANITW + 120 

ANK - 14€0 

ANLOPS ~ 17c0 

AP - 20co0 

APHI - 17C0 

AT - 21c0 5+ 


PrLEGG L-usee 


eeerk 


ee et 


Sot 3 


ty 
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dTAS - aoe 
BLKYOS) = 3 

HLKU2] ~ ee 

BLKO23 + 54 

SRNOUT POcd 

Coma + 17" ‘ 
COMG ~ 1B4 ’ 
COMS - 19% : 
CONSTS «@ bu 

CSBAR - 4CO 

CSCOEF = 4CO 51 

CSTAR - 10Co0 4&TAG Sis 54 
CSTR ~ 10CO 4&7AG 

Data ~ Sco 43 

DELF - 13C0 54 

VELT - 1700 44 

UELTA ~ 2ico 

DELISP «+ 12ci) 

uELISS - 11c0 ‘ 
DELIST «= 11co SA 

DELTTO - 11co 

DEL2Z - 13¢C0 

‘DIS ~ 21co 

UPHDT = + B= 442 54 
DUMYL + 164 

DwDOT 18CO . 
“GAMA - 10CO 49AG 53 
GAMAG = }0L0 S9AG 

GAMASG = 535 54 

LETDAT <= 4l* 

NUT ~ 6CO 54 

HCO ~ 13C0 

Hew - 14Co 

HHe - 14C0 : 

i = 3400 JD 37s 38 
ICHN - 23C0 

{END -' 190 

TFLAG - 24C0 

It - 20cv 

tld - 20c0 

Lt - 20c0 

twPuUTD + 7 F 
INPUTE = a4 

INPUIF + ge 

INFUIG = 10# 

INPUIM. = 11# 

INFUTIN = jee 

INPuTU «= 13% 

{si = 20C0 

1s2 - 20Co 

KUUMP = 13C0 

LIST - 2L6 4Cu 

NAKEND - 8CO 

N&KR - &CO 

NAKKST = 9CO 56 604G 


PeOZUDE"9Sed 


Lee-€ 


geprrse 


INDEX 
NCASES - 3co 
NCSCOE - 10C0 
NCSTR + poco 
NDISP - 3co 
NF - 30 
NI - 20co 
NINCHL = 20co 
NLEWIS « 3co 
NPH - 9co 
NRECON ~- aco 
NSI - aca 
NSLUT- + 20co 
NTABE = 2000 
NTAUTO = 9CO 
NTME ~ 20C0 
NUNIT = 5co 
NWRDS = 5cO 
P - 21C0 
PA - 13C0 
PARMAA = 24e 
PaRYB = 208 
PARMF  - ele 
PARMG # 226 
FARMS - 2a 
PCTAK = 9CO 
PO - 1aca 
PH - 21co0 
PHI - 13c0 
PHST - 9c0 
PHZ - 405 
PI - 6CO 
PIDe - 6CO 
PITW - 4co 
PMAX - 20CO 
PMIN - 20CO 
PNSHAR = CO 
PON “ 21c0 
PRESS = 10Cc0 
PRN - 17¢Oo 
PST - 12Co0 
k - 10CD 
RADIAN = 6CD 
RH “ {acu 
RBFLAG ~ 7C0 
RBSTSH = 1* 
RBZ - 16CO 
KB2TO = 18C0 
RETURN = 73% 
RH1 - 14C0 
RNI - 15¢0 
SCUR - 20C0 
SPHDT 22C0 
SPONDT = 22C0 
STATIC = 26 
STOYST = 11c0 


46 


6046 


a7? 
e7 


SLAG 


SLAG 
44 


“47aG 


47AG 


$2= 


S42 
69 


4C0 
32 


47AG 4BAG " 


238 29 
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3a 
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498G SOAG- 


3iaG ° 4400 
44m 44 
50AG 


62 


GHAG 


49AG 


5046 


$4 


59 


Pebcuulguzg 


ever’ 


& 


INDEX 


STFLAG 


T 
TAUAKR 
[AUTO 
TAUWDP 
TAUZ 
Tauzro 
THLAKR 
TCOMb 
TEREL 
TIMAKR 
TIMCK2 
TIME 
TIMEPH 
TIMEW 
VIMPTL 
TIMPI2 
10 
TOFLAG 
TPR 
ISKEC 
1s} 
twko 

u 

ut 

vCH 
VCN 
VEH 

VF 

VFH 
VFHO 
VF LNT 
VFN 
VFNU 


‘vis 


VOLUME 
yP 
WDOT 
wOOTD 
woOTI 
WORKAH 
WORKHN 
XLIN 
ZCALC 


oes ecrrrrsapeedceeonrrptrsaatnrseuratrereanrate eet Pete 


11¢0 
21Cco 
$co 
20C0 
18CO 
18CO 
18c0 
aco 
10CoO 
4cv 
&CO 
16CO0 
e2ica 
9c0 
17Cc0 
12C0 
1eco 
240 
pocu 
1¥co 
+CO 
12C0 
4co 
21C0 
17¢0 
14C0 
15C0 
22c0 
18CO 
22c0 
14Co 
22Cu 
2éC0 
15C0 
ecCtu 
45= 
y8C0 
20co0 
20c0 
1/co 
14% 
154% 
3i¢ 
17C0 


6045 


60AG 


SHAD 


255 2b 30 
25 26 29 
29 31 AG 35 


48AG6 
54 
58 


45 


45 


&S 


54 
45 


aye 4He 498 
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65= 

30 31AG as 
34 

50* 6u* 


38 


4) AG 


SA 


AS 


46 
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pele ULeyaZ0 


event 


INDEX 


unt 


vt Ea eu +. 


Jo 


Mi 
12 


is 
14 


lb 
lo 
lV? 
18 
1 
20 
2i 
2e 


24 
2b 
26 
ef 
28 


Ju 
31 
je 
33 
34 
JS 
36 
a? 
38 
39 
4U 
4t 
42 
43 


SUBROUTINE RdSUB 


SUBROUTINE ReBSUB 


Cceccccececcceccceeccceececcecceecececceceeccccceecceccceeceecececeececccec 


c 
c 


SUBROUTINE R8SUB DETERMINES THE PROPELLANT BURNING RATE AT EACH 
INCREMENT DIVIDING PLANE (SECTION 4.352). 


Ccececceccececcccecceececceeceeceececceecececceccececeecceeeeccecececenc 
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60 
70 


80 
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130 


56 


COMMON/ INPUTAZ/BT AOE #Dr1] 5 3H» AQHMeR IG eHHR 
COMMONS INPLITE ZAKG (5) ¢AKU(S) sAKR (39) sAKSLOE (21 sNAKRe TIMAKR (25) 5 
1 THLAKR (25) »NAKEND 

COMMONS INPUTF /NPH ePHST (70) + TIMEPH (70) sNAKRSTs TAUAKRI30) » 
1 ARRTAU(30) tNTAUTOsPCTAB 

COMMONS INPUTM/STFLAGe¢STOVST NELTST VELTSSsVELT IO 

COMMON? INPUTU/DELF ePAsPHI sHCOsVELZ eKDUMP (72) 
COMMON/DUMYM/CK TIME sNTEST4 
CUMMON/CUMA/OEL Ts APH] eWDOTI sANTHOsTIMEWeUT pANLOPSe ACCEL, 

L ABCYL »PRNF (101615) pAINCH! sAMACHs ZCALC(101) 
COMMON/COMG/T4AUZ (102) sR9Z (101) ae TAUZTOCIOL) eRAZTOCLOL aPNEROLI« 
L TAUWDP (101) e8bs VF eDWOOTs VP 

COMMON/COMOZTHSLVSRSLYR ye THSLVVSASLYR AHO ORFHI AL PX eAP Ks 
lL RSHIVALPY oAP YS VSLVR 

COMMUN/COMS/TPR e AKRADI, TEND 

COMMON/PARMBZ/AP eOMINePMAX SWOOTe TI Lek Us WOOT eNSLOTeNTAHE sNIME 
1 TAUTO,s FOFLAG eNINCPL pARNOUT pTISe IS] e LS2eNIsSCURCIHe2) 
COMMON/PARMF /PHe TIME CALNE We To? eDEL TAsUsAKGY OPONSDISe AMPNG ATs 
d AMwsAKRST 

LOMMON/PARMAZA LE BOE s AANYN HX SRXXSASEL DELLRI sROPEG ALE s YP eZP le 
l BRCOLARCI »ROED ALI T TL eZ] sALGe THRE, TARO ANE 
COMMON/PARMR/KHSLOT sRSLOTAIRSLOTF eSLTFLG 

COMMUN/PARMS/ICAN 

COMMON/PARMAS/ 4SUBMGs NSUAMG sNENDSASEAs ASEH se SUMNVAs SUMUVE 

LF ANTEST4=-1)10s210510 

CONTINUE 

IF (STFLAG) 204160320 

CONT TINUE 

IF CSTOYST#=) 20) 3001605150 

TF ETT 1=1)240940950 

PRPH 

6G) TO 60 

TF (NSUBMG.EQ.O 2AND. LEND.E9.2) GO FL 60 

P=PO(II 1-1) 

CONTINUE 

IF(NAKRST 2.672 0 OR, NINCPL .GTe O eANDs TIME 4LTe DFELTIGO TO BO 
GO TO llu 

Ru=0.0 

CALL RBSTSA 

IF CECHN.EQ.5) RETURN 

IF (NAKRST) 909909640 

IF (NINCPL~TEE} 64091009540 

NTME=0 

60 TO 640 

CALL RBSTSB ¢. , 

IF CICHNeEQ.S) RETURN 

AKRIMP=AKRST 

IF (NAKRST) $2091200210 

IF (NINCPL~E£13)210+12305216 

IF (NTME.GT.100)GO TO 210 


39520 
39710 
39736 
39760 
39760 


39790 
J9RN0 
394510 
392820 
394230 
S9RGB 
39450 
39840 


39470 
IGBRO 


Y9IINO 
39910 
39920 
39940 
39940 
39950 
39960 
49970 
39920 
49990 
40000 
40010 
40020 
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P-L2UG1 9420 


belt 


140 


160 
170 
180 
190 
210 
eat 
230 


24u 
250 


270 
ere 
273 


ets 


2th 


etB 


e8o 
P90 


300 
310 
320 
330 
340 
350 


360 


3/0 


SUBROUTINE RXSUB 


IF (CKTEME-TIME) 140915045140 
CA TIMEST IME ‘ 

NTME=NIME*] 4 

AKRTAUCNTME) =AKRST 

TAUAKRENTME )STAUZCIII) 

GO TO 210 ‘ F 
NIEST4=1 

TF INTHE) 1805 1805170 

N= NTME * 

IF (MAKRET) 2402100190 

N = NAKRST 

IF (P=PA) 22092202230 

HB=0. 

GO TO B40 

IF (SLTFLG) 27092705240 

IF (P=PA) 25092505 260 

HBSLOT=0.0 

GQ TO 4640 |. 
RASLOTSAKSLUT (1) #PeHanxSLOT (2) 

GQ TO #40 

IF CLEND-1) 276,2729274 

IF (NAKENOJEU.] .OR. NAKEYD.EQ.3) GO [0 276 
AKRZ=AKR{2) 

AKRG=AKR (4) 

AKRIB=EAKK C3) 

bu 10 2738 

TF (YAKEND CEQ .e 2OR, NAKENDZEQ03) GO TO 27h 
LO TO 273 

AKRZSAKR (2) 411, +AKRADS) 
AKRGZAKH(I4) #01, +AKRADI) 

AKR JAZAKR(36) * (1. ¢AKRADS) 

CONTINUE 

GCR=AKG (1) AKG (2) #PHOAKG (3) HAKG (4) HP4OAKG(S) 
UCR=AKUCL) +AKU (2) SPEOAKU LS) HAKI0G) OPEFAKU CS) 
G212.9DELTASY 

IF CTAUTO) 32093203 28u to: 

IF (TOFLAG@100)32022908120 5 
TAUTOWSRSLYR=-TAuZ (IIT) 

TAUTOWSAHIN] (TAUTOWs FAUT) 

LF CTAUTOW) 30003002310 ' 

TAUTUW=0.0 

CALL XLINGTAUAKRs AKRTAUs Vs TAUTOWSAKRTO019) 
AKRTMPSAKRTO 

SONS [NUE 

IF CSTOYST.GT.0.0 AND e TOFLAG LY 0100} AKREIMPH=AKROE 
IF {GCR=G) 33093304340 

IF CUCR*U) 35093504340 


RBSAKH (35) eAKRTMPSPHEAKR (37) HAKR3IB | #PHHAKR (39) 


60 10 640 
RBSAKR11) +AKRIMPOPHOAKR IS) +AKRG #PSHAKR (5) 
IF (U) 36023705360 


RAS RB+AKR (6) BUGHAKR (7) FAKR (8) BUMBAKR (9) SAKR (14) SOBSAKR (15) SUSOARR | 


ALG) CAKKO17} OPREAKR( 1B) SUPPAKR (19) 
GO FO 450 
IF (AKR {73939053809 390 


400 30 
49040 


40050 © 


40060 
40076 
40080 
40030 
40100 
40110 
4q1e2n 
491170 
40150 
40160 
40170 
40180 
40190 
490200 
4210 
40270 
42 i0 


40240 
4250 
40240 
40276 
S0AaROD 


4nedo: 
40300 ° 


40310 
40320 


40 340 
40350 
40360 
40270 
403940 
40390 
40400 
40410 
40420 
40430 
40440 
40450 
41460 
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380 
390 
400 
410 
420 
430 
440 
450 
466 


. £70 


4Ad 
4yu 
500 
S10 
$20 
530 
540 
550 
560 
S70 
580 
S90 
600 
610 


620 
640 
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RB=RB+AKR(6} 

IF (AKR (9) 941094000410 r 
RASRBrAKR (A) . 
TF CAKR (16) 43094200430 
RA=RH+AKR (14) FPAHAKR (15) 
TF CARR OT9) 65096400650 
RB=RA+AKH O17) HPO eAKR (1B) 
IF (G) 4605470 +460 
RBRKB+AKR (10) Ge HaKR (11) AKR C2) OG*FAKR (19) +AKR (20) HPSOAKR E22) ) 4658 
XAKR (22) tAKR (23) PPHHAKR (24) OGHRAKR (25) 

GO TO $50 

IF £AKR (173949005680 2490 

RBERB+AKR (20) ‘ 

IF (442 61319510e500e510 

RB=HB+AKK (12) 

TF CAKR (22) 153095209530 

RBERB+AKR EPO) SPOBAKK (2) 

TF CAKR (25) 955005600550 

Rriisnn + AKR (23) HP RAKR (24) 

IF (AKR (26) 156095705560 

HH=RB+AKR (261 /CAKR{27) @PRHAKRIPB) +AKR (29) HPHRAKQ(30)) 

IF (6)580,660 . 580 

IF (BTAVE) 59U» 630,590 

THE =HIE-BOE 

LF CTHE~TAUZ(1)) 62026200510 

HHRSTAUZ (1) +BOE 

G0 TO 630 

rHREB LE 

HRBSHHReA LNCW 

TF CHRH.LT»RAR) ARBEHMR 

IF (HRB ,ED. 0.0) RETURV 

RBSRE+AKR GF) } FOUR AKR E32) PEXP CRAKR (34) #RBHI SDELF/G) SHRBOHAKH (33) 
KEFURN 

END 


40470 
40480 
40490 
40500 
40510 
40520 
60530 
40540 
40550 
40560 
40570 
4&05A0 
40590 
40600 
40610 
40620 
40630 
40640 
40650 
406AD 
4n6"0 
406AD 
anegp 
40700 
4g71n 
40720 
40730 
4n7an 
40750 
40740 
4a77o 
40780 
40790 
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210 
220 
230 
240 
25u 
260 
e70 
2le 
e73 
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230 
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300 
31D 
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340 
350 
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390 
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410 
420 
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460 
470 
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Fede emt ae aesweneas we ewew ems wer swe ne memset wen REFERENCES 
18 19% 
20 eke 
2e 234 
23 24H ; 
23 26H 
a5 24 2ut 
aye 
293 31# 
34 34 
35 368 
30 3He 
41 42e 
42 4& 3H 
44 45% 
44 47s 
20 22 90% 
51 526 
51 53° 
43 hae 
18 41 ue 63 49 53 She 
45 hoe 
55 one 
bol} Sor 
39 oar 
59 624 
58 bur 
64% 65% 
66% ) 
64% 70? 
64 65 70 7e* 
69 75 
79 bO% 
#0 aie 
83 dae 
83 ase 
79 HO ave 
89 ¥oe 
8? 90 gle 
90 oe 
94 954% 
94 97% 
97 98% 
97 998 
99 100% 
99 1o1* 
roi lo2* 
lol 103% , 
103 104* 
96 103 105% 
105 106% 
105 108% 
708 lioe 
108 1)0# 
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INDEX 
500 - 110 
510 bed 110 
$20 - lie 
530 - 1342 
540 - 114 
$50 - 107 
$40 ~ 116 
570 - 116 
580 - 118 
590 - 119 
600 = r2)% 
610 - lel 
620 = Vel 
630 - 119 
640 - 346 
AANN - 14C0 
ABCYL) = 6co 
ACCEL - 8CO 
AHO - 10C0 
AIG - 24CO 
AINCHT <= aco 
AINCW « 13¢0 
“AKO - 3c0 
AKOY - 13C0 
AKR - 3CO 
100 
115 
AKRADJ = Jico 
AKRST - 13¢c0 
AKRTAU # 460 
AKRITMP « 402 
AKRIO « HSAG 
AKR2 - &6= 
AKR38 - 66= 
AKR4 - 67= 
AKSLOY ~ 3CO0 
AKU ~ 3c0 
ALETIL - 14CO 
ALPX - 0CO 
ALPY - 10CO 
AMACH = BCO 
aMIN1 - 82 
AMPN - 13C0 
AMW - 13¢c0 
ANIBO = aca 
ANLOPS = BCO 
AOE - 14C0 
OHM ~ 2co 
AP - 12C0 
aPHI - sca 
APX ~ 10ca 
APY Ld 19¢o0 
ARCO - 14C0 
ARC) “ t4co0 
ASEA - t7CO 
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114* 
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1198 
1204 
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3254 
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ASEX 
ASI] 
ASLVR 
AT 

ALE 

BH 
JOE 
BRNUUT 
STAGE 
HX 

die 
CKT IME 
CoMa 
COMG 
CUOMO 
coms 
vELF 
DELLRI 
VELT 
VELTA 
VEL1SS 
VELTST 
VELTTO 
DELZ 
UH1 
DIS 
DUMYM 
DWDOT 
EXP 
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boR 
ACO 
HHR 
aks 
HSUBMG 
LCHN 
LEND 
HIL 
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Irs 
INPUTA 
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INPUTF 
INPUTM 
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KDUMP 
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NAKEND 
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NEND 
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INVDE X 
NPH - 4c0 
NSLUT - 12¢co 
NSUBMG  - 17co 
NTAUWE - y2Cco 
NTAUTO - 4CO 
NTEST4 «+ 700 
NTME - 12C0 
p - 43C6 
106 
PA - 6CO 
PARMAR = 17 
PARMB - tee 
PARMF ~ 134% 
PARMH = 14% 
PARMR - 1S* 
PARMS - 16% 
PCTaB = 4&CU 
PD - 9Ccu 
PH “ 13CO 
PHI = 6CO 
PHST - 4CO 
PMAX -~ + 22C0 
‘PMIN - 12cu 
PON - )3ca 
PRAT - BCO 
RB ” 9c0 
E35 
KBHI - 10Ca 
HBSLOT, = 15CO 
HESTSH = 328 
XBSUB - 1% 
RAZ - gto 
RHZTO - 9co 
RETURN = 34% 
RFH] - 10CD 
RIG - ecu 
ROE I - 14C0 
HOPES - 14€0 
RSLUTA  & 4$c0 
RSLOTF = }5CO 
KXSLYR - 10cO 
RXX - 146CO0 
§cur ~ 1eco 
SLIFLG - 15CO 
STDOYST - Sco 
STFLAG - 5co 
SUMDVA = 17c0 
SUMDVE + 17co 
i ‘ - 13C0 
TFAUAKR = 4CO 
TAUTO - yeco 
TAUTOW + l= 
TAUWDP oe 9CO 
TAUZ - 9c0 
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24a 
133 
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THLAKR 
THE 
THRI 
THRO 
JHSLV 
CHSLYV 
TIMAKR 
TIME 
TIMEFH 
TIMEW 
TUFLAG 
TPR 

uU 

UCR 

ut 

VF 

vP 
¥SLVR 
wDUT 
woOTD 
wOOTT 
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YP] 
L£CALC 
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23CO 
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11Co 
13¢0 
viz 
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SUBROUTINE REVSUB 


SUHROUTINE REVSUd 


ecececccececcececceccccececececcecececcecccceccccccceececececccececcccec 


c 
c 


SUBROUTINE RBYSUB CHECKS THE VALIOITY OF THE QSURNING RATE EQUATION 
CUNSTANTS AND PRINTS APPROPRIATE DIAGNOSTIC COMMENTS. 


Ccececcecceccececceccceccecceceecceccececceeceeccecececececccecececceeccce 


10 


30 
40 


60 
70 


80 
9” 
100 
d10 


120 
130 
140 


50 


COMMON/INPUTEZAKG{(S) ¢ASU (5) sAKR (39) PAKSLOS (2) pNAKH ey TIMAKR (25) © 
TBLAKR (25) »NAKEND 

COMMON/PARMS/ICHN 

IF (AKG(1}}30010,30 

IF (AKG (2) 130920730 

IF {AKG (4) 1 30380730 

TF CAKUI1) 160040960 

IF (AKU (2) 160950060 

IF (AKU(4) 160580760 

WRITE( &s70) é 

FORMAT (32HOINVALID GCR 02 -UCR COEFFICIENTS) 

ICHN = 5 

RETURN 

IF (AKR (260) } 900140490 

IF CAKR (27) ) 10021205230 

WRITE 65]) 0) 

FORMAT (2Z1HOINVALID KR27 OR KRY) 

ICHN = 5 

RETURN 

IF ¢(AKR(29)) 13011009230 

IF (AMR (29)) 10001400140 

RE FURN 

END 


$7690 
57750 
57770 
D7PAO 
57800 


57420 
57830 
S7R60 
57850 
S7860 
57a? 
57840 
57890 
S7900 
57910 
57970 
57930 
57940 
$7950 
5796n 
S7970 
$7980 
57990 
58000 
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INOUE x SUBROUTINE ReVSUB PAaGF Jap 


bY¥MAGL Pee Heme Sepa Fete Hasse sade eee ewe we mewenes KEFEREWCES EMER EEO etme Ee mem ememeH stint tesmtot 
10 7 % S* 

<0 - - 5 6 > 

4D - 4 5 6 Tt 

40 - ? Ke . 

50 - 6 Qe 7 

60 - a a. +] 104 

70 -. 1]0#R 1h 

80 - 6 9 14% 

90 - 14 15+ 

100 - iS lot 20 él 

110 - 16WwR 17# 

120 = 15 2704 ‘ 

130 7 15 et 21s 

140 = 14 2 é2t 

AKG - 2C0 4 Ls 6 

AKr i 2co 14 15 20 ei 

AKSLOT - 2co 

AKU - 2C0 7 - 8 9 

ICHN - 3cu 12= 18= ‘ F 
INPUTE = e# 

‘NAKEND = 2co - : . 
NAKR - 2co 

PAKMS - Rad 

ROVSUB = 1# 

RETURN ~ 13* Lye dat 

1BLAKR + 2c0 

TIMAKR ~ 2co 
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SUBROUTINE RCSUB 
ceecececceeceerncecevecccuceeccceececeecececeecceccecc¢ecececececccecenc 


c SUBROUTINE RCSUd DETERMINES THE VALUE OF THE RADIAL DISTANCE FROM 
c THE MOTOR AXIS TO THE INTERSECTION OF "THE AF T-ENO BURNING SURFACE 
c AND THE MOTOR CASE FOR ANY CONFIGURATION (SECTION See3e2)» 


ccccececccececceccecceeccececceeccececcececceccccecc\ecccccecccecccccceccec 

COMMON/WORKA/AINC pANOoRF p TAUWORZpRIGRGARS eRGWR7T ARG 

] ALS1LeALS2eALAsALB PALE sAW(5) 

COMMON/ WURKDE/DE] «BE + ADE 

anpiincacatinas; vALFEMsALFE REZ eHEL pHE2 eHEO HER oe VFEOS VCE 

TAUEOs TAUEL CAE CBOE ¥CCCE pCCVEsCOCE »CDVE »CECE CEVE 

+ COMMON/CUNT/TAUGRCsSUMDVeXR sHE CAL ELSI @RDARIMSASE SAFF oT oT RAs 

] RAQOsALLSAJPP eAST 
. TF (TAU) 10930010 
10 IF CTAUEL=JAU) 20440040 
20 IF ( TAUEO=FAU) 50280950 
30 RC=RE] 

GO TO 90 
40 RC={{REZ=REL) PZERGOV(TAUE] ) FA TAUFRED 

GO TO 90 

50 IF (HEH1.) 70960470 

op AAASCCCEMCCVERTAUHHS 

BRAS (COCE~COVE *TAU##2) 

TEMP2SBE REGATTA HAY 

CCCHCECE + TEMP2=CEVE# TAUHe? 

CALL TNGRE (ASAgdBBeCCC ERC) 

oO TO 9 
7 PLITSCBE#ZERODY ( CAE} 

OLI T= (CCCE-CCOVE#+TAUF42) #ZEROOVICAE) 

RLI T= (CDCE-COVE*TAU# 2) 4#7ERODV (CAE) 

SLI T= (CECE +BE4#4 #7 AUR H4—CEVESTAUHH2) # ZERODV (CAE) 

CALL FUGREIPLITOLITeRLIT sSLITeRC? 

IF (TAU=$(RO-RE1I 230290590 

AQ RCERF 

90 kE TURN 

END 


45190 
49270 
45290 
45300 
45320 
45330 


45750 
45340 
45370 
45380 
45390 
45400 
45410 
45420 
45430 
45440 
45450 
45460 
45470 
454A0 
45490 
45500 
45510 
45920 
455 10 
45540 


45560 
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SYMBOL 


1a 
20 
40 
40 
20 
60 
70 
40 
90 
AAA 
AFF 
AINC 
AJPP 
AL 
ALA 
ALB 
ALE 
ALFE 
ALFEM 
ALL 
ALSL 
ALS? 
ANO 
AOEM 
ASE 
asl 
AW 
dBs 
HE 
Cae 
CBk 
ccc 
CCCE 
CCVE 
COCE 
COVE 
CECE 
CEVE 
comt 
VDEk 
FOGRE 
ne 
NEO 
HER 
HEL 
HE2 
PLIT, 
ULIT 
Ra 
Rav 
HC 
RCSUB 
RETURN 
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COP R EE RHEE METER ERE MERE RET EM ETERS MERE TER ES REFERENCES 
& 7% 
? ao 
6 ge 2b 
7 Li# 
a 13 
143 140 * 
13 208 
8 * 26% 
16 l2 19 2s a7ve 
145 LBAG 
5c0 
2co 
5¢0 : 
5CO 
2co 
2co , 
ecu 
4CO 
4Cc0 
SCO 
2cu 
2co 
eco 
3ca 
5co 
5c0 
2co 
15= 13Au 
3C0 13 16 23 
4co 20 ray 22 23 
4Co 20 
17= 1AaAG 
4co 14 2) 
4CO 14 et 
4co 1s 22 
4CcQ 15 22 
4Co 17 23 
4CO 17 23 
Se 
3co 
24a 
5C0 
4c0 
4C0 
4co 
4CO 
205 e4nG6 
el= 24926 
$co 
5CO 
sco 9= li 18AG 24AG 2s 26= 


PAGF 4354 


ee eed dat ee ee ee ee ee ee ek dk del ee el ad 


Prozul 9520 


INDE X SUBROUTINE RCSUB 
REI “ sco 9 il 25 ‘ 
RE2 - 4CO HH 
RF ” 2co 26 
RLIT - ees 24a6 
R2 = 2co 
R3 = 2co 
Re - 2cu 
RS - aco 
ut.) - ec 
RT - eco 
RB - 2co 
SLIT - 235 24AG 
SUMDYV - 5¢0 
TAU - 5c0 6 7 6 ik 14 ‘e) 
TAVEO - 4Cv 8 
TAUE1 - 460 7 1) 
TFAUW - 2co 
TDORE ~ joe 
TéMP2 - {6= 1? 
VCE - 4CO 
VFED ~ 4CO 
WI - Sco 
"WORKA - eu 
WORKDE = 3H 
WORKRE = Gu 
wT - sco 
ABARTH « Sco 
AR - 5ca 

THE VARTAdLE= ZERODV ~TS USED BEFORE IT 1S DEFINED 

ZERODV = 11 20 21 22 23 
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1 SUBROUTINE RGISUS ATN90 


ceecceccececceccecccceccecccececccceecceccccccecccccccececcceccccticeccene si2en 
c SUBROUTINE RGISua DETERMINES THE RADIUS OF GYRATION FOR THE R240 
c INCREMENTAL THIN SHELLS OF THE HEAD END WITH WER, A7250 


ceceecececececcccCeceececcececeecceccceccccecceecccecceccecececcceceecec HT270 
2 COMMON/CONSTS/GNOT oP Ts 2102 eRADIAN 
3 COMMON, TNPUTA/ET ADE NH} 34+ AOHM RIG» HHR 
& COMMONS INPUTU/LELF »PAsPH! sHCOSQELZ eKDUMP { 72) 
5 COMMON/WORKASAINC eANO SF o TAUWeH2eRIeRY eHSsRbeh TaRbs 
1 OLS1sALS2eALASALH SALE» AW(D) 


b COMMON/COMC/AMT Js AMT Te AJPH a SIBHO AUTH ALY 
7 COMMONS CUMD/SHOLD pRHOL De GF eRGT e XBARST pAUSTPSAUSTHeWTST 

4 RGF SyRGIA P 
8 COMMON/COMT/TAU SRC a SUMOV es XReHE SAL (15) eXBARTHVASE pATF ew] WT RAS 

] RAD ALL sAUPP AST 
y COMMON/COMVZAVSTASVSTOs FDMAXsNOLA sDOLE » XMAXe7MAXs YHAXSALHOS 

d ROVE] +ROPE2. 2OPF 3s AL DP 
16 COMMON /PARMD/KRASUH eKXQS J+ AJBH HET PAJHN » AJHH e KRARI 
Mu COMMON/PARMH/d LE SOE oAANV BX oRXXGASTL UELLRI sROPEG GALE sYPITeZP ls 

1 ARTOPARCE ROELSAL ITIL eZ1 sALGe THRE «a THROS ADE 
le WTh=Ue 87350 
1g bb WEE HPet*Z LGISIMSLE POEL FORE HZ, 3, 7360 
14 2b WLE Ss (HF -TAU HD HHO RP et ISLOS#BOE *DELE 4. . HTsTO 
1b 30 WIGE(DLE~dOE} 43, 41 S9#DELFHRIGHO? ‘ R734 
lo 4&0 TEMP=wiGSk[GG#27 (2.9GN0T} H7 II 
17 TEMPL=WLE¢ (RF TA UW) oad AT4A0Y 
18 AJPHOs (WBE SHE RH 2eFEMPIL} O24 (5 64#GNOT) © TENP 
19 50 TEMPS=wAt -WLE=W1S 8742 
20 TEMPS (BIE * SUE} ewl 6/20 S7440 
ra TEMPI=BOE*3.4HLE/Be K74a0 
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COMMONS COMV/VSTReVST Oe TOMAX DOTA SNOB sXMAKeZMAX ce YMAX SAL HO» 
1 ROPE] sROPE2s20PE3¢ALDP 
GO TO (100640 Je 
lo LF (DOLA*TAU) 20530030 
20 ROPEL=0. 
ou TO 70 
30 ROPELS=yOA+ US 
GQ 60 70 
40 IF (ALUP=TAU) 50260060 
50 RUPE2 = Oe 
ROPE 3=0- 
GO TO 70 
60 ROPEZ=YOArYOAP 
ROPEJS VOB + YOdP 
70 RETURN 
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48 DPR=DP5 49970 2 
69 DO 3SSQORT C1 X0d=X38) 4424 (YDR-Y3H) #824 (20N-258) $42} 49980 ren] ty 
7 DELLO=AKKeDELLO#ZERODY (DPR+DPS) 49990 : as 
7 ALP=HOLDR 50000 [>> 
Te IF (ALSUBX@ALP=NELLO) 17021609160 50010 iy 
H3 160° ALRP=ALP¢DELLO 50020 

1 GO 10 180 50030 7a 
tb liv) ALPSALSUBX ; 50060 

76 180 = CALL. «BSUBC $0050 

ti IF (1CriN«EU.5)GO TO 840 509n0 
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SUBROUTINE SCI IL} 


CALL ROPSB(K) 

TEMP] =(AE TA+AL TS) 4 (OPR4DPS) 44.¢AS1 
TEMP4=k20M=TAU 

IF (TEMPS) 19 s2000e200 

TEMPG=060 
TEMPS=(ALP+HOLDR) 4 (TEMPS) #ZERODV (R20M) #ROPE 1/2, 
ASTL=ASTI+TEMRG 

ASISTEMPG+TEMP] 

DOLA=SURT { (XGA“X1A) 9924 (YORWYLA) #24 (ZUA—Z1A} 882) 
DOIB=SQRT ( (A08~AIB) 426 1 YOHHY 1) #8 2¢ ( Z0K-218) 452) 
IF (TAU} 2209210 e220 

CALL VSTRSB 

LF (ALSUSAALP) 23098200230 

CALL THAN (RAHsHAAs46) 

HOLDR=ALP 

ALP=ALP4VELLO 

TF {ALP*ALSUSX) 11091100260 

ALPE=AL SUBX 

GO TU p10 

KVSTR=2 

KRASHB=2 

KXRSHA=Z 

KGAM=2 

ALXX=ALAUM 

KHRAKE] 

DELLU=DELE OF 

IF (AL X X20 2} B20 09209270 

ALPH0. 

CALL ASUBC 

IF CICHNJEU.5)50 FO 840 

DUZ=SURT (1 X0AWABA) HH Ae (YOAKVGA) FH O4(ZOUA=ZIA} HHA) 
IF (TAU-DUS) 31052906290 

ALPSALP 40, FAL XX 

TF CAL P+ALXX) 2BG 53005 300 

ALPHALXX=0, 1 #AL KX 

HOLDR=ALP 

TF CAL XX=VELLO} 3309520, 320 

ALP=VELLU 

GO TO 340 

ALP=ALXX 

CALL. sSUdC 

IF CLICHN.EQ.5)G60 TO 840 

LF (003~TDMAX) 3609350 5 350 

TDMAX=D03 

XMAXEXIA 

YMAX=Y3BA 

ZMAK=LZIA 

LF (TAUMS .001L=TDMAX) 13051504360 

OPR=SuURT ( (XOA#XOR) 4426 (YOA@YOR) #24 ( ZUA=Z0H) #2} 
DPS=UPR 

VOB=SGRT ( (X0B-AI3B) HH 26 (YIRWYIG0) #424 (| ZOB~Z 38) #42) 
DELLOSAKK #DELLU#ZERUDYV {OPR+OPS) 

TF {DELLO) 37053705340 

DELLO=DELLOI 

ALP=HOLDR 
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50090 


SO1L10 
50120 

S01 
50140 
50150 
50160 
50179 
50180 
50190 
50200 
50210 
sa220 
50230 
50740 
Sn25o 
S0260 
Soe 10 
Su2ao 
$0290 
50300 


50120 
SOD 40 
503460 
450350 
SN460 
40370 
50 3H0 
50390 
50400 
50410 
50420 
5N4 io 
50440 
50450 
So4A0 
Snein 
So4ng 
504690 
SAS0o 
59510 
$0520 
$0530 
505460 
50550 
S05A0 
50570 
50580 
$0590 
S060 
50610 
Soney 
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134 IF (ALAX“ALP-DELLO) 40093905390 Sth 0 

13d. 39) ALPSALPRDELLO 50640 

136 oO TO 410 S0h20 

1a/ 400  ALPSALXX 596n0 

148 410 CALL BSUdC 50670 

149 CALL BRAKSS S06H80 . 

lau K=} “ 50690 

141 CALL RUPSU IK) $0700 

ba2 AQLLSASTL+ROPELPARAK/2, 5O710 ; 

143 ASI SROPELRBRAK/24¢ (ALTA+ALTB) #(DPR¢DPS) 740 ¢AST . sare2o 

Lay DOLASSURT ( (X0AMKTAD FHS 4 (YORAM LA) PH 2¢ {ZOR—Z1 A) wh?) 50730 

14b NOL=SAKRT { (XOS-AIB) #42 ¢ (YOH=YVIB) 8424 {Z00—21K) oH?) Suzan 

146 TF (FAU1430 54200430 SN7o0 

14? 420 CALL VSTRSB 50770 

las 430 TF CALAX$ALP} 4402820 4440 50780 

149 440 122 = 46 50790 

150 CALL TRAN(RAdeRAA 4] 72) ; S0800 

1Si HULUR=ALP Soapo 

lye ALPSALP*HELLO POE] 

lod TF (ALP=ALXX? 34069940 0490 . 303 40 

1$4 4S) ALP=ALKX SiAao , 

iss uu 10 349 SO8SO 

lbb 460 ALUP=T 2M f SO4H0 

157 VELLOSDELLOI Sod7o 

128 ALIA= (Tem=R ISOM ASIN GE CACTI HAZ) 1/20) PZERODVICOS (CAC) 8 (2)9 220) 1 

199 IF (AL 3A G/N e420 04670 SoRga 

leu ALP=0. Save 

lol KRASHd= 3 Sovln 

162 KxXRStH= 3 Save0 

lod KGAM=4 50940 

loa CALL HASUEC 50940 

loo LF (I CHNSEU,5) 00 TO 440 50940 

lbo RRASHHEG 0260 

ios KARSAHS4 50970 

los KGAMEY SOYA 

16? CALL HHSuuct 509990 

Yfu IF (I CHES) OU TO 440 Sloe 

Lf 127 = 3h : 519eh 

1f2 CALL TRAN EXUADXOsT 22) b1030 

173 HOLUR=aLP Slee 

1 TF (AL 3A*UELLOI 490 24805480 51050 

wee) ALP=DELLU S1O0A0 

tf of TO S00 51070 

17? ALPSAL3A 5.080 

lid KRASBB = 3 91990 

l7y KARSAB=3 u Slla0 

1u0 KGAMS3 51110 4 S 

lai CALlL RAPSSC 51120 bet 

182 IF (ICHNeEU.t) GU TO 840 51130 ty 

163 KRASDORG : Sian © B 

184 KXRSHUS4 41450 =) 

185 KOAMSS 51150 eo a 

L36 CALL HEPSBC Srl?0 Qn eA 

La? TE LECHN.EN,5S}GO TO 840 $1180 Cc ? 

188 127 = 38 $1200 B 
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SUBROUTINE SCI(L} 


CALL TRAN(XOAP »X0sI1 22) 
CALL DPRASS 
DELLO=DELLO#AKK# ZERODV (DPRA+DPSA) 
ALP=HULDR 

IF (ALJA@ALP-DELLO) 52005109510 
ALPSALP+DELLO 

GU FO 530 

ALPSALIA 

KRaSBA = 3 

KARSHB=3 

KGAMEA 

CALL HAPSBC 

IF (ECHN.EQ@.5)60 TO 840 
KRASBOS4 

KxRrSAk=4 

KOANRS 

CaLL HHPSHC 

IF CUCHH.EN.51GQ TO Hae 
1Zz = 38 

CALL TRAN(XOAP eXO0T 22} 
K=2 

Cath RUPSHiN} 

DOPSAZU,, 

DPRA=0, 


TEMPISROPE IY SURT ( (XOHXOSP) Hae ¢ (Z08~Z2Z0dP) #82972, 
TEMP1= TEM] +ROPE25SuURT ( {A0A=XOAP) #924 ( ZOAZOAP} F442) 42. 


ASTLSAST I+ TEMP) 
ASISAST +1 EMP] 

1F (AL 3APALP I S40 68200550 
1%? = 46 

CALL TRAN(RAAP ROAST ZZ) 
127Z = 46 

CALL THAN(RABP SWaRe L722) 
HOLBR=ALP 
ALPZALP+VELLU 

IF (ALJA-ALP) 55055000500 
ALP = AL4A 

GU Tf Soo 

KRASAH = 5 

KXRSHB=S 

KGAMES 

AL {SPS (ACL }-AC2)1 #RIDM 
ALSUBA=AL 03) 

RXX=RIIM 

DELLU = DELLOL 

IF (ALSUBX)S80 ¢K20,580 
ALP = 6. 

CALL HASUBC 

[F (I CHN.EQ.5)60 TO 840 
ALP = 4LSUBX 

CALL HBSUBC 

TF (ECHN.6£0,5)50 TO 8340 
1ZZ = 38 

CALL TRAN(X0AeX0,1Z2) 
K=} 
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5lLivt 
S13A0 
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S410 
51470 
$1430 
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Slasn 
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514690 
41500 
51510 
51520 
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S140 
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Si5y0 
$1en0 
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B14? 0 
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CALL RUPSB IK) 
TEMPRALPH (AXXe TAY) CROPE 1 #ZERODV (2. 4RXX) 
ASTI=AS119 TEMP 
ASLIFAS1+ TEMP 

GO To #20 

KVSTR=. 

KRASBH=6 

KXRSHH=6 

nGAMEG 

KKRAKSL 

ALXX=AL8DM 

K=2 

40 TY) 260 

KVSTReGq 

KRASdHe?7 

KARSBAS7 

KiAMET 

KARAKS? 

AL (DS) (ACT A(2)) #RODM 
ALXAXRAL (5) 

GO TO 260 

KVSFRES 

KRA SADE 

KXRSdd=0 

KGAHES 

KRRAK=] 

ALXAPALC 

bo TO 260 

KVSTREG 

KAKAKS 

KRASHHS9 ‘ 
KARSBH=D 

KGAM=Y 

ALT /) =(PLO2¢Td?-A0 3) }#RSOM 
ALXA=AL (7) 

GU 10 260 

KVSTRE7 

KRASHB=1O 

KYARAK 53 

KXRSKHB=]0 

KGAMS LO 

AL (9) SCP LOZ © THh3-4 41) #260M 
ALXASAL (CY) 

GU TO 260 

KVSTRSH 

KRASHB=1I 

KXRS4B=1)} 

KGAMELL 

KBRAKE] 

ALXAZALD 

bu TO 26u 

ALDPETL2M 
DELLO=NELLOI 

ALI LA=(TL2M=R TDM) OT ANC CALS) $A (41) 720) 
TF (ALT LA) 6905820+690 


91790 
S1LHu0 
$1410 
51420 
S1AW0 
S51 R40 
51850 
$1860 
51470 
51840 


S}900 
51910 
51920 
51940 
$1940 
41950 
51 9K0 


Siena 
51990 
Senne 
S2nin 
SPoen 
52130 
52040 
52050 
SPnb6 
sPen7o 
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Se2070 
42100 
SPlto 
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SUBROUTINE SCE{L} 


ALP=D. 

KRASAG=12 

KkRotds}2 

RGAMEY2 

CaLL HaSunC 

IF (TCHN.EQ.5)G0 TO 840 
KRASBH=13 

KARSBH=)]3 

KGAM=z}3 

CALL HRSUKC 

IF (I CHN.EU.S)50 TO 840 
{72 = 38 

CALL FRAN(XOA¢X0+122) 
HOLUR=aLP 

IF (ALL LA-DELLO) 7105 700,700 
ALP SDELLO 

GU TO 720 

ALFP=ALELA 

KRASHH=) 2 

KxARSbb=] 2 

KGAM=12 

CALL HAPSSC 

[FP CiCHN,£0.5)50 TO 440 
KRASHHS13 

KXRSRBS] 3 

KGAM=1 4 

CALL HBPSBC 

IF CI CHN,EQ,5)50 TO 840 
'22 = 3H 

CALL TRAN(KADAP eXOeT 22) 
CALL DPRASH 
VELLOSLELLOFAKKAZERODY (DFRASNPSA) 
ALP=HOLDR 

EF (ALLL AWALP~JELLO} 74027305730 
ALPSALP*VELLU 

60 0 750 

ALPSALIIA 

KRASBBELE 

KXRSBBS12 

KGAM=I2 

CALL HaPSBC 

IF CI CHNLEQ.5)50 TO BGO 
KRASBB=13 

KXRSBHR=13 

KGAM=13 

CALL HBPSBC 

TF CICHN.EU.5)50 10 B40 
12Z = 38 

CALL FRANOXOAP, X00, 022) 
K=e2 . 

CALL ROPSS&{K) 

DPSA=0. 

UPRA=U.4 


TEMP 1 =ROPEI#SQRT ( (KOB-XDSP) #24 (ZOB~ZOUP) 442) £2, 
TEMP LS TEMP1 ¢ROPE2SSORT ( (XOA~XOAP) HH 2+ (ZOA~ZOAP) HHI /20 
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ASEL=ASIL+TEMPL 
AST=AS1L¢TEMP] 

IF {ALI PA*ALP) 770.820.7700 
1Z2 = 46 

CALL TRANCRAAP sRAAYI72Z) 
127 = 46h 

CALL TRAN (RAGP gRABR LIZZ) 
KHOLDR=SLP 

ALP=ALP+DELLO 

1F (ALLIA“ALP) 740s 720.720 
ALP=ALI1A 

GO Tu 720 

KRASHBS14 

KXRSBBE]4 

KGAH=L4 

AL(L1L) = CA{S) -A(4)) ¢R70M 
ALSUBK=AL (11) 

RXXSR70M 

GO [0 S7v0 

KVSTR=9 

KBRAKS) 

KRASBB=]5 

KXRSABH=LS 

KGAMELS 

ALXX=ALEUM 

GO TO 260 

KV¥STR=L0 

ROPE SIRO +HRDY 

KRASHB Slo 

BKARSHB=L6 

KGAMN=1l6 

AL (13) s(P1ID2+A (5) )eRADY 
ALSUBX=AL (43) 

KKsZ 

6O FO 30 

IF (KK) 84098400850 
RYPEGSN) RAM 

RETURN 
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INUEX 
SYMBOL 
bo - 2) 
20 - ous 
30 i 38% 
40 - 39 
20 - 4j)e 
6D - 46 
fu - 48 
80 - 46 
30 - 51 
tuo - 91 
110 - §3 
120 - $7 
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180 - $7 
160 - Tye 
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END 


79070 
79110 
79330 
79140 
79150 
79170 


79190 
79200 
79210 
T92P0 
79230 
T9246) 
79250 
79260 
79270 
79280 


PAGE 


395 


Gq 


= 


2 


Pruzuel-9 


96E-£ 


INDE X 


SYMBOL 


lo 

20 

30 

AK 

AKK 
ALDP 
ALHO 
COoMY 
VLRFE 
DOA 
v018 
DORVRE 
i 
INPUTC 
RETURN 
ROPE} 
ROPE2 
ROPES 
SCTORZ 
$25K 


“TDMAX 


VSTO 
VSTR 
XMAX 
YMAX 
ZMAaX 


acer rte tartare t eet eprrtetigay 


SUBROUTINE SCFOR2 


PHF EEE HERE ETE MESSE HOt EMe MEMES eoee 


600 

Ow 
ll 

ecu 


2co" 


3C0 
3CoO 
34 
ecu 
30 
3c0 
2co 
600 
ee 
138 
3cu 
3C0 
3c0 
14 
Te 
3c0 
3C0 
3c0 
3c0 
3co 
aco 


Ta 
li 
lan 


TAS 6= 


4= 


gAG 


REFERF NCES 


PAGE 396 


WHO FOO MOM EE RENEE HEME HE KER EH eK em bHe Hts 


Pe ee eee ee ee ee ee ee eee ee ee eee ee ee ee ee er ee 


pruZbUL-yS7e 


£6E-E 


INDE xX 


o o FeRwy 


cm 


lu 


ll 
lé 
13 
ls 
15 
16 
l? 
18 
ly 
20 
él 
22 
23 
a4 
26 
26 
er 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3o 
39 


4t 
42 
43 
44 
45 


ceccce|ececcececcceccccecccecc ee ceceeccecccecceccececce ee cCececccecrcececee. 


c 
c 


SUBROUTINE SDIDISCIEX) 
SURROUTINE SD1D13(1EX) : 


SUBROUTINE SDEIDI3 DETERMINES THE CENTER OF GRAVITY AND MOMENTS OF 
INERTIA OF THE STRAIGHT THROUGH GRAIN END SECTIONS (SECTION 5.3). 
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COMMON/CONSTS/GNOT PT aPTI2¢eRADTAN 

COMMON INPUTU/DELF pPAsPHE eHCOOsDELZsKUUMP { 72) 

COMMON/ WORKA/AING s AND 9 2F 5 TAUWSR2 eRICRG PRE eRGEIR7T RD 
1 ALS] sALS2+ALAsALB PALE sAW ib} 

COMMON/ COMBS ANH» AJPHN pAJSHNs TAUAOs AJPHED +e AJBHED » AJPNOZ eAJANDZ 
1 XPHeXBNSHNTINT 
COMMONS COMT TAU SRC» SUMD Ve XR HE pAL (13) eXBARIHOASE sAFF eWI oWI RAG 
1 RAD SALL sAJPPSAST 
COMMON/PARMD/KRASUB o KXAS UBS A JAH SHE T's AIBN eo AJIBHS XRART 
COMMUN/PARME /REG DELLE» XSARINSHCHeKWIT) eKWIT2 9 LSWETLS ALSXe 
t AJPN, AJPH 
COMMON/PARMF /PHy TIME sAINCWe Te PoDELTAGUy AKGY sPONEDISeAMPNo ATs 
‘ AMW Ss AKRST 

CUMMUN/PARMH/3 LE sHOE eAANNe BX RXXASTL GDELLAI pROPEGOATE SYP 9 ZPhe 
L ARCO SARC] «ROE SALITIL Zi s AL Ge THRI ¢ TARO ADE 
CUMMON/PARMAB/ ASUBMGsNSJBMG eNEND se ASE A, ASEB s+ SUMDVAsSUMNVH 
COMMUN/PARMAC/ HEAsHEU es AEEA s AEF B eDVAsDVBeNE LAsHE LHe AWE ASAWER NEL” 
COMMON/PARMAE/ XSARLTAsXSARTHs AUJPPA pAJPPHs AJBBA eA JR 
COMMON/PARMAF/ WIAsWIdeWTAeHTB 

IEx=1 

IF (ALSX) 2109210210 

ALL=0. 

CALL RASUS(KHASUB) 

IF (RF TAUW+ TAUAD=RA} 20 620050 

IF (LSWITL AL) Sue 3UeGu 

TE xse2 

GO TO 210 

TEXx=3 

GO TO 210 

CALL XRSUB (KX SUA) 

CALL He SUS . 

RADSRA 

RE | KE 

HE JASHEA 

HE TB=HES 

THRO=1 a5 70795-ACOS { XR¥ZERODV (RAO?) ) 

ALL=DELLI 

IF (ALL#“ALSX) 70¢70 +60 

ALL=ALSX 

CALL RASUB(KRASUB) 

IF (RF TAUW*+ TAUAD@-RA} AD, 90990 

RASKF <TAUWs TAUAO 

CALL ARSUB(KXRSUd) 

CALL HESUY 

THR1L=14570795~ACOS (XR#ZEROWV ERA) ) 

GO TO (1005110 dekwlTl E 

AJPPSAJPP+ (THRI + THRO) 765 PAANNY {RASH4—RADHBS } 

WI=WT+ (THR + THRO) /20 #AANNY (RAHHC“RAQHH 2) 

AKGY=SORT (AJPP#ZERODV (wT) ) 

GO 10 170 
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SUBROUTINE SEGSUBCIE) 


AKGY=AKGYY 
RF=RFY 

AFFRAFY 

GO TO 410 

TAUMWSTAUMX+ (ALNCH@AINCK) 4 (TAUMY~ TAUMX) 4 (AINCY~AITNCX) 

IF (FAUMW) 31593200315 

IF ( TROLD-TAUMw) 330+ 330,320 

ALP=O- 

AFF=.0 

AL7=0.0 

RF SRF X+ (RF Y=RF Xx) (AENCWeAINCX) JCA TNCY@AINCX) 

HSL VRERSEVRAS (RSLVRY=RSLVRXD Y (ALNCW*AINCKI SCAT NCY@AINCX) 
APHI.IGIBIERF REZ MAFF 

GO TO 410 

IF PERIMETER LENGTH AT UPSTREAM OR DOWNSTREAM 2,9. GOES TO ZERO, 
CHANGE PEXIMETFR INTERPOLATION SCHEME 

TFEALPAsEUs el eOR, ALPY*EN.0<0) GO TO 331 

Go f0 339 

JF ¢ALPX,EQ,ALPY} GO TO 339 

DO 3324 [=] sPLANE 

IF fAINCASEDeAINCINIE)) GO TO 336 

CONTINUE 

WRITE (69335) 


FORMAT (*EATNCX NOT EXACTLY ENUAL TO AN AINCINGT) VALUE IN SEGSUAND 


ICHNSS 

RETURN 

Fae § 

TAUMAX = TAUMX 

IF (ALPASEQ.000) GO TO 337 

GO fO 338 

L=Lel 

TAUMAA = TAUMY 

NDUMX=NGEO (L) 

TAUDUM = TAUMAX=CTAUMH=TAUZCTTI)? 

nO 3373 151 eNDUMX 

OUMAL CE) STAUPL IT el) 

DUMX2{1) =ALPPL (ToL) 

CALL ALJN(DUMX 1] sDUMK2 +s NDIMX » TAUDUMs ALP 420) 

GO TO 3390 

ALP=ALPX+ (ALPY*ALPX) ® (ATNCWHRAENCK) J (AINCY@ATNEX) 
RF =RF X+ (RF Y<REX)S(AENCWHAINCKX) ZCAINCY=AINCX) 
HSLVRSRSLVR K+ (RSLVRY=-RSLVRX) & CATNCH@AINCX) Z CATNCYMAINCX) 
AKGYSAKGYA+ CAXGVY-AKGYX} & {AINGWHAINCA} 4 (AENCY-ATNCX) 
AF X=36 141 594RF X4#2-APX | 
AFY=3e LG1S94REY HHA MAP Y 

IF (RSLV} 350 53509340 : 
CONTINUE 

THOLDFAHINI (THOLDs (RSL VRe1L. OF=06) }: 

CONTINUE 

Tavs THOLD 

TEMP=CAENCWHAINCX) J (AINCY*AINCX) 

IF ( TAUMX) 37093604370 

AFF=ALPX#{ TAUMW TAU) #(),—<TEMP) +AF Ye TEMP one 

60 TO 400 

IF (TAUMY) 3909380390 
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AFFSALPY® (TAUMW=TAU) #TE MP ORF X? (2 = TEMP) O82 

GO TO 4090 

AFFSAPX#( (1 4-TEMP) + ( TAUMY<TAUMX) # TEMP? FAUMX= (TAUMY=TAUMX) # TEMP HS 2 
KSTAUMX) (AF Y® (TAUMX# TEMP /TAUMY~ ( TAUMX-TAUMY) ®TEMP482/T AUMY) 
APSdeIGISYURE HHQeAF EF 

CONTINUE 

TF CRSLVR) 440 24404420 

CONTINUE ; : 

TAUZ (ILE) SANENE CTAUZC ITI) » (RSLVR+1.UE=06) } 
CONTINUE 

TAUZTOCIE LT) AMIN] CTAUZTOCIET) » (RSLVROk OE ~06)) 
CONTINUE 

IF {KOUMP (6) )47024702450 

CONTINUE ‘ 
WRITE (65460) APS ALP SAFE sALPXeALPY @APK APY sAINCH s ATNCX SATNCY 9 TEMP 
XU 
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CONT INUE ; 

IF (TAUTO) 5005500 04K0 * 
CONTINUE 

IF (TAUW OE) @TAUTO@ TAL) 49054905500 

CALL LPTO 

ALTOS (AL7+AL6) #2, #ANO e 
TOFLAG=}.0 y 

CALL RASUB 

IF ¢1 CANE U.S} HETURN 

TOFLAG=0.0 

RAZ (LEU) SRB 

IF (SLTFLG=5.0)51025405540 

CONTINUE 

UWDOT SEL Z ®DELF # ¢ (ALPHI] =ALTOHI) RUHL ¢ (ALP ALTO) ORB1 7/20 
IF(TIME .LTs SELT «4ND, STFLAG «GT. 0.0) DWNOTSO,0 

TF (PCTAS} 53095300520 

CUNT INUE 

O#DUT=SNWDUT#PCT AS 

UWDUT=AMAK? (CDn00T 0060) 

IF ( TAUTO) 81006109550 , 
CONTINUE 

IF ¢TAUW( 1} =TAUTO-TAUTOZ) 5609560 +A10 
TSLVREAMINI (RSL VRs TAUMW) 

1F (TSLVR)S70s570.5H0 

TSLVR=TAUMW ‘ 

CONTINUE . ‘ 
IF ( TAUW(}) -FAUTOZ) 590 55904600 

CONTINUE 

2x = 0,8 

CALL XLINCTAUAKRAKRTAUs Ne ZX se HKRTO921) 

TAUTOW=0,0 

Nst 

GO TO 4660 

B00 620 IRlsNNN 
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SUQROUTINE SEGSUB (TE) 


EQUIVALENCE 
DIMENSION DUMKY (50) sbU4K2 (59) 
AL7=0.0 
ALB=0e0 
ALTO=0,0 
RB7=0.0 
RBB=060 
OW7=0.0 
DW8=060 
IF (TIME) 10510920 
CONTINUE 
NTEST=0 
CONTINUE 
IF (NTEST~-1)300100730 
CONTINUE 
IF (NRECONJGE.0) GO FO 80 
IF (STDYST 100) 800440040 
CONTINUE ‘ 
NIEST=] 

IF (NTME) 80280050 

CONTINUE 

NN = NIME 

N=NTME=] 
TAUTU=TAUAKRINTME} 
IFINTAUTO.GT.O) TAUTO=0.0 
AKRTOM=0, 0 

WRITE (6260) 

FORMAT (1H1) 


WRITE (6970) {Le TAUAKR (1) sAKRTAUCT) sl=l pNTME) 
FORMAT] HXs4345TART TRANSIENT BURN RATE COEFFICTENT TASLE/ZLHX 1X 
KIH} 9 7A p SAT AUG 9X JHAKAS (2X01 ¥e2Xe PERL S 492Xo1 PELL e4/)) 


IF (NAKRST) 1000100990 
NN = NAKKST 

NsNAKRSTo-] 

IF (NTME.OTeO) NNNENTME 
IF (NAKRST eo GT 60) NNN=NAKRST 
IF CEET#19110¢2b100160 
CONTINUE 

IIs51 

ABSLOT=0.0 

WGPORT=0.0 

ALP=ALPX 

AP=ZAPX 

AKGY=AKGYX 

IF (TIME) 12091200130 
CONTINUE 

RF SRFI(1) 

RB ZTO(1) =kE 

IF (TAUTO) 16051606140 


IF (YAUM (1) TAUTO*TAUZTOCII) 150» 1509160 


CALL LPTO 

AL TO=(AL7+ALB) #2. 4AN0 

60 TO 430 

IF CLI4=21)17091705,220 
TSLVRSAMINI (RSLVRKs FAUMX) 


(AX (38) + TAUMX) » (AY (38) ¢ TAUMYS 
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44300 
41310 
41370 
41330 
413460 
41340 
41370 
41 380 
41410 
41420 
41430 


41440 
41450 
41460 
41470 
41440 
41490 
41500 


41520 
41540 
41550 
41560 
41570 
41540 
41590 
41600 
41610 


41660 
41650 
41640 
41670 


4) 740 
41690 
41700 
41710 
417? 0 
43730 


41750 
41760 
41770 
41780 
41790 
41800 
41810 
%}320 
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INDEX 


as 
3o 
a7 
6a 
ay 
90 
91 
92 
93 
94 
95 
96 
oT 
96 
99 
106 
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lue 
103 
104 
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107 
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M2 
113 
114 
115 
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ldu 
lel 
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129 
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270 
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TF CESLVR} 140¢1809190 

TSLVR=T AUMX 

IF CTSLYR@ TANT OMTAUZ (1)) 20042009210 
RSLVR=TSLVAR 

TOFLAGSI of 

CALL RBSUB 

TF CICHN,EQ.S5) RETURN 

TOFLAG=0,0 

RBZ(1)=RB 

IF (SLTFLG)} 23092300970 

CONTINUE > 
AINCHISZCALC(IT2) 

IF CLIT sEWel) AENCHI=0.0 

Itl=tIfei 

lidelIue. 

AINCW=2CALC(ILYE) 

TAUBTAUZ(ITT} 

TAUTOZ=TAUZTUCIIT} 

THOLD=T AU 

TEMP=fAINCW=AINCK) ZTAINCY@ATNCX) 

DEL ZSATNCwWeAINCHI 

IF CAINCWHAINCY) 27002704250 " 
CONTINUE 
IF (AINCY@ SCURCIISs}) 
CONTINUE 
ITTSIi) 
ilJel[J-) 
RETURN 

IF {AINCW= SCURCIISe1} ) 290.280.2860 it, 
AINCWSSCUR(I1591) Oe 
NEL ZEAINCWeATNCHE ‘ow 
TEMP= (AINCW@AINCA) /(AINCY=AENCX) 
PRNT(CT11914) SRBZTIO(IIIT) 

AFHI=AFF 

APHI SAP 

ALPHE=ALP 

AKGYHTSAKGY 

RBHI=ERB 

RF HIT =RF 

ALANI=ALK 

AL 7HI=AL7 

RUBHI=RAB 

RBTHLERB7 

ALTOHL=ALTO 

AL 7=000 . 

ALB=000 

ALTO=0.0 

RB7=0.u0 

RBB=060 

DW7=000 

OwWs=0.0 

LF CAINCW=AINCY) 31093009310 

RSLVR=RSLYRY 

ALP=ALPY 

AP=APY 
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2o7 
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ete 
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ets 
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284 
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SUBROUTINE SEGSUR(IE) 


CONTINUE 

Ne] od 

TAUTOW=TAUW OL) -TAUTOZ 

TAUPOW=AMAXL (TAUTOW 020) 

IF ( FAUT OW) 640 9640 5650 

CONTINUE 

CALL XLIN(TAUAKR eAKRTIAUSNNG 7XgAKRIO ree) 
GO FO 660 

CALL XLIN(TAUAKR eAKRTAUS NN» TAUTOWSAKRTO8 2.) 
AKRTOWSAKRTAUCL) 

TAUTOXETSLVR»TAU 

TAUTOXSAMAXI (TAUTOX 9020) 

IF (TAUTOX) 67006705640 

CONTINUE F 

CALL XLIN(TAUAKRsAKRTAUS ING ZX sp AKRTOK 924) 
GO FO 800 

IF (TAUTOX~TAUTO) 70026904590 

CONTINUE 

MENNN 

TAUPOAHT AUTO 

GU TO 730 

vO 720 I=beNNN 

IF ( TAUAKR(T) <TAUTOX) 7206 7.306730 
CONTINUE 

M= 1 

CALL XLINCTAUAKR SAKRTAUs No TAUITOX SAKRTOX 925) * 
UF (TAUTOX=TAUTOW) 74007404750 

CONTINUE 

TAUTUWSTAUTOX 

AKRTOWSAKRTOXK 

6O FO HOO 

AKRTOW=0.0 

IF (N-M) 7605 7804790 

CONT ENUE 

NN=Mo1 

OU 770 T=NeNN 


AK TOWSAKHTDW+ (AKRTAUCT) #AKRTAU(CT 42) ) 4 CLAUAKR OT 41} © TAUAKROT)) 726 
AKRTOWZAKRTOW+ (AKREO+AKRTAU (ND) *(TAUAKR (NI MTAUTON) /2,46 


XAKR TAU {M) +AKRTOX) HE TAUTOX<TAUAKR OM) 1 72, 
AKRTOWHAKRTOWS (TAUTOX=TauTOW} 

GO fO HO0 

AKRTOW= (AKRTO+AKRTOA) 72, 
RHBZAKRTO#P*4AKR (37) 
RB7=AKRTOWPPRHAKR (37) 

RBZTOCII LP SR87 

IF CLLI~1)1602160s820 

kS7=Rkb 

RBA=KB 

RHZTOCITED=RB 

LF (SLTFLG.ILT.0.I60 TO 930 

IF (SLTFLG5-0)83099700970 

CONTINUE 

DWE=ANO4 (ALB *#RE B+ AL SHI ORBBHT) ONELFYOELZ 
DW724N04 (AL 74RB74+AL THE®ROTHI) HDELFSDELZ 
[F (BRNOUT~1.0) 67028409840 
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43620 
43630 
43640 
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43660 
43670 
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44700 
43710 
43720 
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43740 
43750 
43760 
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SUBROUTINE SEGSUBLIE) 
IF (KOUMP (4) } 87098709850 


BOO WRITE (64860) (AL CT) pT=1 54) pALI7) eAL (G8) SALT VALGeOWDUT ye 


850 


870 


XDW7 sDWH RET RBA eAKRTOs TAUTOWSAKRTOXs TAUTOX» AKRTOM 
XKRTOW Ng NNOMS TTI 


FORMAT (1HXsOHAL (1 }=1PE126Se 1X eGHAL(2)51PE1)] 6491 XeGHAL (3)=1PE11.401 
KXsGHAL (G4) S1PE] be Se LXeG4AL (7) SLPE] 1 o4e 1X sGHAL (3) =JPEL 1 e4/1HX ep SHALT= 
KIPEL1 64 eth 24HALS=)PE2 1649 1X e6HDWOOT=1PE] 14, 4HOW?SLPEL1 649 4HOWSEIP 
KELL 6491 Xs GHRB7=}9E1) 441% e4HRBS=1PEL) 4/4 1HX eGHAKRTOAIPE IL ooo 1X9 PHT 
XAUTOWSIPEL 1] 6492X9 THAKATOXEI]PEL1L 649 1Xs THTAUTOXSLPERL 49 1X0 THAKRTOME 
MIPE110491X0 7THAKRTOWE IPE} 1.4/1HXe2HN=I 30 1X9 SHNN=T 301 X92HMET 30 LX eGHT 


KJ] 1=13) 

CONTINUE 

OWDOT=DWDOT +DW?7 edWH 

IF (TIME LT. DELT SAND SSTFLAG.GT.9.0) UWDOT=0,0 
AXCYLSABCYL? (ALPHE*ALP) #9ELZ/ 2. 


GOO VF I= (9s 141598RF HY the em AP AT +3. D4 1 S9YRF ote AP) + 


910 
920 


930 


XDELZ/2. % 
LF UVF E)9RUs91 09920 

CONTINUE 

VF TRO00 

VF SVP +vF 


TEMP 1S (o25# (AINCWRAINCAT} +HCOMAINCW) (3.146 1594RF eho, AD) 
AQMCYLSAOMCYL+ (0.75% (AINCWMAINCHE) +HCOMATNCW) © (3,24 1994RFHT #42. -AP 


KHL) + TEMP) & (AINCWHAINCHE) PDELF 26 


ATPCYLEAIPCYL + ( (30 1S1S9S2FHI 8 52-APHE) PAKGYHI A426 (36 LGLSOURE HA2—AP} 


XHAKGY RHR, CAL NCWRAINCHI) OVELE S(GNOTO?.) 
TEMPLSAKOY##2, 

TEMP2=.25*% (AT NCHSQINCHI) ¢HCOAINCW 
TEMPESTEMP]+TEMP24#2. #2, ; 

TEMPR=TEMP 1+ (AINCWHAINCHI) 42.700 - 
TEMPESTEMP1# (3,141 59*RF UH 2—AP) 72, 

TEMP2=AKGYHL #2 

TEMP 3=275* (AINCWHAINCHY) ¢HCOO@WALNCH 
TEMP2=TEMP2+TEMPR4H2 82, 

TEMP2=FEMP2+ {AINCWHAINCHI) ##2,/6. 

ATRCYLEATOCYL #043. 141599RF XH] #¢2@APHI) @TEMP2/2.¢TEMPL) 
KSDELF # (AINCWHALNCHI) 4 (20 *GNOT) 

VP=VP+ {APH] +A?) 8 (AINCW-AINCHI} 20 

CALL AIBSUR(IE) 

1F {1kekOQ.2} ICHNES 

EF CICHN«t0.5) RETURN 

POSP# (TO/T) 4 # (GAMAZ (GAYA-34)) 
AMACH=SORT{(T0-T)42a/¢ (GAMA-1 29 #T)) 

PRNTC(II1,1) =P0 
PRNTCII1+2) =P 
PRNT{IT193) =F 
PRNTCIE1 44) =U 
PRNT{11195) =AMACH 

PRNT (CEI s6) ZALP 

PRNI CLIT 97) =aP 
PRNTCE1259) SWO0T 

PRNT (117510) =OWNOT 
PRNTU CET] 912) sROZUIIE} 
PRNTCU11913) sTauZzCilT> 

I 


PRNT (T1114) sk6ZTOCETIY 
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43790 
43A00 
43810 
43420 
43830 
43840 
43850 
43860 


4AB7TO 


43880 
GRAND 


43900 
43970 
43980 
44000 
4aanig 
44070 
44030 
44060 
44050 
44060 
44070 
440486 
44040 
44100 
44310 
44420 
44330 
44140 
44550 
441760 
44170 
44100 
44190 
44200 


44210 ° 


44220 
44240 
447240 
44250 
44260 
44270 
4G2A0 
44290 
46.400 
44310 
44370 
46940 
44340 
44350 
44360 
44370 
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340 
441 
342 
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346 
347 
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390 


361 
Jj32 
353 
3o4 
395 
356 


a1? 
313 
a79 
380 
381 
382 
383 
384 
3385 
386 
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3483 
389 
390 


940 
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1600 
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SUBROUTINE SEGSUBITE) 


PRNT{Il1¢15)=TAUZTOCIIID 

IF ¢(SLTFLGsLT.0.0)GO TO 1200 

WGOPOR FSwGPORNT*OELTARDELZ® (APHI +AP) 72, 

IF CAINCW= SCUR{IISe)) 3121049405940 

CONTINUE 

SLTFLG=1.0 

IS}=I11 

IF (KOUMP (3)997009700950 

CONTINUE 

WRITE (Oe9G0)SLTFLGeLISeISl eIS2sAINCASAINCY sAINCWy S 
XCUR(T1S91) sSCUR(I) 1592) sTSLOTF (11S) oe TSLOTACIISH all leZCALCiTi ©) 
FORMAT (100 7HSLTFLGSF4. 0624 e4HIIS=I 3s 2X e4HISL AI 302% 4H 1 S221 392X061 
XATNCX=) PE 1 Lee 2X eGHAINCY=1PE] LoS e2Xs6HAINCWHIPEL Le S/IHD sp 124SCURITI 
XSolI=IPEL) Ge2@XeT2HSCUR(ITISs2) =)PELI].Se2Xe12ZHTSLOTFULIS}=PPE) 2 402 
AXel 2GATSLOTACEIS) £1) PE)1.492X s6HZCALC{ 513924) =1PE11.4) 

TF (SLTFLO-1.0) 1040,980,1020 

CONTINUE 

SLTFLG#=200 : 

LF (SCURTITISe})-AINCY)10300300001000 

CONTINUE 

RETURN 

RSLOTF SRF X4 (RF Y=RF XP (SCURTTISs LI eALNCXID S(OINCY*AINCX) 

SLIFLG=3.0 

GO TO 1040 

IF (SLTFLG~2 0 0)9904990s 1030 
CONTINUE 

IF (SLTFLO= 1.025080, 1080e1070 

IF (ZCALC CII L623) -AINCY) 220422051050 
CONTINUE 

PF ¢AINGY= SCUR(IIS.1} 

RETURN 

IF (SLTFLOWG edd TLIOLII0—1170 

£F (SCURCIISe2) ~AINCY) 110021090+1090 

CONTINUE 

RETURN 

RSLOTAZRE A+ (RF Y<HF XI #(SCUR( TIS 92) AINCX) /(AINCY@AINCK) 
SLTFLGO=4.0 

IF( SCUR(TTSs2) 
CON FINE 

RETURN 
AINCHISAINCH 
AINCW=SCUR (ETS 2} 
SLTFLG=560 

OO 1150 LSI1IeNI 
JF (AINCWZCALC (E221 1600115001150 
CONTINUE 

P=PUCIIE) 

IS2=I-} 

Tir=Is2 

TIJ=I1t 

TAUSTAUZ(IIT) 

TAUTOZ=TAUZTOIIIT) 

THOLD=STAY 

TEMP= (AINCWHAINCK) SCAINCY=AINCK) 
GO TO 290 


41U60410604220 


“AINCY) 1) 30011] 2001120 
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SUBROUTINE SEGSUB(TE) 


IF CKDUMP (3)211906119001186 

CONTINUE 

WRITE (69960) SLIFLGs I [S915] pLS2,AINCASAINCY sAINCHe 
XCUK (T1591) ¢SCUR (IIS +2) pTSLOTE (14S) sTSLOTACLIS) TET 2Z2CALCCIIT) 
CALL SLOTITE) ; 7 
WGPORT=WGPORT *LELTA 
KIRFHI 882, 4RF O02.) /2, 
CALL RBSUB 

IF CICHN.E0,5) RETURN 
RBZ(T1u) Ra 

PRNT (ITI911) SDWOTS(IIS=1) 

6O TO S40 

SLTFLG=0,0 

AINCHISAINCW 

PRNTCILT £0} S0WSLTACTIS@1) #OWSLTF(EIS-1) 
GO 70 240 : 

IF (AINCW-HCO) 226 9124001240 

IF (LE) 1250 ¥1220,1250 

RSLVRNERSLYRY . 
lé=-h 

CONTINUE 

RETURN 

END 


#(SCUR (TI S*le2) “SCUR(TIS=]e1)) #3.16159% 
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SUBROUTINE SETPHIIE) 
eccececcececccececececeeeccoceeecececececeecececcecececcececcc CCee 
SUBROUTINE SETRH IS THE INTERNAL BALLISTIC SOLUTION CONTROL 
ROUTINE TO OBTAIN CONVERGENCE ON THE FURE HEAD PRESSURE BY 
MATCHING THE GRAIN DISCHARGE FLOW WITH THE NOZ7LE FLOW NETERMINED 
FROM THE NOZ7LE PRESSURE. THE PERFORMANCE CALCULATIONS FOR THRUST+ 
TOTAL IMPULSEs THRUST COEFFICIENT: ETC. ARE INCLUDED IN 
SUBROUTINE SETRH (SECTION 4.2). 


ecccccecccccecccececceceecccee ccc ceecececcccececccccceceeccecccececceece 
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COMMON/PARMG/AF sPMINeSPMAXOWDUTe LI Le LI Je WNUTOeNSLOF eNTAHE eNTME 0 
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LATA PEPOX} sPEPOY}) »9E1/3#0.0/ 
IF{TEeEQ.2)60 TO 950 
1e=0 . ‘ 
IF (VE=0T}105204920 
bE=0T 

AEE=P1UDE HHe/G6, 

IF (DTINT} 180+30+180 
OTINT=0T 
AN2=PI#AN2/180, * 
AT=PI4DT#62./4, 
ALAMN=,5+.59C0S (AN2) 
AEESPIADE a2 /4, 

TIME W=9.,9999999E35 
CONET=0. 

ANTS0=0, 

vIg=0. 

AIT=0. 

SPHUT#0, 

SPONDT=0, 

SWOOTN=6.0 

FX=0, 

PrHx=0, 

PONA=0, 

TXSDELF + VF 

wOOTX=0.0 

PHMAXSO, 

CLOPS=0. 

wh=0. 

DEED=D, 

PHOLD=O. 

VF INTSVF 
VFPPSVCHtV¥CN 

RFX=KFI (1) 
AINCK=AINCING]) 

DO 100 Is2el4 
AINC=AINCINGY) 
KFERFI CE) 

CALL VEPPSACIER) 

IF (JERANE.O} SO TO lad 
CONTINUE 


TF (STFLAGsLEs0.0 eOR, TIMESGE.DELT) GD TO 196 


TF (PH (0.5FPH])16005600«<200 
IF (PH-PA) 60056000200 
DELLP=PH=PHOLD 

PAHOLOSPH 

CEMPCaCSTAR 


TSS=SQRT (2. *#GAMA4HTOFREGNOT/ (GAMAW~1 0) } 


GP1=GAMA+1, 
6M1=6P 1-2, 


AME SS=SQRT (GA4AFGNOT 4 (20 /GP1) #8 (GPIZGML)/ CFORR) } 
CFCeSURT (2, *GAMAHH2® (2,/GP1) 4% (GP1/GM1) /GM1} 
AMBSU=SGORT (2. °GAMA#GNOT/ (TO#R*GM1}) 


EXP 1=GAHA/GM) 
PSOPO=(2,/GP1) ##E xP] . 
PON=P#(TO/T) #% (GAMA/ (GAMA=10)) 
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CLOPS=CLOPS*1. 

IF (STFLAG*GT e060 sANDs PONGLES (0.5PHI) «AND, TIME 
L 4lT. DELT)GO TO S7O 

IF (PON=PA) 57005705210 

AMBSS=ONUT/CSTAR 

DIS=AMBSSPANNEAT#PON : 

IF (PON#PSOPO~PA) 24012309230 

CODET=040 

GO 10 330 

SD 1 S=ANN®PON#AMDSUPAEE® (PA/PON) #8 (16/GAMA) ®SQRT (Lem (PASPON) #2 ( (GAM 
KA-141/GAMA}) 

IF (SDIS-O15) 2504230230 
DIS=SUIS 

CQDETS}. 

GO TU 330 

TF (PHMAX/L000000 pW ABS {PMI N-PMAX} ) 37003700210 
1F (AMPN-0693590¢e28092H0, 
ATMAX=CEMPC#WDOT/ (GNOT#PON) 
WRITEC Ge@90) ATs ATMAX 

FORMAT (GHOATSs)PE1Se?e634eTHROAT AREA GREATER THAN MAXIMUM ALLOwAt 
ALE THROAT AREA, ATMAK=917E 15.7] 

WHITE ( 62300) HLVOTS DIS sANLOPS sPONPPASPMIN ePMAX AMON 
FURMAF(GHOWDOT=IPEL4.7964 DIS#1PEI4.7,9H ANLOPS=LPEL4.7» 
AO PONFIPELG «3 55H | PASIFE146.7//6H PMINSIPEL4. 75 7H PMAX=1PE1G7¢ 
XTH AMPNEIPE1447) 

1CHNSS 

RETURN 

CONTINUE 

IF CANLOPS=20.)3/093709320 

IF (STFLAG+GE.040 eANDs TIMESLT.DELT? GO TO 325 

IF (0.01 -ABS (PON~PA} } 26095001600 

IF (0.01"ABS (PON=0,5%PHI))260,600%600 

IF (TEME) 35053606350 

TEMP1=WDOT/1000. 

69 TO 360 

TEMP LVF INT-VE } #OELF/ (TIME? 10006) 

IF [A8SC(WOOT-3TS) ZDIS) = CRW )590.590+310 

IF USTFLAG)410+410.300 

CONTINUE 

IF{NRECONeGT.0) 60 TO 400 

IF (NPH=}}41044105390 

CONTINUE 

IF (TIME=TIMEPH (NPH) ) 40004009410 

CONTINUE ; 

CALL CONV 

60-50 560 

IF (CLUPS=14)420 94300620 

wO= (WOOT!=WOB) /DELLP 

DEEDS (DIS~01S8) /DELLP 

IF (DEED=wl)) 4504440450 
DELLP=PH# ( (WDDT/DIS) 441.461.) 

GO TO 460 

DELLP=(WOUT-015) / (DEED-Wa) 

WDB=WDOT 

DISB=DTS 
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SUBROUTENE SETPH(IE) 


LF (YDOT<DIS3 48054809470 

PMIN=PH 

60 TO 490 

PMAX=PR 

TEMPA=PH . 

PH=PH+ELLP ‘ , 
IF (PH=PMIN} 900 95009530 

TF ¢PMIN} 52015105520 

PH = Se 

GO TO 530 

PH = 2.*PMIN 

[F (PR#PMAK) 55025402540 
PH= {PMAX=PM1N)80.9%PMIN 
DELLPSPH-TEMPS& 

1lE=] 

60 TO 950 

PMIN=PH 

TEMPO=PH 

DELLP=PA/ 3. 

PH=PHODELLP 

IF (PH=PMAX)560,5809580 

PH (PH-DELLP) 80.01 40.94 P4AX 
DELLP=PH-TEMPS 

GO 10 Sé0 

PMIN=EPA 

CLOPS=0. 
PMAX2949999999E 35 

60 TO 610 

PraPa 

PONSPA 

IF (STFLAG.O1.0.0) PH=0.5#PHI 
TF (STRFLAG.GI.0.0) PUN=0.5#PHI 
AMPIN=Q, 

Fad. 

60 TO x00 

AEE=PI#OEHHZ 74, 

IF (CODET} 79076204790 
EPG=AEE/AT r 

IF (PA) 63056609630 
EPS=026098(PON/PA) HHO,ALS 
IF (EPS-}5)640+6409650 
EPI=t. 

PEPO=PSOPO 

GO f0 780 

IF (EPG-EPS} 66056609070 
EP1SEPG . 
GO TO 6890 

EPI=EPS 

6M1=GAMA-1. 

GPI=GAMA+1. 

TEMP 1={ (OME/GP1) #65 (26/GP1) ## 01, /GM1} 3 /EPE 
PEPOL=.0L 

IFLAG=1 

IJER=0 

GO TO 719 
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SUBROUTINE SETPH(IE) 


PEPO1=,002 

IFLAGS2 

PEPUX2=PEPOX1] 

PEPOXL=PEPOL] 

PEPUYs(TEMP}/SURT () .0~ = {PEPO1} ##(GHI/GAMA) )) @8GAMA 
PEPOY2=PEPOY) 

PEPOYL=PEPOY 

2-6) . 
El={PEYOX]~PEP0Y1) /PEPOX1 : 
JTER=ITER4] “ 

IF CIFLAG~11) 70007004720 

CONT UNUE 

IF (LTER=301 75097509730 

CONTINUE 

WRITE (60740) PEPOX) sPEPOX2 aPEPOY 1 ePEPOY29E11E2 


40 JFORMAT CLX+99HTTERATION FOR NOZZLE PRESSURE RATIO IN SUHRGUTINE SEI 


APH HAS FAILED. EXECUTION HAS SEEN TERMINATED. /1Xe 7HPEPOXI=IPEI1.4 
Xe2Xs THPEPOX2=1 PELL 649 2X9 THPEPOVISLPE LL 649 2X4 THOFPOY2SILPE1 1 04 62X09 3H 


7S0 
760 


hao 


790 


B00 


AG LSLPEL L640 2ke3HE2=1PE11 64) 

ICHNS5 

KE TURN 

JF (ANS(EL)~-0,001) 77097709760 

ONT INUE 
PEPUL=(E2SPEPOX 1 -E14PED0xK2) / (F261) 
PEPOLSAMIN] (PEPO1 41.0) 

PEPU]=AMAAI (PEPO1,126°5) 

oO Fo /to 

PEPO=PEFOY 

CFo# CPC#SURT(1.-PEPO## (G4) /GAMA) ) 
CFOLE(CFO*ALAYN+PEPOREP 1) OCH 
FHCCFOL@PON*AT-AASEP] OAT) ANN 

GO TO Ano 

VESTSS@SURT (Le {PA/PON) Ho (GME/SOAMAI ) 
F=VEALAMN*WDDT @CM#ANN/GNOT 

wFEUVELF ove 


PROPELLANT 4#ASS CORRELATION 


IF CTEME.6T.0.0} GO TO AOD 

LF (WFACT,EQ.0.0) GO TO 809 

DELWF = ABS (wr=wFrACT) 

IF ((DELWE/WFOCT) .GTs 0205) GO TO 801 
60 TU 403 


bUL WRITE(6s802) wEACT wr 


HO2 FURMAT(S 


2=%oF 11.2) 
STOP 


HO3 IF (COELWE/WFACT) LT eWFTOL) GO TO 809 


A804 FORMAT (TOPROPELLANT MASS DIFFERENCE. ES SIGNIFICANT-ADJUST WITH NEN 
LSTTY AND/OR DIMENSION INPUT DATA@CASE TERMINATED'/#0INPUT MASS =". 


LF (RHOTOL »GTe040) GO TO 805 
WRITE (69804) WRACTeWF 


2FiledeSxet CALCULATED MASS =teF11.2) 
STOP 


UCASE TERMINATED, CALCULATED TOTAL PROPELLANT MASS UNREASO 
INABLE}=CHECK INPUT DATAS/HOTNPUT MASS SteF il. ceSXst CALCULATED MASS 
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SUBROUTINE SETPH(TE) 
DELFX = DELF ‘ : 
DELF = DELFX ® wFACTswF 
IF (8S ( (DELFROELFX)/DELFX) sLT.RHOTOL? OO FO BOT 
WRITE (6,806) WRACT SWF 


FORMAT (YOPROPELLANT MASS DIFFERENCE IS SIGNIFICANT» HOWEVE?>, ADJUS 


LIMENT IN DENSITY EXCEEDS RHDTOL'/' READJUST ‘WETH DENSITY ANDZOR NI 
eMEMSTON INPUT DATA = CASE TERMINATEDIZtUINPUT MASS Stef b1.2e5Xs 
S'CALCULATED MASS ="eF 13.2) 

STOP 

WRITE (6¢808) DELF . 
FORMAT(//9OINPUT DENSITY WAS ADJUSTED. AUJUSTEN DENSITY ='4F9,.6) 
WF = OELF # VF 

IFATUME .60,0.0) WFISWr 

TEMP] =1TX=WF 

If (PHMAX=-PHOLD) 841,840,850 

PHMAX=~HULD 

(TF tTEME.NE.0.0) 90 TO 4S2 

AIT=O.0 

SPHDT=0.0 , 

SPONDI=U,0 

SWOUTN=0,9 

GO TO 453 

SPHUT=SPHUT+ (PHOLD+PHX) #OELT/2. 

SPONDT=SPONDI « (PON+PONK) SDELT/ 2, i 

SYDUTN=ESWDOTNe (WOOTX4+W30T) HDELT/2. 

AJTHAILT#(F4F Xd 8DEL TZ. 

FOF 

PONA=PON 

PHX=PHULD 

IF(TIMELY.OELT sAND. STFLAG.GT. 060) PHX=0.54PHT 

TX=WF 

WOOF X=WO0T 

WG TUT=WGPORT +s (VCH=VFH) SP4/7 (12.0R4TO) + (VENVEN} #274 (12.4RO7) 

IF (TIME) 870 +680su7D . 

IF (TIME-TIMEW) 950-880 5950 

VF WER=VF 

TF (XDUMP (3) ) 98069802960 

CONTINUE 

WRITE (69970) PAUL De WOOT, W095 NELLY» PMINe wi) +CLOPRS, : p 
XGN+ULS +D1SHsDEF Ds PMAX + PHs ANLOPS 

FORMAT (///1H sJ6HFORE HEAD PRESSURE ETERATION SUMMARY///IH 2HOLO=)]P 
XE 10 0322XeSHWDOT=1PE106393X% e4HWOB=1PE1063:4X% s6HDELLPHIHE 100494 2X2SHP 
XMIN=1PE 1] D037 3K eSHWIS1PEL06 395% sGHCLUPS=1PE 1003 /5H PON=IPE1NG 394Xe4% 
XHOTS=1PE106324X eSHDISB21°E 106392 3X es SHDEEUTLPELO. 393% 9 SHPMAX=IPEI0.3 
Xs3XeSHPHEIPE] Ue dy SX9 THANLOPS=IPELU SS) 

RETURN 

ENO 


73300 
73350 
73360 


TAIKO 
73390 
73406 


ra4eo 
TAA 


T4446 
74450 
73470 
T4ERG 
73490 


71650 
13aA66 
73670 
73bHO 
136906 
73700 
73710 
73720 
73730 
TAT&O 


PAGE 4&7 


b-U2buL-9s20 


ezp-e 


SYMBOL 


10 
20 
30 
70 
CT) 
100 
150 
19S 
196 
200 
210 
220 
230 
240 
250 
260 
£70 
260 
29u 
4300 
‘410 
320 
Jd22 
326 
330 
340 
350 
360 
370 
JU 
390 
400 
410 
420 
430 
440 
450 
460 
470 
430 
490 
500 
$10 
S20 
$30 
$490 


$50. 


$60 
S70 
580 
590 
600 
610 


1 praeec tev evpar)eare ek arrrrrreeve paves teuee se ee eaeeeens reas vargas 


INDE xX 


16 


173% 


SUBROUTINE SETPH(IE) 
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SUBROUTINE SLUT (IE) 


SUBROUTENE SLOTI(IE) 
eceeccececceccetcecececeecec ccecceeceeceeececccetecececeececcececcceece: 


C SUBROUTINE SLOT DETERMINES THE GAS PROPERILES at THE 11) SCHARGE 
c SECTION OF A SLOT HETWEEN GRAIN SEGMENTS FOR THF NON@=STEADY FLOW 
c OF THE INTERNAL BALLISTICS (SECTION 4ealadee)s 


cccceccecccecccceecccceeecceccceececcecceeccceecccccecececececeuccecccecn 

COMMON, CUNSTS/GNOF sPI pF E02 sRADIT AN 

COMMON/ INPUTG/CSTAR s GAMA aR ENCSTRePRESS (20) sCSTR (20) eGAMAG (20) 5 
1 AMWG (20) ¢ TCOMB (29) sNCSCOE 
COMMON/INPUTM/STFLAG sSTOYST +DELIST »sDELTSS DELTTO 

COMHON/ INPUTT/SB (28) »SLTARN{13) »SA(18) 

COMMON INPUTU/DELF 9PA AHI sHCOrDEL Zs KDUMP (72) 

COMMUN/ WORKA/AENC eANOp QF p TAUW ee R2eRISRGERS RG OW7 4 VHD 

t ALS1»ALS2 ALA CAL Be ALE sAW(5) 
COMMON/COMA/DELT eAPHI eWOOTT sANTAOs TIMEWsUF sANLOPSs ACCEL + 

i ASCYL ePRNT £104 015) eAINCHE pAMACHeZCALC(1OL) 
COMMON/COMG/ TAUZ E101) 0 RBZ C101) eTAUZTOCIO]) pRBZTOUI ON) oP CIOL) s 
L TAUNDP (105) eRe VF pDWDOT s¥P 
COMHON/COMJZASSLTA (13) eASDSLTF (18) 9 A4PA(18) sAPE (38) ePSA(1B} > 

1 PSF (38) sP0A4€18) sPOF (18) sTSAC] 4) e TSF(EH) DUAL a) e 
2 UF (18) eWSLOTI (18) eWSLOTI (Lad 

CUMMON/CUMK/OWSLTA CLA) sOWSLTF (18) sDADTS (15) eAF HT sRHSLTA (18) 4 

L RASLIF (18) eTSLOTA(14) ¢ TSLOTF (18) 

COMMON/COMO/ THSLV 5 TSLVDMs THSLVV sASLYR + AHO ORFHI gALPX¢APX 

1 RAHT sALPY es APY VSL YR 

COMMON/ COMT/ TALUS RC «a SUMDV 6 AR DHE eAL (1.3) eXBAREHSASE APF eWE WT oRAc 
L RAUsSALL sAUPPeASE 

COMMON/PARME/AP @PMINePMAXEWOOTSLELe LL UewOUTDeNSLOT eNTAGE sNTME « 
1 TAUFOs TOFLAG NINCPL sBRNUUTs I [Ss IStelS2eNPeSCUR(1H92) 
COMMON/PARMF /PHy TIME sAINCHs TePeDEL TAs pAKGY PONS DTS SAMPN DAT © 

1 AMWSAKRST 
COMMON/PAHRMR/RYSLOT s+ RSLOTAsRSLOTF + SLIFLG 

COMMON/PARMS/ICHN 

COMMONS PARMY /PSAPR (14) ¢PSFPR(1A) 

COMMON/PARMZ/ABSLOT sPO 

COMMON/PARMAA/10¢IFLAG ae 

DATA TXle TV eTELePDAL POY] SEL /6%0 007 

OOPS5=0,0 

TF CUSTFLAG.LEs Oob} eORe (TIME LT VELT)OWOT= 0.0 

IF (STFLAG) 001005 

S IF (TIME) 696930 


6 PO(ISL)=0,.5¢PHT : , ‘ 


PD CIS2}=0.5%PH] a 
PSA(IIS)=0,54PHE i uae 
PSF (ILS)=0.54PHI eee ! 
POF (11S)=0.5*PHY : . 
POA (IIS) =0.5#PHT . 
+ GO TO 25 
10 IF (PO{151) PA) 20520930 
' 20 PO(IS1L)=PA 
PO (ES2)=PA 
PSALLIS)=PA 
PSF{IIS)sPA 
POF {IYS)=Pa 
POACTIS)=PA 
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SUBROUTINE SLOT(IE) 


25 APFCIIS) 2P] 4#2FHI ee? 


$0 


ABSLTF (IIS) sAFHI 

WOOTSD=0.0 

1S=FfO 

UTMP=0 Pat] 

woOTd=0,0 

WOOTSIHN060 

WSLOTT(£ IS) =000 

GO YO 410 

PePOC1S}} 

C4lLl RBSUS 

whoTN=woOoT ‘ 

IF (SLTBRNCTIS) c£Qe les ORs SLIARN(TIS) s£Ge3.}RKSLOT=0.0 
ROSLTF (£15) =XBSLOT 

DWSLIF (11S) SRASLOTHOELF AFH 
WOOTSISwDOTD+OWSL TF CEES) 

WSLOTI(7IS}=HD0TST 

POF (EES) =PO 

PSF (TIS) =PN(1S1) 

PBAREPSFCIIS) 

UF (TIS) SwOOTSI#ROT/ (PEARED HZ. HPD (1S2)) 

AMACH=ABS (I/SORT (GNOT#eGAMATRE YT) } ' 

OVDT=(TSLOTF (LIS) # (RFHIHH2, ¢RSLOTF #262 +TSLOTACTIS)# 
ACRE RO2?, +RSLUTARY2, FI SPE (2, 90ELT) 

V=(SCUR (11S +2} =SCUR( IT 15e1})9 (RF HHA. +RFHI #2.) @PT/2, 
APF (LIS) =PL@RFH] #2, 
AHSLIF (LIS) =AFHI 
LF (SLTHRNCOIT ES) .£9.1..0R¢SLFARN(LIS) .£0.3,) HSLIF (11S) =0.0 
AMSUZAMACHHE 2, 

IF(AMACH Ede 0.0 ) GO TO 32 
OP=PDCTSLI#HOWSL TIF (TIS) #4. #GAMAHAMSO# (1. + (GAMA=] .) FAMSO/2,)% 
KZERUDY (WOOT (1, *AHSO)) 

UT=TSF (TES) # (GAMA) 6) eC 1 e+ GAMARAMSO) HAMSOH2, FDOWSLIF CIIS) # 
AZERUDV ( (2b e-A4SQ) FWDOT) 

GO FO 34 

oP = U.0 

bT = U.90 

CONTINUE 

PO{ISZ) = POCTISI) ~ DP 

TSF (TIS) =T 

TS=TSF (TIS) 

UMAXSSORT (26 #GAMAFREGNOTHTOS (GAMA-1] 63) 

ITER=0 : 

IF {ITER-1)50760+70 

TS=TSF (LIS) -oT 

GO TO 70 

TS = ¥SF(IIS) ~ DT 

TX22TX1 

TALSTS 

DP=PO0(1S1)-PO(152) 5 

ICOUNT=0 

IF CICOUNT-1) 9091009110 

PSACLIS)=PD(IS1}-OP/2> 

60 TO 110 

PSACIIS) =PD{IS])-OP 
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92 110 9 POX2=PDX1 98640 
93 POXL=PSACIIS) : 98650 
G4 P=PSA(TIS) , 98660 
9S CALL RBSUY 9Bb70 
96 TF (SLTRRN (LIS) .£0425 ORS SLISRN( TIS) sEQs3,)RBSLOT=0 20 
97 . OWSLTACITIS) =RSSLOT#DELFOAFF : 98630 
98 RASLTACITIS)=RASLOT 984690 
99 IF (STFLAG) 12051206150 98700 
100 i20 WOOTD=WOOTS IT +DWSLTACTIS) 9ARTLO 
101 WOOTSD=WOOTD ‘ 98720 Z 
1062 UTMP=WOOTD 4R4 TS 4 2FRODV (PSA (TIS) #AP} 
103 UTMP=AMIN1 (UTM s UMA) 9A740 
104 LF (WDOTD) 13001309140 9AaTSD 
10s 136 wOOTD=060 98760 
106 UTMP=0.0 “ 98770 
107 140 XMAAR=0.5 (U/SORT (GNOTERPGAMAHTSF (11S) )¢ 

> UTMP /SORT (GNOT#REGAMA*TS) } 
108 POYSPSF (LES) +4001 /GNOTRU/SAPHI “WOO TD/ONOT AUTMP/AR} 

+ 2. 0®GAMAFPPBAR®XHBARHH2 { AP-APHI) / (AP+APHI) 
109 PHARZSO,5# (PSF (JIS) +PDY) 
110 DP = PSF(IIS) - Poy 
lit GO TD 190 98800 
112 150 DWOTS(PSFATIS) +PSA{TIS)}#DVNT/(12.¢R® (TSEC LES) +TSACT1IS)})} ve 

ACPSF CEIS) ¢PSACEIS) -PSFORC TIS) =PSAPR(TIS))7(12.42 9ARZ0 

R¥CTSF (LIS) + TS41115)} #DELT} 
11s, WOOTSD=WOUTSI-DWOT 98640 
114 WOOTD=WOOTSUD4DWSLTACEIS) 98850 
11s IF (WOOTO} 16061604170 98860 
lio 166 WOOTD=0.0 9ARTO 
117 utmMP=0,0 98BAO 
lig 60 TO 180 9BA9D 
119 176) - UTMP=WNOTDORHTS4¢Z7ERODV (RSA (TIS) #AP) 98900 
120 UTMP=AMIN] (UTMP sUMAX) 9AS1O 
121 160 = POY (WDOT*U/GNOT~wDOFO*UTMP/GNOT+PSF {11S} #APHI «(PSF (TTS) 98970 

X+#PSACTIS)) 4 {AP-APHT} /2,-¢(PSF (EIS) +PSACEIS) }#(Usu TMP) SOVDT) 71 4B et 98930 

XGNOT#RETS) > ZAP : 9A940 
122 PDY=PDY¥=(V98 (UU TMP) # (PSF (LIS) ¢PSA( 11S) <PSFPR(LIS)=PSAPRITTSI)/ 9A9S0 

X (4B. °GNOT#R*TS#DELT) 1 7aP ~ 98960 
123 190 TF CACCEL) 200 22004240 98970 
124 200 TEMPA=0.0 : ‘ 98980 
125 GU TO 2c0 98990 
126 elke TEMPA=( (PSF CLIS) +PSACEIS)) #CAP+APHI) *ACCEL# (AENCWHAYNCHI) 7 99090 

X(48.4RYTSHAP) 990106 
127 220 = POY=PDY+TEMPA 99020 
126 POY2=PDY1 99030 
129 POY1=PDY : 99040 
130 E2=e1 : 99050 
131 Ets (PDXiePOY1) eZERODVEIPDX1) 99060 
132 TCOUNTSICOUNT?] + 990/70 
133 IF CLCOUNT=2)1001+230+2306 ; 99080 
134 236 LF (LCOUNT=27) 260 +260,240 ‘ 99090 
135 240 WRITE (69250) 11S 9POX1L pPOX2ePOY1 oPOY2sE1,E2 991 


136 250 FORMAT(G2HOFTERATION FOR DISCHARGE PRESSURE OF SLOT ¢129114HAS Fal 99110 
‘ ALEDe/IHOeLOXs THPOX] & E20e7sLOXsTHPOXS = E20e7/1K0s10Xe7HPOVYE = E2 99120 
XOo7elDXs7THPOY2 = E20.7/140e10Xe7HEL = E20.7910Xe7HE2 = E2027) 99130 
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SUBROUTINE SLOT CIE) 


ICHN=S 

JE=2 

RETURN 

IF (KOUMP(3))290+290 2270 

WRITE (67289) ICOUNT oPSA (TIS) sPDY sWOOTDsPDX2ePNY29E] 9E2 

FORMAT (2X9 THICOUNT=1 29 2X9 SHPD=IPE L104 92Xe4HPOY=) PE 11049 2Xs6HWOOT DS 
XIPEL1 492% pSHPDX2=1PE11 0 402% eSHPDYZ=IPEL1e492X0 SHE] S1PE) 1} 4s 2X 0 3HE 
AP=1PE11 04/7) 

IF (ABS (EL) =6001) 31013109300 

PSACIIS) =(E2"PDXL<E1*POX2) #ZERODVIEA=E1) 

GO TO 80 

PSACEIS) =PDY 

PO(IS2) = PSAtIIsS} 


TS 2 TO @ (SAMA = 1.0) RUTMPSH27 (2. 08GNUTHGAMARR) 
UuTMP = WOOTDYR/AP#TS/PI(IS2) 

oT = TSF(IIS) = TS 

TY2 = Tyl 

TYl = 1S 

rEe@sTE1 


TEL=(TXI-TY}) 7TAL 

ITERSITER+] 

IF (1 TER-2) 6033093350 

IF CITER™27) 360 ¢3605.340 

WRITE (6e35O0) 11S eT Ale tX2eT Yi eTY¥2eTEL TE? 

FORMAT (G4GHOITERATION FOR DISCHARGE TEMPERATURE OF SLOT «12¢1]HHAS 
AFAILEDs/INOSLOXSB6HTAL = E20e7s1OXsGHTX2 = E20.7/1HOeLOXsGHTY] = FA 
XOa 7 LOXeGATY? = E20e7/1HOe1LOXSGHTE] = E200e7s10OXebHFE2 = E7N.7) 

IE=2 

RETURN 

LF (RKOUMP (3) 39093909370 

WRITE COsSADI TTERs TSe te TKXeeT¥2s TEL TE2 

FORMAT (2X e SH] FERH=1292X4 3HTSSIPERL (402k e QHISI PEL) Ge 2keGHIXPHIPELI]. 
XH PAX SGHTYZE1PELL 4 e2Xs SHELSIPEL 1 eGo 2X9 3HECHIPEIIL4//) 

1F (ABS (TE 1) =.001341054) 02400 

TS=(TEZYIXI~TELSTX2)/( TEA=-TEL} 

60 TO 460 

CONTINUE 

WSL OTD (IIS) =4#D0TSO . 

UA(TISISWDOTSDERETS/A(PSACIIS) HPL MRF eee, ) 

APAILLIIS}SPT4RF see, 

AASLTACTIS) SAFF 

TF CSLTBRNCTIS) EQ.20.0ReSLTARN( EIS) cEQ. Set ABSLTA( ELSI 30.0 

DwWOTS{115)} sOwOT 

POA(TIS) =PSA(I1S) #(TO/T) #* (GAMA/ (GAMA=145)) 

TSACIIS) = TS 

u = UTMP 

T = TS & 

AMACH=U/SORT (GNOT#GAMAGR#HT) 

AMPN=AMAX1 CAMPNs AMACH) 

DEL TASWDOTD#ZERODV ILA. AP RU) 

PO=PD(IS2) *(TO/T 284 {GAMA/ (GAMA+].)) 

P=PD(IS2) 

WDOOT=WDOTD 

1LI=IS2 

TrJ=I52 
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99320 
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99460 
99476 
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99490 
99506 
99510 
99526 
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89590 
99600 
99610 
99620 
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SUBROUTINE SLOT(IE} 


TF (KOUMP (3) 3640964004620 

CONTINUE 

WRITE (69430) WSLOTI (LIS) sAPFCIIS) sUF (12S) ePOF (EIS) sPSFCIIS) ¢TSFCIIS 
A) oPOLISL) sWSLOTD IETS) pAPAL LIS} sUA( TIS) ePQA( TIS) ePSACTES) a TSACTIS) « 
XPDOCIS2) ePWSLIF (11S) eRISLTF (LES) sABSLIF CLIS) eDWSLTALIIS) ¢ R 
XBSLTACTIS) sABSLTACTIS) sOWOTS(IIS) 

FORMAT (2HOs 7HWSLOTIALPE11 64 e2XeSHAPFEIPE] Le 2X eSHUFAEPE) 1649 2X 04H 
XPOF=1PE1] 24 e2XsGH4PSF =1DE1},4,2Xe4HTSF=LPE1] ¢ 492% e8HPDOCISI)=1PE1}.4 
X/1 Xe THWSLOTDS IPE 1 64e2X sGHAPAZIPE | b oe 2X5 SHUAHIPE1 1 402% 4 44P0QS1PF 
x 116402k sGHPSAS1PE1 1.49 2X sSHTSAH=1PE11.492X eBHPD(ES2) 5) PELL 64/ 
ALXo THDWSLIF=1°E 11 0492Xe TARBSLTIFSLPEL 1 40 2Xs THABSLIF SIPEI164¢/1X9 Ind 
RSAC REE Leah TABS YASIRE L}sOivels (Aaa bUATEPE Le Sencar vary 
AP. 4} 

JTF (QOPS.G67. U.65)60 Ta 500 

ISPL=11S¢] 

FF (SCUR TELS s2) <SCURLISPL so 1) +TSLOTACLIS) <TSLOTF (7SP1) 350006502450 

UOPS=1.0 

TEE ee rere ern PREG ELE enete 

TTERR2 ; 

JCUUNT#0 

DP=PD11S1)-PO(1S2) 
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SUBROUTINE SU3SON(ICHOKEs IOPT) : 

IMPLICIT REAL (A=HeO0-ZeM) 

COMNON/CONSIS/GNOT sP Te PL02+RADIAN 

COMMON, INPUTG/CSTAR*GAYA 9RSNCSTR PRESS (20) $652 (20) +GAMAG(20) + 
1 AMWG (20) »TCOMB(20) sNCSCOE  , 
COMMON/INPUTU/DELF pPAr PHI pHCOeDELZ eKOUMP{ 72) 

COMNON/ COMA/DELT pAPHI sWOOTI Ss ANIBOs TIMEWSUTyANLOPS)ACCEL» 
1 ABCYL ePRNT (101015) pAINCHI pAMACHeZCALC (101) 
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1 AMWs AKRST 
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COMMON/PARMAN/S A1BLA28 

NAMELIST/SUUSI/PRCRI T+ MEX s AEXASSAENTAS 

NAMELIST/SUBS2/ 1 TERS MBE TAs THETAsCRETASUBETAyUMA+PAFTAsPONCs 
% PON 

ICHUKES9 

TERA ; 

sT0stort-2 

IF (PA.GT.020} GO TO 10 
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RETURN 
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PRCRIT={ 20/7 (GAMA4+1,)) ## (GAMA {GAMA=1.0) } 
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MEX=SQwT (12.7 (GA4A~). YY #((PON/PA) #4 ((GAMA@1 6) /GAMA)~16)) 

wRITE (6.SuUaS]) 

IF {MEX.GE2}.0) SO TO S$ 

AEXAS= {Le /MEXDH (4 (2. 7(GAMASL 9) 9% (104 (GAMAM1 /2.UMEX AED) ) He 
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AENTAS= (AENT/AEE) 4AEXAS 

WRITE (6ySUBS1) 

IF {AENTASoL To) 00} GU TO 5 

CALL MACH CAENTAS y GAMA eMBETA) ; 
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PHETA = CL A/AENTS H(PLAHALA“PI BHAI Ue (Plo eP1A) #(APA-ALAI/220 

$ = VGARUMAt(PMA=PMAZIZ (12. 4GNOT#R#TMASDELT) #STO 

S = PMAHUMA®S (VGA*VGAZ)/(12,#GNOTHR#TMAPDELT) #570 

$ = UBETA®MOBETA/GNOT * ULAPWDOT/GNOT + ULE*MDIB/GNOT 4 

PONC & PHETAG(h e+ (GAMAW].) /2.4MBETAPH2) UR (GAMA/(GAMA~1.}) 
WRITE (6,SUBS2} 

IF (ABS (PON=PONC) LE 202001} RETURN 

PONZ=PON 

PON = PON/PONC #PON 

TTER=ITER+} 

IF CITERSLT.225) GO TO 15 

WRITE (652000) PON,PONC,PONZ 
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CONTINUE 7 
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IF CCTIME OL TeTIMPTE) eOR, CVIMEGEeFIMPF2)) GO TO 20 
DELY=DELISP 
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IF ( (NRECUN,GE.0) -AND. (3RVOUT.GT.0.01) GUD TO 1136 
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GO JO 1100 

DELTST=D&ELTSS 

GO TU Lild : 

DELTST=DELTTO 

GO TO lily 
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SUBROUTINE VFPPSS (IER) 
cecceceecocccecccccccceeeccccecccecceccccececcecccecceccecececcecccececccc¢ 


c SUBROUTINE VFPPSd NETERMINES "THE PORT VOLUME OF EACH CYLINORICAL 
Cc SECTION SEGMENT AND SUMS THE SEGMENT PORT VOLUMES TO OATAIN THE 
c TOTAL CYLINDRICAL SECTJON PORT VOLUME. 


cececececcceccecccccccececccecccocececcececececcecceceecccoccececcenececca: 

COMMUN/CUNST S/GNOT oP Ie PTO2 eRAD IAN ‘ 

COMMON/ INPUTU/DELF PAs PHI pHCOPDELZ »KOUMP (72) 

COMMONS WORKASAINC ep ANO GRE oe TAUW SRA ROPR4 RE WRGSR7. 2s 
1 ALS] eALS2¢ALAsALB ALE AW(S) F . 
COMMON/COMM/ TAUTOZ eXSLYR Ue AX (453 GAY 045} eAINCK sANIX ARE Xs TAUWX» 
i DUMK (17) eAINCY s ANOY sRF Ys TAUWY sOUMY (17) 9 VF PO 

IER=0 

VF PP=VF PP + (AI NG-AINCX) # ( (RF X#RE ) ORE ORE XHA2) OHCOR 9414159703. 4HCO) 
IF CAINC#HCO) 10220010 


10 RF X=RF 
AINCKSAINC 
GO 10 30 

20 IER=} 

30 RETURN 
END 
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$3410 
$340 
534630 
5.3450 


93470 
534n0 
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SYMBOL Oe tel cet ten ee oe ee ee ee REFERENCES ae ee ee eer et eee eee ee ee 
10 = 8 chal : 
20 - 8 12% 

30 - 11 13* 

AINC - 4Cco ? 8 10 
AINCKX bd 5¢0 7 10= 

AINCY - 5co 

ALA - aco 

ALG - 4CO 

ALE - 4coO 

ALS! - 4co 

ALS2 - 4co 

ANG - 6co 

ANOX - SCO 

ANOY ~ sco 

aw - 4cO 

AX - SCO 

ay - 500 

COMM - Se 

CONSTS ~ at 

DELF ~ -3C0 

DELZ - 3c0 

DUMA - sco 

vUMY - sco 

GNOF =: eco 

HCO ~ 3c0 ? 8 

JER - 1AG 6= l2= 

INPUTU = 3h 

KDUMP - 3c0 

PA - 3co 

PHI - 3C0 

PI = eco 

PIO2 = 2c0 

HADIAN - 2c0 

RETURN = 13+# . 
RF ~ 4CO ? 9 

RFX = sco 7 9 

RFY - 5c0 

ASLVRN - 5co 

R2 - 400 

RJ - 4co 

RY - 4co 

AS - 4C0 

H6 ~ 4C0 

RT - 4C0 
Re - 4CO0 ‘ 
TAUTOZ = 5¢o0 

14UwW - 4c0 

TAUHX bd sco 

TAUWY ba 5c0 

VFPP - 5co Te 

VFPPSB 1+ 

WORKA - &* 
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SUBROUTINE VOLSUB 
ccecececeececcecececcececceeccceceececececccecececceccecceccececceccerce 


c SUBROUTINE VOLSUB IS THE CONTROL ROUTINE WHICH DETERMINES THE 
Cc INITIAL YOLUME FOR THE SLOCK 3 ANALYSIS OF THE HEAD-END WITH WER 
C {SECTION S5e2sle%). 


Ceccececececccececcccccececececeeceeccececececetecccecececececetecccecee 
COMMON/CONSTS/GNOTsPI»PL02—eRADIAN 
COMMON? INPUTA/BTAOE ¢DH] «3H¢ACHMy RIG +HHR 
COMMON/ WORK A/AINC 6 ANO 9 2F 9 TAUW9R2 RIK SAS aROIRT RBs 
Ll ALS1sALS2,ALAeALBsALEs AW (5) 
COMMON/ WORKRA/ RAL (5) 9 HH2 9 ACG pHHW » VFHOe VCHs ANK (10) 
COMMON/DUMY S/TWHeBAdB 
COMMON/COMT/TAU ERC se SUMDV p XR oHE SAL (14) »sXHARTHSASE sAFF GWE WT eRA® 
L RADeALL sAJPP AST 
COMMON/COMU/VRX o BLT TOs COUNT eUFHEW! o VEXeVReASTOCASIGR 
COMMON/COMV/VSTReVSTOs FOMAX eDOLAsDO1 Bs XMAA s ZMAK e YMAX¢ ALHOS 
1 ROPE] eROPE2 eROPES eALNP 
COMMON/PARMG/ VE Hy AANS VENOVIS CAI Ts SPHOT sSSPONDT S VFINTsSVEH®ABTOT | 
COMMON/PARMH/B LE s BOE « AANN BX eRXX FAST] CNELLAT sROPEG SALES YPT oZP Is 
1 ARCOsARCL ROEL PALIT TL eo Z1¢A1Ge THRI e THRU AOF 
DIMENSION DFV(5) 
FF CTAUI5Oe10050 

10 COUNT=0. 


OIV(1}=1.9 
DIvtab=).1 
DIv¢abs}.0} 


Divi@paj.aal 
DIV(5)=1.0001 
VEHS(ALE*# 2°81 E-AQE# #2 ¢A09E) #6628918/3.-(BIE~BOE) HRIGHHP OPT 
VEXSVEH 
BO 20 f=]+7 
20 CALL VSEC(I) 
L=13 
30 CALL VSEC{T) 
Is{-} 
IF (1=9940530530 
au VFHEWESVEH 
bo ASE = ¢@,@AANN#AST 
ASE=AS] 
VFHU=VEH 
IF {TAU} 2705600270 
60 HH2=SURT (RF HH22R1GH42) sad 
VCHS {BIE O# 2AHH2@-HH2 48373, ) BHO E23, A159 
VR=o (VFHVEX¢VSTO) “VSTR#26 PANO , 
IF (VR) 3100310970 
70 ALITQ=TDMAX 
IF (BIE~BOE~TAUW) 90190980 
50 Twe=TAUWw 
GO TO 100 
90 TWH=BIE-B0E 
100 IF (TOMAR-TWH~1 6031201209130 
110 BRBE=1.0 


GO TO 130 
i2o BBAN=2,0/ (TDMAX=TWH) 
i3u IND=0 
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62750 
827460 
B2780 


82800 
A2810 
A2R?o 
82830 
BPHGO 
Reuse 
82440 


A2aro 
AZAYO 
B29n00 
87910 
Be920 
82930 
82940 
R2950 
82960 
A2970 
BPOKO 
B2990 
83000 
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83000 
83030 
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83080 
83090 
83100 
83110 
83120 
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SUBROUTINE VOLSUB 


IF (TOMAX*TWH~1 2) 14091509150 
ALITQ=-ALITG 
COUNTSCOUNT?#1. 
VRA= (BABB* (TOMAXK@TwH) *@ (ALT TQ42.0)9/¢ (ABS (ALTTQO) 41.0) #BH8R) ¢ ( TWH ( 
XTONAX@=TWH} ##ALITO} 7260 

IF (VRX-VR) 18002402160 

IF (IND) 1901700190 

ALITA=ALITO/2.0 

60 TO 150 

TIND=1 

ALITQ=2aL]TA#2.0 

60 TO 150 

00 230 f=1s55 

COUNT=COUNT+]. 

VRX= [ABBB* (TDMAX=TWH) #e (ALT TO+¢L.0))/01(ABS (ALTTO} ¢1.0} ®HRBA) + ( TWHe 
XTOMAX~TWH) #HOLTTO)I/2.0 

TF (VRX=VR} 22002604210 

ALITOSALITO/DOLY(E) 

GU 10 200 

ALTITOSALITO#OIVOT) 

CONTINUE 

ALITQ=ALITO/1.0001 

IF {ALI TO) 2602250,260 

ALHO=0, 

GO {0 270 

ALHO= {BUBB 4 (TOMAK~TWH) } SALT TO 

1F CTAU~FWH) 29052909280 

IF (TAU~TOMAX) 30053105310 

ABIGHS 1 AU#ALHO/ TWH 

ASESAS] ¢ABIGR 

OV TO 310 

ABTON= (RBBB* (TOMAX~TAU) } ## ARS (ALETO) 

ASI=ASI*ABIOR 

RETURN 

END 
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RE 
SPHOT 
SPONDT 
SORT 
SUMDY 
TAU 
TAUw 
TDMAX 
THRI 
THRO 
TwH 
VCH 
VEH 
VEK 
VFH 

VF Heel 
VEHO 
VFINT 
VFN 
VES. 
VOLSUK 
VR 

WRX 
VSEC 
VSTO 
VSTR 
#1 
WORKA 
wORKRH 
aT 
XBARIH 
XMAX 
KR 
YMAX 
YP] 

ral 
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SUBROUTINE VSEC (Xx) P 
ceececcecccecceccceccececcecececcccecceccecceccecceccececececececece\eeccce 


c SUBROUTINE VSEC DETERMINES THE VOLUME PRODUCED BY THE OIFFERENCE 
c OF VOLUMES OF TwO ONLATE SPHEROIOS. MINUS THE VOLUME OF THE 

c IGNITER HOLE IN THE BLOCK 3 ANALYSIS OF THE HEAD END WITH WER 

c {SECTION 5.2.1.4), 


COCCCCCCOCOCCCCCOCECOCCCCCCCOOCCCCOCOCCOCCCCCC CEC CLC CCCCOECCCCCCCOCCOCCECE 

COMMONS INPUT A/B1 AUF DH} » 3He AGHMeR I Ge HHR 

COMMON INPFUTC/ ARK + AKK DLR eDRVRE 

COMMONS WORK45/A15} sR aRIe THI s T2Me TOM TSM AGS 0 YG4S5a ALC oX03sYOG0 
RODsKOSe YOSeROS A KOT VO7eROTAETGMe T7Me FL 2MeX TGs 76s 
ALD oe XO9DsYOIROMsXOLIL + VULIsRULL oT104%eT9Ms TAUMs TH2¢ 
THI» TH4sOTIMsA72MeRYIMeHh92M 

COMMON/ WORK ASAENC +ANO a RFs TAUWIR2gRI PRG REPRO WRT ORAS 

1 > ALS] sALS2sALAsALBeALE AW (5) 

COMMON/COMR/DELLR pRPZyXPZ9AZ 

COMMON /PARMG/VFH pAANS VFN VIS e ALT sSPHDT sSPONDT sVFINT s VEHSARTOT 

COMMON/ PARMH/31E sBOE eAANNG HX eRXX PAST I SVELLRI pROPEGSALEVYPI eZPd 

) ARCOSARCLsROELOALITTL es ZL eATGs FHRE se THROSAOF 

COMMONSPARML/ FOLOR sAL9As SRAK SALI LA eAS eRPX 9 ZPO0s YPD SDS eKARAK VKVSER 

COMMON/PARMOZALP sKRASGA +s <XRSBB ee KGAM 

COMMON/PARMP /THAZ pRP] PAP 2eRED RPS RPS RPG ORPID RELI SRPLAsRPOL Se XP] > 

1 KPQsXPSsXP1i—eXP13 


unr 


GO TO (1091300140 9150 016091702180 e20 23012205210, 2000190 1eK 
10 KXARSBB=) 
THHUSO, 
RPX=RP] 
» ZPU=R)] 
20 CALL YPSUB(ZPOedTAQE sd0E s YPOsARCOe 3) 
HOLUR=ZP0 «+ 
DELLR=VELLRI 
IF (RPX#ZPO=DELLR) 40530430 
30 ZPL5ZP0+DELLR 
GO Ta $06 
40 ZPL=RPX 
Soa CALL YPSUB(ZP1sBTADE SHOE s¥PT eARCE 3) 
OSSSORT C(ZP1-ZP0) #426 CYP =YFO) #42) 
ZPI=HOLDR 
IF (0S) 60070460 
60 DELLR=DELLA ft akK/O5 
70 IF (VELLR©RPXA*ZP1) 80480990 
80 ZP1SZP1+DELLR 
GO TO 100 
90 ZPLERPX 
100 CALL YPSUH (ZP1LsHTAOE PHOE + YPT+ARC1 53} 
TEMP=SORT (RPZ442-XPZHG2) 
TEMPS=C05 (AZ) 
TEMP6=TANCAZ) 
AXSAPZ-TEMPES FE MP 
‘TEMP2=4,% (BXH82@ZP] HA) H ({TEMP6HR24).) 
TEMP3=SORT ( (2e#TEMPHHBX) #2 TEMP2) ~2. 2 TEMPHSBX 
TEMP2= [TEMP6##241.)%2, 
ALP= (TEMP3/TEMP2<SORT (RPZAR2—XPZHH2) ) STEMPS 
CALL XARFHRI1) 


, 


83490 
83660 
83680 
A3690 
B3700 
B3710 
83730 


43740 
83750 
43760 
83770 
ASTAO 


» 83790 


83800 
33810 
83820 
A840 
838460 
83650 
838660 
83870 
83880 
B3AG0 
83900 


AIGLO, 


8920 
83930 
84940 
83950 
839460 
83970 
83940 
A39900 
84000 
AGGLO 
A4020 
84030 
84040 
84050 
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INDE x 


120 
130 


140 


150 


160 


160 


CALL XRTHR(2) 
ALLQ=ZP1=ZPU 


VF He CC THRI THRO) 426+ THRO) #(YPO4 YP) PAANNTALLO/2.9¢2P1 ¢ZP0) +VEH 


VEN=VFH 


IF (ZPIWRPA) 11002409210 


2ZP0#ZP} 
YPO=¥P I 
THRUSTHRI 
HOLOR=ZP1 
£P1=ZPL+DELLR . 
IF (2P1"RPX} 505505120 
ZPL=RPX 

60 Td 50 
KXARSBH=2 
ZPOSKP} 
RPZ=RP} ‘ 
AP Z=XPL . 
AJ=A(1) 
RPX=KP? 
THRZETHRI 
THROS THRE 
GO 10 20 
KXRSBH=5 
2PQ=RP2Q 
RPXSKPY 
THRO=THRI 
GO TO 20 
KXRSBHS6 
ZPOZRP3 
RPZ=KP3 
XPZ=XPZ 
AZ=A(2) 
RPK=KP4 
THRZ=THRE 
THRO=THRI 
GO TO 20 
KXRSHBST 
ZBUSRP4 
RPX=SHPS 
THRUS=THRI 
GO 10 20 
ZPOSRPS 
RPZ=RPS 
XPZ=XPS 
KXxXRSHB=8 
RPX=RPS 
A2=4(3) 
THRZ=THRI 
THRO=THRI 
GO TO 20 
KXRSBBE9D 
ZPO=RP6 
RPX=SRF ~TAUW 
THRO=THRI 
GO TO 20 
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A4O60 
A4070 
84080 
A4090 
64100 
AS11060 
B41 20 
84130 
84140 
44150 
84166 
A470 
Ba1LRO 
841490 
B4208 
&4210 
84220 
B42 
842460 
d4e50 
84260 
A42rt 
H42H0 
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A4300 
B4310 
84320 
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44340 
A435 
HG360 
84370 
A43A0 
84390 
R4400 
84410 
A4420 
B4430 
R4G40 
84450 
84460 
BAGTO 
H44a0 
6490 
A4500 
BASIN 
84520 
84530 
84540 
84550 
84560 
R4570 
B4SAO 
84590 
84600 
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INDEX 


98 

99 
100 
tol 
102 
103 
10% 
165 
106 
107 
108 
yo09 
h1o 
tll 
112 
113 
114 
}1o 
lle 
117 
lig 
119 
120 
lel 
12e 
123 
124 
125 
126 
127 
12u 
129 
130 
131 
132 


190 


200 


220 


230 


240 


KXRSBB=16 
ZPUERYD 
RPX=RP)3 
THRUEO, 
60 TO 20 
KXRSHB=15 
ZPO=RP13 
RPZ=RP1L3 
XPZ=XP13 
AZ=A(5} 
RPX=RP1L2 
THRZ=THRI 
THRO=THRI 
GO TO 20 
éPOEHP]2 
KXRSBH=]4 
RPX=RP11 
THRUSTHRI 
60 TO e060 
KXRSHBS) |} 
ZPO=RP1} 
RP7=RP LL 
XPZ=KPR] 
AZzAI4) 
KPxX=KP10 
THRZSTHRI 
THRYETHRIE 
GO 10 20 
KXRS8B=1U 
ZPU=HP}O0 
KPX=RF #TAUW 
TARG=THRI 
GO TO 20 
RETURN 
END 
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AGT7TO 
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70 RETURN 
END 


44960 
A5040 
85060 
H5070 
BS5o480 
AS100 


BS310 
asl2n 
95130 
88140 
85150 
BS1A0 
85170 
BSIKO 
BS190 
AS? t0 


AS210, 


AS27270 
RS230 
BS246n 
ASPSUL 
AS2oo 
HS270 
AS240 
R5290 


Pace 


494 


w00d ao 
‘NIDTIO 


SI 2vd gy 


ALTTV ND 


b-O2zuvlL~9Se0 


S6y-k 


INDEX 


SYMBOL 


10 
20 
30 
40 
50 
60 
70 

A 
AaAwA 
ABB 
ABS 
AINC 
ALA 
ALB 
ALC 
ALD 
ALDF 
ALE 
ALHO 
ALP 


“ALS1. 


ALS2 
ALTA 
ALTY 
ALIA 
ALIA 
ANU 
AS 
AW 
uA 
3H 
BHAK 
dTADA 
dTAUL 
3714 
4724 
B91M 
Bo2M 
CA 
cB 
COMV 
COSGA) 
COSGA2 
COS6B} 
COSGB2 
COSTRA 
COSTRB 
DA 
uf 
DOLA 
bold 
bs 
GAMALA 


atv oevev se see atreszpeea 


peiyvetpaeasctetravpererttihiev dba tte terveureeea 


_ 
mowowonooe 


eco 
4co 
Sco 


3c0 
3C0 
3C0 
2co 
2co 
6CO 
J3Co 
6CO 
8CO 
3c0 
3C0 
4CO 
5c0 
7co 
7cO 
ICU 
700 
3C0 
CO 
5CO 
7Cu 
4Cu 
5CU 
2Cco 
2cu 
eco 
eco 
4co 
5cOo 
64 
4co 
4CO 
5c0 
5co 
4&co 
5CO 
4CO 
5c0 
6C0 
4co 
700 
4CO 


10¢ 
128 
144 
17% 
2o# 
23+ 
13 


10 


le 
le 


16 


15 


14 
4 


18 


7 
17 


22 


21 


26 
20 


SUBROUTINE VSTRSB 


POT E YM EE wER SE YO H HREM ED EM EMP HOMEY 


24% 


23 


SCHEME RFE Oe we Hae wer ewe UEVE De O+ Sead wtwrew set 


a 
a 


y-Lzuul 


Jop-€ 


INDE x 


GAMALB 
GAMALA 
GAMA2B 
HOLDR 
KARAK 
KGAM 
KRASBB 
KVSTR 
KXRS8B 
PARML 
PARMO 
RAA 
RAB 
RETURN 
RF 
NOPE] 
ROPE? 
ROPES 
RPX 
ROL 
RO3 
ROS 
"ROT 
ru? 
RY 
R2 
R3 
RS 
RS 
RA 
RT 
no 
Kg 
SINGA) 
SINGA2 
SINGBY 
SINGb2 
SINTRA 
SINTRB 
SORS 
TANG2A 
TANG2B 
TANPIA 
TANP1]8 
TAUM 
TAUW 
TOMAX 
TEMP 
THRA 
THRS 
THI 
TH2 
THI 
TH4 
TLOM 


Peper ec eat vere rr rernrevaaes etree eee reece arer eter aerate ts atthe 


5c0 
4cO 
Sco 
7C0 
7C0 
aco 
acu 
7cO 
&CO 
ra 
ge 
4C6 
Sco 
246 
aca 
6CO 
6co 
6CO 
7c0 
2c0 
2co 
200 
2co 
2c0 
2c0 
3Co 
3C0 
3co 
3C0 
3co 
3C0 
3Co 
2C0 
460 
4CO 
5CO 
5c0 
4CO 
5co 
12 
4co 
5CO 
4CO 
5C0 
2co 
3co 
6co 
145 
&CO 
Sco 
2co 
2C0 
2C0 
2c0 
2c0 


lo 
44 
i? 
20 


a3 


14 


1g 


iS 


15 
18 
al 


17 


17 


SUBROUTINE VSTRSH 


18 21 23 


fat) 7 
18 205 21 


PAGE 


496 


Prd GL 9Satl 


L6o-E 


* € 


INDEX 


T1126 
Ten 
14M 
TSM 
Tem 
T7s 
TOM 
VSTO 
VSTR 
VSTRSB 
WORK A 
WORKSS 
XMAX 
OA 
ROAWOR 
XOH 
XOBWOR 
XRATA 
XRATH 
AQ]? 
AQ3 
X05 


"KUT 


AOY 
XIA 
X18 
Kea 
A28 
ARA 
4B 
K45 
X75 
YHAX 
YOA 
you 
YPD 
your 
Y03 
Yos 
Yo? 
Yoo 
YtA 
YIS 
Y2Aa 
¥28 
Y3A 
¥3B 
vas 
Y76 , 
ZMAXK 
£04 
206 
2P0 
21A 
218 


a 


2co 
2co 
2co 
2ca 
2co 
eco 
2Cu 
6CO 
5C0 
ye 

3% 

2 

6CO 
4Co 
Gt 

560 
Se 

4C0 
5CO0 
2c0 
2co 
2c0 
2co 
2c0 
4C0 
5c0 
4C0 
5co 
4co 
5c0 
eco 
2co 
6C0 
4co 
5ca 
7co 
2co 
2co 
2co 
2co 
2co 
4C0 
5CO 
4C0 
5co 
4CO 
5co 
2c0 
2co 
6C6 
4c0 
Sco 
7caQ 
4CO 
5CO 


tos 


12 
12 


14 


i7 


10 
to 


t2 
12 


SUBROUTINE VSTRSA 


Ss 1B= 2156 235 
15 i8 21 24 
is 18 ai 23 


PAGE 497 


b-beb01-9526 


86y-£ 


Z2a 
eu 
234 
Z3B 


INDE x 


i 


SUBROUTINE VSTRSB 


4cO0 

5c0 

4C0 : 

5¢c0 , 


PAGE 


498 


SO eA teed tweed mbete see mewsem tm tetmsmsrterermtn ea eebwintaswbatutubabetmtatwdmswsatweatmentupupwomsade 


’ 


PrudLUErsgza 


66b-E 


INDE x 


~ 
SCewem pune 


pes 
ue 


SUBROUTINE KLIN {AeBsNeXs¥eL) 
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END 
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SUBROUTINE XRSUB(KXRSUB) 
cecececceececceccceccceccececeecceccccceccecceccecceeccececececccceeccccecce 
c SUBROUTINE XRSUA DETERMINES THE X-COORDINATE OF A GENERAL POINT ON 
c THE PERIMETER OF A SECTOR IN THE ENO SECTIONS {SECTION 5.2.3.2). 
cccececccccecceccccceceececceecececeoeccccececccecccecceececceececeeccecec 
COMMONS WORK45/A (5) oR] RF eTHL a T2Ma FGM se TSM e XG5 eV G5 eALCeXO3eVO3e 
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XN2SORT {TEMPG=TEMP2462) 
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